Excel VBA ma konstrukcję IF Then Else, której można używać do analizowania wielu warunków i wykonywania kodów na podstawie tych warunków.
Inną podobną konstrukcją, która umożliwia sprawdzenie wielu warunków, jest instrukcja SELECT CASE.
Funkcja Select Case jest przydatna, gdy masz trzy lub więcej warunków, które chcesz sprawdzić. Możesz również użyć tego z dwoma warunkami (ale wydaje mi się, że w takich przypadkach łatwiej jest użyć If Then Else).
Prosty przykład, w którym instrukcja Select Case jest przydatna, gdy chcesz uzyskać ocenę student na podstawie ocen, które uzyskał (omówione jako przykład w dalszej części tego samouczka).
Uwaga: Wszystkie przykładowe kody omówione w tym samouczku mają być umieszczone w module w języku VBA.
Ten samouczek obejmuje:
Wybierz składnię wielkości liter
Poniżej znajduje się składnia funkcji Wybierz wielkość liter w programie Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: jest to wyrażenie, którego wartość analizujemy za pomocą różnych przypadków (lepiej wyjaśnionych na poniższych przykładach).
- Warunek_1, Warunek_2,…: są to warunki, w których testowane jest wyrażenie tekstowe. Jeśli spełnia warunek, wykonywany jest blok kodu dla danego warunku.
Dla każdej instrukcji Select Case, której używasz, musisz użyć instrukcji End Select.
Uwaga: gdy tylko warunek zostanie spełniony, VBA zamyka konstrukcję wyboru przypadku. Więc jeśli masz pięć warunków, a drugi warunek jest spełniony, VBA zamknie Select Case – a pozostałe warunki nie zostaną przetestowane.
Wybierz przykłady przypadków
Teraz, aby lepiej zrozumieć, jak używać instrukcji Select Case w VBA, przejrzyjmy kilka przykładów.
Zauważ, że większość przykładów w tym samouczku ma na celu wyjaśnienie tej koncepcji. To może być najlepszy sposób wykonania pracy, ale nie musi.
Zacznijmy od prostego przykładu, w jaki sposób Select Case pozwala nam sprawdzić warunki.
Przykład 1 – Sprawdź liczby
W poniższym przykładzie kod prosi użytkownika o wprowadzenie dowolnej liczby od 1 do 5, a następnie wyświetla okno komunikatu z numerem wprowadzonym przez użytkownika.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more