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 PasteData()
Dim rSource As Range, rSource1 As Range
Dim rTarget As Range, lng As Long
lng = Sheets("Form").Range("A" & Rows.Count).End(xlUp).Offset(-1, 0) - 1
With Worksheets("Template")
Set rSource = .Range("A2:T2").Resize(.Range("W1"))
End With
Set rTarget = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
' Application.CutCopyMode = False
Set rSource = Worksheets("Form").Range("J4,T4")
Set rSource1 = Worksheets("Form").Range("B5:G" & 5 + lng & ",V5:W" & 5 + lng & ",Z5:AC" & 5 + lng)
Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
.Offset(1, 0).Resize(lng + 1, 2)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
rSource1.Copy
rTarget.Offset(0, 2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Form").Range("F5:G100,J5:U100,AA5:AA100,AB5:AC100").ClearContents
End Sub
Code: Select all
Sub UpdateEmp()
Dim rSource As Range
Dim rTarget As Range
Set rSource = Worksheets("Update").Range("A2")
Set rSource = Worksheets("Update").Range("B2:E2")
Set rSource = Worksheets("Update").Range("F2:I2")
Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
.Offset(1, 0).Resize(lng + 1, 2)
Set rTarget = Worksheets("TemplateIn").Range("C:F").End(xlUp).Offset(1, 0)
Set rTarget = Worksheets("TemplateIn").Range("M:P").End(xlUp).Offset(1, 0)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Update").Range("A2,D2,F2:G2").ClearContents
End Sub
Code: Select all
Sub UpdateEmp()
Dim rSource As Range
Dim rTarget As Range
Set rSource = Worksheets("Update").Range("A2")
Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
.Offset(1, 0)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Set rSource = Worksheets("Update").Range("B2:E2")
Set rTarget = Worksheets("TemplateIn").Range("C" & Rows.Count).End(xlUp) _
.Offset(1, 0)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Set rSource = Worksheets("Update").Range("F2:I2")
Set rTarget = Worksheets("TemplateIn").Range("M" & Rows.Count).End(xlUp) _
.Offset(1, 0)
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Update").Range("A2,D2,F2:G2").ClearContents
End Su