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 Clone()
Dim Cbook As Workbook, CheckFile As Boolean
Set Cbook = ThisWorkbook
Cbook.Sheets(1).Range("C1:N700").Copy
Cbook.Sheets(7).Range("A1:L700").Offset(0, 0).PasteSpecial xlPasteValues
ThisWorkbook("Sheet7").Range("B1:L700").Sort _
Key1:=ThisWorkbook("Sheet7").Columns("B"), _
Order1:=xlDescending, Header:=xlYes
'Order1:=xlAscending, Header:=xlYes
End Sub
Code: Select all
Sub Clone()
Workbooks("final.xlsm").Worksheets("Sheet1").Range("C1:N630").Copy
Sheets(7).Activate
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("final.xlsm").Worksheets("sheet7").Range("B1:L630").Sort _
Key1:=Workbooks("final.xlsm").Worksheets("sheet7").Columns("B"), _
Order1:=xlDescending, Header:=xlYes
'Order1:=xlAscending, Header:=xlYes
End Sub