Strona główna Dodatki do Excela, Makra

Programowanie VBA: konstrukcja Select Case

Dodatki do Excela
Makra
0:00czas trwania

Konstrukcja Select Case jest bardzo przydatna przy programowaniu w Visual BASIC-u. Jej działanie w pewien sposób można porównywać do zagnieżdżonej funkcji - jeżeli, funkcji warunki, ale w wymiarze programistycznego kodu, który daje wiele większe możliwości niż wbudowane funkcje. Zapraszamy do nauki programowania VBA!

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ę

Select Case jest instrukcją, która doskonale zastępuje zagnieżdżone instrukcje IF Else, gdy konieczne jest wybieranie pomiędzy wieloma dostępnymi opcjami. Select Case sprawdza podane warunki i wybiera jeden odpowiedni.

Z lekcji dowiesz się:

  • Do czego służy Select Case?

  • Jak liczbę punktów przeliczyć na ocenę ucznia?

  • Jak napisać własny program do oceniania uczniów?

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

Select Case jest instrukcją, która doskonale zastępuje zagnieżdżone instrukcje IF Else, gdy konieczne jest wybieranie pomiędzy wieloma dostępnymi opcjami. Select Case sprawdza podane warunki i wybiera jeden odpowiedni.

Z lekcji dowiesz się:

  • Do czego służy Select Case?

  • Jak liczbę punktów przeliczyć na ocenę ucznia?

  • Jak napisać własny program do oceniania uczniów?

Przykład

Naszym zadaniem jest napisać program, który po podaniu liczby punktów uzyskanych przez ucznia wyświetli informacje o ocenie jaką dostał. Informacje co do punktów i ocen znajdujemy w tabelce umieszczonej w naszym arkuszu.

Select Case Wyrażenie
 Case warunek 1
   Instrukcja wykonywana, gdy Wyrażenie spełnia warunek 1
 Case warunek 2
  Instrukcja wykonywana, gdy Wyrażenie spełnia warunek 2

End Select

Sub Select_Case()

Dim punkty As Integer

punkty = Cells(3, 6).Value

Select Case punkty (nasze wyrażenie, jakim jest liczba punktów wprowadzona przez użytkownika)

Case Is <= 40 -(wartość pierwszego warunku )

MsgBox "Twoja ocena to 2" (instrukcja wykonywana po spełnieniu naszego warunku)

Case Is <= 50

MsgBox "Twoja ocena to 3"

Case Is <= 60

MsgBox "Twoja ocena to 3,5"

Case Is <= 70

MsgBox "Twoja ocena to 4"

Case Is <= 80

MsgBox "Twoja ocena to 4,5"

Case Is <= 90

MsgBox "Twoja ocena to 5"

Case Is <= 100

MsgBox "Twoja ocena to 6"

End Select (warunek kończący pętle Select Case)

End Sub

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 lub login:

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ę »

wiper-pixel