Programowanie VBA: pętla Do While
Pętla Do While to kolejna formuła, którą poznamy podczas nauki programowania w Visual Basic. Pętla ta jest ograniczona słowami kluczowymi Do i Loop. Wewnątrz niej może znajdować się dowolna liczba instrukcji mających się wykonać podczas trwania pętli. Instrukcja umieszczona w pętli wykonywana jest tak długo, jak długo warunek pętli jest prawdziwy. Kiedy tylko stanie się fałszywy, to pętla kończy swoje działanie. Ważne jest, aby w pętli umieścić instrukcje, która doprowadzą do tego, że podany warunek kiedyś stanie się fałszywy. W przeciwnym razie pętla się nie zakończy! Zapraszamy do lektury.
Z lekcji dowiesz się:
-
Jak sprawić, żeby pętla się zakończyła? Jak działa Do While?
-
Jak napisać dopasowany do potrzeb program bankowy w Excelu?
-
Jak za pomocą VBA szybciej policzyć liczbę wpływów na koncie, liczbę wydatków i sumę pieniędzy?
Z lekcji dowiesz się:
-
Jak sprawić, żeby pętla się zakończyła? Jak działa Do While?
-
Jak napisać dopasowany do potrzeb program bankowy w Excelu?
-
Jak za pomocą VBA szybciej policzyć liczbę wpływów na koncie, liczbę wydatków i sumę pieniędzy?
Przykład
Naszym zadaniem jest przy wykorzystaniu pętli Do While, napisać program, który policzy liczbę wpływów na naszym koncie bankowym, liczbę wydatków, a także ogólną sumę pieniędzy, która na naszym koncie się znajduje.
Konstrukcja Petlie Do While (ogólna)
Do While (Warunek)
Instrukcja, która będzie wykonywana, jeśli nasz warunek okaże się prawdziwy.
Loop
Dim suma As Integer – deklaracja zmiennej – suma - która posłuży do obliczenia wartości pieniędzy dostępnych an koncie
Dim licznik_dodatnie As Integer - zmiennej, która posłuży do policzenia liczby wpływów na konto
Dim licznik_ujemne As Integer – deklaracja zmiennej, która posłuży do policzenia liczby wydatków z konta
Dim a As String – deklaracja zmiennej, która posłuży jako element zliczający powtórzenia niezbędne do prawidłowego działania pętli Do While
licznik_dodatnie = 0 – wartość początkowa zmiennej
licznik_ujemne = 0 - wartość początkowa zmiennej
a = 2 - wartość początkowa zmiennej
suma = 0 - wartość początkowa zmiennej
Do While Cells(a, 1).Value <> "" - warunek pętli Do While (pętla ma się przerwać w momencie kiedy napotka pustą wartość w komórce)
If Cells(a, 2).Value > 0 Then - instrukcja warunkowa, która służy do policzenia dodatnich i ujemnych transakcji na koncie
licznik_dodatnie = licznik_dodatnie + 1
Else
licznik_ujemne = licznik_ujemne + 1
End If
suma = suma + Cells(a, 2).Value - obliczenie całej sumy dostępnej na koncie
a = a + 1 – zwiększanie pętli o 1 krok za każdym jej wykonaniem, umożliwia zakończenie się pętli i jej poprawne wykonanie
Loop
Cells(3, 5).Value = licznik_dodatnie – wprowadzenie obliczonej wartości do odpowiedniej komórki
Cells(3, 6).Value = licznik_ujemne - wprowadzenie obliczonej wartości do odpowiedniej komórki
Cells(3, 7).Value = suma - wprowadzenie obliczonej wartości do odpowiedniej komórki
Pełny kod (Rysunek 1)
(Rysunek 1)
Jeszcze się wahasz?
Zobacz, co zyskasz, mając pełny dostęp:
- Dostęp do wszystkich lekcji video
- Materiały do ćwiczeń
- Dodatkowe artykuły z trikami
- Formularze gotowe od razu do użycia
- E-booki pogłębiające Twoją wiedzę
- Certyfikat potwierdzający Twoje umiejętności
Masz już konto w serwisie?
Zaloguj się
- Twój pierwszy krok do lepszych wyników
