Programowanie VBA: pętla Do While

Dodatki do Excela
Zaawansowany
Makra
0:00czas trwania

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.

Opublikowane: 2 czerwca 2019
Lekcję prowadzi: Kamil Skonecki
Wykonaj zadanie samodzielnie
Dostępne po opłaceniu
Pobierz szablon do dalszej pracy
Dostępne po opłaceniu

Zobacz krok po kroku jak wykonać lekcję

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?

Wykonaj zadanie samodzielnie
Dostępne po opłaceniu
Pobierz szablon do dalszej pracy
Dostępne po opłaceniu

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)

Wykonaj zadanie samodzielnie
Dostępne po opłaceniu
Pobierz gotowy arkusz z lekcji
Dostępne po opłaceniu
Kolejne kroki dostępne dla użytkowników którzy wykupili pełny dostęp

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
Sprawdź co oferuje serwis Sprytny Excel »

Masz już konto w serwisie?

Zaloguj się

Adres e-mail:

Hasło

Nie pamiętam hasła
- Twój pierwszy krok do lepszych wyników
Oglądaj pełne lekcje i wiedz więcej!
Masz już konto w serwisie?
Zaloguj się »

Certyfikat rzetelności Laur zaufania SMB logo Top firma