การเขียน Code VBA Loop และสั่งพิมพ์แบบกำหนดช่วงได้

[aniwat2011]

เรียนอาจารย์และพี่ ๆ ครับผม
ขอถามการเขียน Code VBA ในการ Loop และสั่งพิมพ์แบบกำหนดช่วงเริ่มต้นและสิ้นสุดของข้อมูลได้ครับ
โดย เรากำหนดที่ Sheet1(พิมพ์ใบแจ้ง) โดยกำหนดช่วงเริ่มต้นที่ "K16" สิ้นสุดที่ "K17"
ซึ่งข้อมูลเริ่มต้นให้มาจาก "C7" ซึ่งดึงมาจาก Sheet2(ฐานข้อมูลเงินเดือน) คอลัมน์ "A"
แบบฟอร์มการพิมพ์ออกอยู่ที่ Sheet6(SlipFormA5)
ตอนนี้ผมยังกำหนดค่า i ไม่ได้ครับ (สำหรับการพิมพ์เริ่มต้นจากคนแรกถึงคนสุดท้ายผมสามารถทำได้แล้วครับ)
ขอขอบคุณมา ณ โอกาสนี้ครับ

The attachment sheet1.jpg is no longer available

The attachment sheet2.jpg is no longer available

SalarySlipA5(09072564ถามสูตรพิมพ์แบบช่วง).xlsm

(319.27 KiB) Downloaded 22 times

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

[aniwat2011]

ภาพประกอบครับ

[snasui]

ตัวอย่างการปรับ Code ให้เริ่มพิมพ์จากเซลล์ K16 สิ้นสุดที่ K17 ครับ

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

[aniwat2011]

ขอบคุณอาจารย์มาก ๆ ครับผม

[aniwat2011]

ทอสอบการใช้งานแล้ว น่าทึ่งมาก ๆ ครับอาจารย์