Search results
W pierwszej kolejności stwórzmy prostą pętlę, wypełniającą nam 10 kolumn pierwszego wiersza w naszym arkuszu: Sub LoopExample1()
Wyobraź sobie przykładowo makro, która ma za zadanie wypisywać w komórkach arkusza kolejne potęgi jakiejś liczby (np. 1.01), tak długo, aż wartość potęgi osiągnie określony limit (np. 1 000 000).
Istnieje inny sposób napisania pętli, która działa tak samo jak While Wend (działa tak długo, jak spełniony jest określony warunek zawarty w poleceniu While): Sub do_while_loop() Do While [stan : schorzenie] 'Instrukcje Loop End Sub
Dla przykładu spróbujmy wykorzystać naszą pętlę do wyświetlenia tekstu „Przykład pętli For Next” w komórkach od „A1” do „A10” w arkuszu danych Excela. Sub ForNextExample() Dim intRow As Integer. For intRow = 1 To 10. Cells(intRow, 1) = "Przykład pętli For Next" Next. End Sub. Sam schemat działania wygląda następująco:
Pętla „For Next” pozwala przejść przez blok kodu określoną liczbę razy. Na przykład, jeśli poproszę Cię o ręczne dodanie liczb całkowitych od 1 do 10, dodałbyś pierwsze dwie liczby, następnie dodałbyś trzecią liczbę do wyniku, a następnie dodałbyś do wyniku czwartą liczbę, tak dalej….
Spójrzmy na wynik pętli, którą chcemy uzyskać: Następnie pierwszym krokiem ćwiczenia będzie utworzenie pustej procedury: Sub loops_exercise () Const NB_CELLS As Integer = 10 'Liczba komórek, które chcemy pomalować. '... End Sub. Zacznijmy od dodania pętli FOR, aby zaczernić kolumnę A (stała NB_CELLS wynosi 10). Powinniśmy uzyskać następujący wynik:
Tematem tej lekcji będą pętlę, dzięki którym można łatwo zautomatyzować wielokrotne wykonywanie identycznej czynności w kodzie, takiej jak np. wyświetlanie wartości w kolejnych wierszach arkusza.
