Snasui Excel Forum

คือผมใช้ สูตร VBA ตอนนี้ รัน เลขที่ใบเงินเดือน ที่ใส่สูตร Vlookup ที่ Cell D6 ใช้งานได้ โดยใช้สูตรนี้

Sub PrintSalarySlips()
a = 1
Do While a <= 5
EmpID = Sheet1.Range("B1").Offset(a, 0).Value
Sheet2.Range("D6").Value = EmpID
Application.Wait (Now + TimeValue("00:00:05"))
Sheet2.PrintOut from:=1, to:=1
a = a + 1
Loop
End Sub

แต่ผมเพิ่มหน้าสลิปเงินเดือนเพิ่มขึ้น อีก 1 ฟอร์ม
อยากให้ สูตรทำงานแบบ รันเลขที่ใบเงินเดือน ที่ Cell D6 รหัส 101 และ
รันเลขที่ใบเงินเดือน ที่ Cell D32 รหัส 102 วนไปเรื่อย ๆ อาจจะอธิบาย งงๆ ผมแนบไฟล์ไปด้วยครับ

แนบไฟล์ที่มี Code VBA มาด้วยครับ

ไฟล์ที่จะแนบ Code VBA ได้จะต้องมีนามสกุล .xlsm เป็นอย่างน้อยครับ

การโพสต์ Code ในกระทู้ควรโพสต์ให้แสดงเป็น Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ