Excel VBA har IF derefter Else-konstruktion, som du kan bruge til at analysere flere forhold og udføre koder baseret på disse betingelser.
En anden lignende konstruktion, der giver dig mulighed for at kontrollere flere betingelser, er SELECT CASE-sætningen.
Select Case er nyttig, når du har tre eller flere betingelser, som du vil have at tjekke. Du kan også bruge dette med to betingelser (men jeg føler, at hvis derefter andet er lettere at bruge i disse tilfælde).
Et simpelt eksempel, hvor Select Case-sætningen er nyttig, når du vil få karakteren af en studerende baseret på de karakterer, han / hun har scoret (dækket som et eksempel senere i denne selvstudie).
Bemærk: Alle de eksempelkoder, der er dækket af denne tutorial, er beregnet til at blive placeret i et modul i VBA.
Denne vejledning dækker:
Vælg sagssyntaks
Nedenfor er syntaksen for Vælg sag i 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: Dette er det udtryk, hvis værdi vi analyserer ved hjælp af forskellige tilfælde (forklaret bedre med eksemplerne nedenfor).
- Betingelse_1, Betingelse_2, …: Dette er de betingelser, som tekstudtrykket testes på. Hvis den opfylder betingelsen, udføres kodeblokken for den givne betingelse.
For hver Select Case-sætning, du bruger, skal du bruge sætningen Select Select.
Bemærk: Så snart en betingelse er opfyldt, forlader VBA den valgte case-konstruktion. Så hvis du har fem betingelser, og den anden betingelse er opfyldt, ville VBA afslutte Select Case – og resten af betingelserne testes ikke.
Vælg Case-eksempler
Nu til bedre forstå, hvordan man bruger Select Case-sætning i VBA, lad os gennemgå et par eksempler.
Bemærk, at de fleste eksempler i denne tutorial er beregnet til at forklare konceptet. Disse er måske ikke den bedste måde at få arbejdet på.
Lad os starte med et simpelt eksempel på, hvordan Select Case tillader os at kontrollere forholdene.
Eksempel 1 – Kontroller numrene
I nedenstående eksempel beder koden brugeren om at indtaste et hvilket som helst tal mellem 1 og 5 og viser derefter en meddelelsesboks med det nummer, brugeren indtastede.
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