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 CopyToDB()
Sheets("sheet1").Select
RowEnd = Selection.End(xlDown).Row
RowEnd = RowEnd + 1
Sheets("Sheet1").Select
Range("L3").Select
ColEnd = Selection.End(xlToRight).Column
Sheets("database").Select
Sheets("database").Range("A2").Select
RowEndDB = RowEnd
RowEndDB = RowEndDB + 1
For i = 12 To ColEnd
Sheets("sheet1").Select
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L2").Select
Selection.Copy
Range("K3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K3:K7754"), Type:=xlFillCopy
'Range("K:K7754").Select
'
Sheets("sheet1").Select
Range("A3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A" & RowEndDB).Select
Worksheets("Database").Paste
Sheets("Sheet1").Select
Columns("K:L").Select
Selection.Delete Shift:=xlToLeft
Next i
End Sub
Code: Select all
Sub CopyToDB()
Sheets("sheet1").Select
RowEnd = Range("a" & Rows.Count).End(xlUp).Row
Set rDat1 = Range("a3:j" & RowEnd)
Set rdateachmonth = Range("k3:k" & RowEnd)
Set rAllMonth = Range("k2", Range("k2").End(xlToRight))
Sheets("database").Select
i = 0
For Each r In rAllMonth
rowend2 = Range("a" & Rows.Count).End(xlUp).Row + 1
rDat1.Copy Range("a" & rowend2)
r.Copy Range("a" & rowend2).End(xlToRight).Offset(, 1) _
.Resize(rdateachmonth.Rows.Count, 1)
rdateachmonth.Offset(, i).Copy Range("a" & rowend2).End(xlToRight) _
.Offset(, 1)
i = i + 1
Next r
End Sub
Code: Select all
Sub CopyToDB()
Sheets("sheet1").Select
Sheets("sheet1").Range("A2").Select
RowEnd = Selection.End(xlDown).Row
'RowEnd = RowEnd
'Sheets("Sheet1").Select
Range("L2").Select
ColEnd = Selection.End(xlToRight).Column
Sheets("database").Select
Rows("2:100000").Select
Selection.Delete Shift:=xlUp
RowEndDB = 2
For i = 12 To ColEnd
Sheets("sheet1").Select
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L2").Select
Selection.Copy
Range("K3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K3:K" & RowEnd), Type:=xlFillCopy
'Range("K3:K7754").Select
Sheets("sheet1").Select
Range("A3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Database").Select
Range("A" & RowEndDB).Select
Worksheets("Database").Paste
Sheets("Database").Range("A1").Select
RowEndDB = Selection.End(xlDown).Row
RowEndDB = RowEndDB + 1
Sheets("Sheet1").Select
Columns("K:L").Select
Selection.Delete Shift:=xlToLeft
Next i
End Sub