Snasui Excel Forum

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

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

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

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

[code]
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
[/code]

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

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 VBA ในการ Loop และสั่งพิมพ์แบบกำหนดช่วงเริ่มต้นและสิ้นสุดของข้อมูลได้ครับ
โดย เรากำหนดที่ Sheet1(พิมพ์ใบแจ้ง) โดยกำหนดช่วงเริ่มต้นที่ "K16" สิ้นสุดที่ "K17"
ซึ่งข้อมูลเริ่มต้นให้มาจาก "C7" ซึ่งดึงมาจาก Sheet2(ฐานข้อมูลเงินเดือน) คอลัมน์ "A"
แบบฟอร์มการพิมพ์ออกอยู่ที่ Sheet6(SlipFormA5)
ตอนนี้ผมยังกำหนดค่า i ไม่ได้ครับ (สำหรับการพิมพ์เริ่มต้นจากคนแรกถึงคนสุดท้ายผมสามารถทำได้แล้วครับ)
ขอขอบคุณมา ณ โอกาสนี้ครับ
[attachment=2]sheet1.jpg[/attachment][attachment=1]sheet2.jpg[/attachment][attachment=0]sheet6.jpg[/attachment]
[code]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]