Zamiast wielu instrukcji If Then w Excel VBA, możesz użyć Wybierz strukturę sprawy.
Sytuacja:
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw zadeklaruj dwie zmienne. Jedna zmienna typu Integer o nazwie score i jedna zmienna typu String o nazwie wynik.
Wynik Dim As Integer, wynik As String
2. Inicjujemy zmienną score wartością komórki A1.
wynik = Zakres("A1").Wartość
3. Dodaj strukturę Select Case.
Wybierz punktację sprawy
Wielkość liter >= 80
wynik = "bardzo dobry"
Przypadek >= 70
wynik = "dobry"
Przypadek jest >= 60
wynik = "wystarczający"
Przypadek inny
wynik = "niewystarczający"
Koniec Wybierz
Wyjaśnienie: Excel VBA używa wartości zmiennej score do testowania każdej kolejnej instrukcji Case, aby sprawdzić, czy kod w instrukcji Case powinien zostać wykonany.
4. Wpisz wartość zmiennej wynik do komórki B1.
Zakres("B1").Wartość = wynik
5. Przetestuj program.
Wynik po kliknięciu przycisku polecenia na arkuszu:
Uwaga: Excel VBA wykonuje kod pod drugą instrukcją Case dla wszystkich wartości większych lub równych 70 i mniejszych niż 80.