/ / / Excel VBA Κάντε μέχρι βρόχο

Το Excel VBA κάνει μέχρι το βρόχο

Παρόλο που δεν χρησιμοποιείται πολύ συχνά σε αυτόν τον ιστότοπο, μπορεί να βρεθείτε σε μια κατάσταση όπου θέλετε να χρησιμοποιήσετε το Κάντε μέχρι το βρόχο σε 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 κάνει μέχρι το βρόχο

Εξήγηση: έως ότου το i υπερβεί το 6, το Excel VBA τοποθετεί την τιμή 20 στο κελί στη διασταύρωση της σειράς i και της στήλης 1 και αυξάνει κατά το 1. Κατά συνέπεια, η τιμή 20 θα τοποθετηθεί στη στήλη Α έξι φορές (όχι επτά επειδή Το Excel VBA σταματά όταν το i ισούται με το 7).

Επίσης διαβάστε: