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 Macro7()
Range("D10:q23").Copy
Workbooks.Open Filename:=Cells(2, "X")
Sheets("Packing list_1").Select
Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
ลองปรับโค๊ดตามนี้ครับcommongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").ActivateCode: Select all
Sub Macro7() Range("D10:q23").Copy Workbooks.Open Filename:=Cells(2, "X") Sheets("Packing list_1").Select Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate Range("D19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Code: Select all
Public Sub CopyPaste()
Range("D10:q23").Copy
Workbooks.Open Filename:=Cells(2, "X")
ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
ขอบคุณมากเลยค่า แต่ยังไม่ได้ค่ะ ><bank9597 wrote:ลองปรับโค๊ดตามนี้ครับcommongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").ActivateCode: Select all
Sub Macro7() Range("D10:q23").Copy Workbooks.Open Filename:=Cells(2, "X") Sheets("Packing list_1").Select Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate Range("D19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Code: Select all
Public Sub CopyPaste() Range("D10:q23").Copy Workbooks.Open Filename:=Cells(2, "X") ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Code: Select all
Public Sub CopyPaste()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim strWbName As String
Dim strShName As String
Dim strPath As String
Set wb1 = ThisWorkbook
wb1.Sheets(1).Range("A2:A10").Copy
strWbName = wb1.Sheets(1).Range("B2")
strShName = wb1.Sheets(1).Range("C2")
strPath = "C:\Users\Kwan\Desktop\" & strWbName & ".xlsx"
Workbooks.Open Filename:=strPath
ActiveWorkbook.Sheets(strShName).Range("A1").PasteSpecial xlPasteValues
End Sub
เกือบได้แล้วค่ะ แต่ติดตรงนี้ พยายามปรับดูแล้วก็ยังทำไม่ได้ ต้องขอรบกวนอีกครั้งค่ะ ><bank9597 wrote:ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ
Code: Select all
Public Sub CopyPaste() Dim wb1 As Workbook Dim wb2 As Workbook Dim strWbName As String Dim strShName As String Dim strPath As String Set wb1 = ThisWorkbook wb1.Sheets(1).Range("A2:A10").Copy strWbName = wb1.Sheets(1).Range("B2") strShName = wb1.Sheets(1).Range("C2") strPath = "C:\Users\Kwan\Desktop\" & strWbName & ".xlsx" Workbooks.Open Filename:=strPath ActiveWorkbook.Sheets(strShName).Range("A1").PasteSpecial xlPasteValues End Sub
Code: Select all
Option Explicit
Public Sub CopyPaste()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim strWbName As String
Dim strShName As String
Dim strPath As String
Set wb1 = ThisWorkbook
wb1.Sheets(2).Range("D10:Q23").Copy
strWbName = wb1.Sheets(2).Range("U4")
strShName = wb1.Sheets(2).Range("V2")
strPath = "C:\Users\h390260\Desktop\Draft invoice\13May\05\" & strWbName & ".xlsm"
Workbooks.Open Filename:=strPath
ActiveWorkbook.Sheets(strShName).Range("D19").PasteSpecial xlPasteValues
End Sub