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 AutoPrintSlip2()
Dim i As Integer
Sheet2.Activate
i = X
Do Until Range("A" & i).Value = "X"
Sheet2.Range("A" & i).Select
Sheet1.Range("C7").Value = Sheet2.Range("A" & i).Value
i = i + 1
Sheet6.PrintOut
Loop
MsgBox "พิมพ์สลิปเงินเดือนตามช่วงที่กำหนดเสร็จแล้ว"
End Sub
Code: Select all
Sub AutoPrintSlip2()
Dim i As Integer
Sheet2.Activate
For i = Sheet1.Range("k16").Value To Sheet1.Range("k17").Value
' i = X
' Do Until Range("A" & i).Value = ""
'
' Sheet2.Range("A" & i).Select
' Sheet1.Range("C7").Value = Sheet2.Range("A" & i).Value
' i = i + 1
Sheet1.Range("c7").Value = i
Sheet6.PrintOut
' Loop
Next i
MsgBox "พิมพ์สลิปเงินเดือนตามช่วงที่กำหนดเสร็จแล้ว!!"
End Sub