คำสั่ง Do Until เป็นคําสั่งลูปใน VBA ที่ใช้สําหรับทํางานซ้ํา ๆ ไปเรื่อย ๆ จนกว่าเงื่อนไขที่กําหนดไว้จะเป็นจริง ซึ่งจะตรงกันข้ามกับฟังก์ชั่น Do While โครงสร้างของคําสั่ง Do Until มีดังนี้
Do Until condition
[statements]
Loop
ตัวอย่าง: จะแสดงตัวเลข 10 ถึง 60
Dim myNum As Integer: myNum = 10
Do Until myNum > 60
Debug.Print myNum
myNum = myNum + 10
Loop
ขั้นตอนการทํางาน:
1. ประกาศตัวแปร myNum เป็น Integer และกําหนดค่าเริ่มต้นเป็น 10
2. ทําคําสั่งใน Do Until Loop ซ้ำไปเรื่อยๆ จนกว่า myNum มีค่าเกิน 60 (เงื่อนไข myNum > 60)
3. แสดงตัวเลข myNum ออกมาในหน้าต่าง Immediate
4. เพิ่มค่า myNum ขึ้น 10 จากเดิมทุกรอบของลูป เพื่อให้เงื่อนไขเป็นจริง จึงจะสามารถออกจากลูปได้
5. วนลูปซ้ำไปเรื่อย ๆ จน myNum มากกว่า 60 จึงจบการทํางานของ Do Until
ดังนั้นคําสั่ง Do Until จะช่วยให้เราสามารถทํางานซ้ำ ๆ ได้โดยอัตโนมัติไปเรื่อย ๆ จนกว่าเงื่อนไขที่เรากําหนดไว้จะเป็นจริง ซึ่งจะตรงกันข้ามกับ Do While ซึ่งช่วยให้การเขียนโปรแกรมง่ายและมีประสิทธิภาพมากขึ้น
