Excel VBA heeft de IF Then Else-constructie die u kunt gebruiken om meerdere voorwaarden te analyseren en codes uit te voeren op basis van deze voorwaarden.
Een andere vergelijkbare constructie waarmee u op meerdere voorwaarden kunt controleren, is de instructie SELECT CASE.
Case selecteren is handig als u drie of meer voorwaarden wilt controleren. Je kunt dit ook gebruiken met twee voorwaarden (maar ik denk dat If Then Else in die gevallen gemakkelijker te gebruiken is).
Een eenvoudig voorbeeld waarbij de Select Case-instructie handig is als je het cijfer van een wilt halen student op basis van de punten die hij / zij heeft gescoord (als voorbeeld behandeld verderop in deze tutorial).
Opmerking: alle voorbeeldcodes die in deze tutorial worden behandeld, zijn bedoeld om in een module in VBA te worden geplaatst.
Deze tutorial behandelt:
Select Case Syntax
Hieronder staat de syntaxis van Select Case in 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: dit is de uitdrukking waarvan we de waarde analyseren door verschillende gevallen te gebruiken (beter uitgelegd met de onderstaande voorbeelden).
- Conditie_1, Conditie_2,…: dit zijn de condities waarop de tekstexpressie wordt getest. Als het aan de voorwaarde voldoet, wordt het codeblok voor de gegeven voorwaarde uitgevoerd.
Voor elk Select Case-statement dat je gebruikt, moet je het End Select-statement gebruiken.
Opmerking: zodra aan een voorwaarde is voldaan, verlaat VBA de construct select case. Dus als u vijf voorwaarden heeft en aan de tweede voorwaarde is voldaan, verlaat VBA Select Case – en de rest van de voorwaarden wordt niet getest.
Case-voorbeelden selecteren
Nu naar om beter te begrijpen hoe u de Select Case-instructie in VBA kunt gebruiken, laten we een paar voorbeelden doornemen.
Merk op dat de meeste voorbeelden in deze tutorial bedoeld zijn om het concept uit te leggen. Dit kan wel of niet de beste manier zijn om het werk gedaan te krijgen.
Laten we beginnen met een eenvoudig voorbeeld van hoe Select Case ons in staat stelt om te controleren op voorwaarden.
Voorbeeld 1 – Controleer de cijfers
In het onderstaande voorbeeld vraagt de code de gebruiker om een nummer tussen 1 en 5 in te voeren, en toont vervolgens een berichtvenster met het nummer dat de gebruiker heeft ingevoerd.
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