Spisie treści
Chociaż nie jest to używane zbyt często na tej stronie, możesz znaleźć się w sytuacji, w której będziesz chciał użyć Rób do pętli w Excel VBA. Kod umieszczony pomiędzy Do Until i Loop będzie powtarzany, dopóki część po Do Until będzie prawdziwa.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
Dim i jako liczba całkowita
ja = 1
Czy Do > 6
Komórki(i, 1)).Wartość = 20
ja = ja + 1
Pętla
Wynik po kliknięciu przycisku polecenia na arkuszu:
Wyjaśnienie: dopóki i nie jest większe niż 6, Excel VBA umieszcza wartość 20 w komórce na przecięciu wiersza i i kolumny 1 i zwiększa i o 1. W rezultacie wartość 20 zostanie umieszczona w kolumnie A sześć razy (nie siedem, ponieważ Excel VBA zatrzymuje się, gdy równa się 7).