Code คำสั่ง Print ใน Excel

[Nat072]

เรียน อาจารย์.

สร้างปุ่ม Print ขึ้นมาเพื่อจะกำหนดหมายเลข Invoice ที่ต้องการ
โดยกำหนดหมายเลข ใบแรก Start 1 - Finish 6 ใบสุดท้าย
ปัญหาคือ Sheet Report Vat การคีย์ข้อมูล คือเรียงลงมาด้านล่าง บางรายการ
1 ใบ มี 2 รายการ หรือ 3 รายการ ทำให้การสั่ง Print จะข้ามกระโดดไป.

สอบถาม. Code ที่เขียนให้คำสั่งเช็คว่าถ้าหมายเลขซ้ำกัน ให้ข้ามไปหมายเลขถัดไป.
ไม่ทราบว่าจะเขียนคำสั่งอย่างไรครับ.. ขอบคุณครับ..

Code: Select all

Private Sub CommandButton1_Click()
    
    Start = Range("Start")
    Finish = Range("Finish")

    For i = Start To Finish
        Range("No") = i
        Calculate
        ActiveSheet.PrintOut
    Next i
    MsgBox "Completed!", vbOKOnly, "Print Routine Slip"

End Sub

[snasui]

ลองปรับสูตรที่ AB17 เป็นด้านล่างครับ

=SMALL(IF(FREQUENCY(IF('Report Vat'!$E$10:$E$3547=$K$11,MATCH('Report Vat'!$E$10:$E$3547,'Report Vat'!$E$10:$E$3547,0)),ROW('Report Vat'!$E$10:$E$3547)-ROW('Report Vat'!$E$10)+1),ROW('Report Vat'!$E$10:$E$3547),FALSE),B17)

Ctrl+Shift+Enter > Copy ลงด้านล่าง

[Mamogose]

ได้ความรู้มากๆ ครับ