Πίνακας περιεχομένων
Αν και δεν χρησιμοποιείται πολύ συχνά σε αυτόν τον ιστότοπο, ενδέχεται να βρεθείτε σε μια κατάσταση όπου θέλετε να χρησιμοποιήσετε το Κάνε μέχρι βρόχου σε Excel VBA. Ο κώδικας που τοποθετείται μεταξύ του Do Until και του Loop θα επαναληφθεί μέχρι να ισχύει το τμήμα μετά το Do Until.
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
Dim i As Integer
i = 1
Κάντε μέχρι να> 6
Κελιά (i, 1). Αξία = 20
i = i + 1
Βρόχος
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
Επεξήγηση: μέχρι το i να είναι υψηλότερο από 6, το Excel VBA τοποθετεί την τιμή 20 στο κελί στη διασταύρωση της γραμμής i και της στήλης 1 και αυξάνει το i κατά 1. Ως αποτέλεσμα, η τιμή 20 θα τοποθετηθεί στη στήλη A έξι φορές (όχι επτά επειδή το Excel VBA σταματά όταν ίσα με 7).
