วิธีสร้าง sendkeys มาโครลำดับเชิงเส้นของการทำงาน

Range ("D5").Select
ActiveCell.Resize(1, 25).Select
SendKeys ("%y1"), True 'Alt+Y1
SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in
SendKeys ("~"), True 'Enter, initiates the merge add-in function

Range ("D6").Select
ActiveCell.Resize(1, 25).Select
SendKeys ("%y1"), True 'Alt+Y1
SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in
SendKeys ("~"), True 'Enter, initiates the merge add-in function

ทำการเลือกแต่ละเซลล์ในคอลัมน์ D ต่อไปจนถึง D40 ...

ทุกครั้งที่ฉันเรียกใช้รหัส SendKeys VBA จะเริ่มต้นคำสั่งสุดท้ายตามลำดับเท่านั้น ฉันลองใช้การรอหรือการนอนหลับ แต่มาโครเพิ่งหน่วงเวลากรอบเวลาที่ระบุไว้จากนั้นเรียกใช้ชุดปฏิบัติการล่าสุดเท่านั้น ฉันต้องการสิ่งนี้เพื่อทำงานในแบบเชิงเส้น (ตามลำดับการปฏิบัติการที่ต้องการ)

ฉันจะแน่ใจได้อย่างไรว่าชุดการกดแป้นพิมพ์เกิดขึ้นเป็นเส้นตรงและเรียงตามลำดับ

ใช้ DoEvents

Range ("D5").Select
ActiveCell.Resize(1, 25).Select
DoEvents
SendKeys ("%y1"), True 'Alt+Y1
DoEvents
SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in
DoEvents
SendKeys ("~"), True 'Enter, initiates the merge add-in function
DoEvents

Range ("D6").Select
ActiveCell.Resize(1, 25).Select
DoEvents
SendKeys ("%y1"), True 'Alt+Y1
DoEvents
SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in
DoEvents
SendKeys ("~"), True 'Enter, 
DoEvents