Excel VBA har IF Then Else-konstruksjonen som du kan bruke til å analysere flere forhold og utføre koder basert på disse forholdene.
En annen lignende konstruksjon som lar deg sjekke om det er flere forhold, er SELECT CASE-setningen.
Select Case er nyttig når du har tre eller flere forhold du ønsker å sjekke. Du kan også bruke dette med to forhold (men jeg føler If Then Else er lettere å bruke i de tilfellene).
Et enkelt eksempel der Select Case-setningen er nyttig når du ønsker å få karakteren en student basert på karakterene han / hun har fått (dekket som et eksempel senere i denne opplæringen).
Merk: Alle eksempelkodene dekket i denne opplæringen er ment å plasseres i en modul i VBA.
Denne veiledningen dekker:
Velg sakssyntaks
Nedenfor er syntaksen til Velg sak 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 uttrykket hvis verdi vi analyserer ved å bruke forskjellige tilfeller (forklart bedre med eksemplene nedenfor).
- Tilstand_1, Tilstand_2, …: Dette er forholdene som tekstuttrykket testes på. Hvis den oppfyller vilkåret, utføres kodeblokken for den gitte tilstanden.
For hver Select Case-setning du bruker, må du bruke Set Select-setningen.
Merk: Så snart en betingelse er oppfylt, går VBA ut av case case-konstruksjonen. Så hvis du har fem betingelser, og den andre betingelsen er oppfylt, vil VBA avslutte Select Case – og resten av betingelsene vil ikke bli testet.
Velg Case Eksempler
Nå til bedre forstå hvordan du bruker Select Case-uttalelse i VBA, la oss gå gjennom noen få eksempler.
Merk at de fleste eksemplene i denne opplæringen er ment å forklare konseptet. Dette er kanskje ikke den beste måten å få jobben gjort.
La oss starte med et enkelt eksempel på hvordan Select Case lar oss se etter forhold.
Eksempel 1 – Sjekk tallene
I eksemplet nedenfor ber koden brukeren om å oppgi et hvilket som helst tall mellom 1 og 5, og viser deretter en meldingsboks med nummeret brukeren skrev inn.
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