EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Open2559()
Set wb = Workbooks.Open("C:\Documents and Settings\Administrator\Desktop\Test\2559.xlsx", False, False)
End Sub
Code: Select all
Sub Open2559()
Workbooks.Open Range("B5").Value & ".xlsx"
End Sub
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Workbooks.Open Range("B5").Value & ".xlsx"
End Sub
Workbook.Open
อาจต้องเพิ่ม "C:\Documents and Settings\Administrator\Desktop\Test\" & Range("b5").value & ".xlsx"
ครับขอบคุณมากค่ะคุณ DhitiBank ได้ตรงตามต้องการค่ะDhitiBank wrote:หลัง Workbook.Open อาจต้องเพิ่ม "C:\Documents and Settings\Administrator\Desktop\Test\" & Range("b5").value & ".xlsx" ครับ
Code คุณ niwat2811 ให้มา สามารถนำมาปรับตามตัวอย่างด้านล่างใช้ได้แล้วค่ะ ก่อนหน้านี้ไม่ได้เป็นเพราะไม่เข้าใจการใช้ค่ะ ขอบคุณมากค่ะniwat2811 wrote:ลองปรับ Code เป็นแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม
โค้ด: เลือกทั้งหมด
Sub Open2559()
Workbooks.Open Range("B5").Value & ".xlsx"
End Sub
Code: Select all
Sub Open2559()
Workbooks.Open Range("B3").Value & Range("B5").Value & ".xlsx"
End Sub
formBook.Sheets("c9").Activate
โค้ดนีให้เปลี่ยนตามค่าในเซลล์ C9 ไฟล์ Form ชีท Form เพื่อใช้แทน Code formBook.Sheets("Database").Activate
นี้ค่ะCode: Select all
Sub OpenCopy()
Dim wbOpen As Boolean
Dim wb As Workbook
Dim formBook As Workbook
Set formBook = ThisWorkbook
For Each wb In Workbooks
If wb.Name = Range("b9").Value Then
wbOpen = True
End If
Next wb
If Not wbOpen Then
Set wb = Workbooks.Open("C:\Documents and Settings\Administrator\Desktop\ตัวอย่าง\" & Range("b9").Value & ".xlsx", False, False)
End If
ActiveSheet.UsedRange.Copy
'formBook.Sheets("Database").Activate
formBook.Sheets("c9").Activate
Range("A1").Select
ActiveSheet.Paste
Sheets("Form").Select
Application.CutCopyMode = False
Application.Goto reference:="OFFSET(R1C1,COUNTA(C1),0)"
ActiveWorkbook.Save
wb.Close False
End Sub
suka wrote:ขอความช่วยเหลือค่ะ ต้องการปรับformBook.Sheets("c9").Activate
โค้ดนีให้เปลี่ยนตามค่าในเซลล์ C9 ไฟล์ Form ชีท Form เพื่อใช้แทน CodeformBook.Sheets("Database").Activate
นี้ค่ะ
formBook.Sheets(Range("c9").Value).Activate
Code: Select all
'Other code...
ActiveSheet.UsedRange.Copy
formBook.Sheets("Form").Activate
formBook.Sheets(Range("c9").Value).Activate
Range("A1").Select
ActiveSheet.Paste
'Other code..