/ / Excel VBA ทำจนกว่า Loop

Excel VBA ทำจนกว่า Loop

แม้ว่าคุณจะไม่ได้ใช้บ่อยๆในไซต์นี้ แต่คุณอาจพบว่าตัวเองอยู่ในสถานการณ์ที่คุณต้องการใช้ ทำจนกว่า Loop ใน Excel VBA. รหัสที่วางไว้ระหว่าง Do Until และ Loop จะถูกทำซ้ำจนกว่าส่วนของ Do Until จะเป็นจริง

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:

Excel VBA ทำจนกว่า Loop

คำอธิบาย: จนกว่าฉันจะสูงกว่า 6, Excel VBA วางค่า 20 ลงในเซลล์ที่จุดตัดของแถว i และคอลัมน์ที่ 1 และเพิ่มทีละ 1 เป็นผลให้ค่า 20 จะถูกใส่ลงในคอลัมน์ A หกครั้ง (ไม่ใช่เจ็ดเนื่องจาก Excel VBA จะหยุดเมื่อฉันเท่ากับ 7)

อ่านเพิ่มเติมได้ที่: