Do Until (VBA for Excel)

คำสั่ง 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 ซึ่งช่วยให้การเขียนโปรแกรมง่ายและมีประสิทธิภาพมากขึ้น