W tym artykule zademonstrujemy, jak używać instrukcji VBA Switch.
Instrukcja VBA Switch jest używana w podobny sposób do instrukcji VBA Select Case.
Składnia instrukcji Switch
Instrukcja switch ocenia listę wyrażeń, aby sprawdzić, czy są one prawdziwe, czy fałszywe, i zwraca wartość pierwszych wyrażeń, które są oceniane jako prawdziwe. Lista argumentów składa się z par - wyrażenia i wartości zwracanej, jeśli wyrażenie zostanie ocenione jako prawdziwe.
Przełącznik(expr-1, wartość-1, [ expr-2, wartość-2… , [ wyrażenie-n, wartość-n ]])
Używanie instrukcji Switch w procedurze VBA
Użycie tego w makrze może być podobne do poniższego przykładu:
| 1234567 | Przełącznik testowy podrzędny()Dim strCompany As StringDim CompanyID jako liczba całkowitaIdentyfikator firmy = 2strCompany = Switch(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesNapis końcowy |
Deklarujemy zmienną całkowitą do przechowywania wartości z wyrażeń w instrukcji switch. Następnie deklarujemy inną zmienną łańcuchową, aby zwrócić wartość zawartą w tym wyrażeniu.
Używanie instrukcji Switch z zakresem
Zamiast wpisywać na stałe wartość, którą przełącznik ma oszacować w kodzie, możemy użyć wartości zapisanej w komórce Excela, aby zwrócić żądany ciąg znaków.
| 1234567 | Przełącznik testowy podrzędny()Dim strCompany As StringDim CompanyID jako liczba całkowitaIdentyfikator firmy = zakres ("A2")strCompany = Switch(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesNapis końcowy |
Aby skorzystać z tej procedury, musielibyśmy mieć numer w komórce A2 w arkuszu. Możemy wtedy uruchomić makro, aby uzyskać nazwę firmy (np. Samsung).
Jeśli nie mamy numeru w komórce A3 i uruchomimy kod, zostanie zwrócony błąd typu niezgodność.
Tworzenie niestandardowej funkcji za pomocą przełącznika VBA
Możemy również stworzyć niestandardową funkcję za pomocą przełącznika VBA i użyć jej w naszym skoroszycie.
| 123 | Funkcja SwitchStatement (i jako liczba całkowita) jako ciągSwitchStatement = Switch(i= 1, "Apple", i= 2, "IBM", i= 3, "Samsung")Koniec funkcji |
Aby użyć tego w naszym skoroszycie, możemy użyć okna dialogowego Wstaw funkcję.
Kliknij komórkę A3, a następnie kliknij Wstaw funkcję na pasku funkcji.
W oknie dialogowym Wstaw funkcję wybierz Określony przez użytkownika od Wybierz kategorię rozwijaną listę, a następnie wybierz Przełącz oświadczenie.
Kliknij OK, a następnie kliknij komórkę A2.
Nazwa firmy zapisana w Oświadczeniu o zmianie zostanie zwrócona do naszego arkusza roboczego.
