In plaats van meerdere If Then-statements in Excel VBA, kunt u de Selecteer Case-structuur.
Situatie:
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Declareer eerst twee variabelen. Eén variabele van het type Integer met de naam score en één variabele van het type String met de naam resultaat.
Dim score als geheel getal, resultaat als string
2. We initialiseren de variabele score met de waarde van cel A1.
score = Bereik ("A1"). Waarde
3. Voeg de Select Case-structuur toe.
Selecteer Casescore
Kast is >= 80
resultaat = "zeer goed"
Kast is >= 70
resultaat = "goed"
Kast is >= 60
resultaat = "voldoende"
Geval Anders
resultaat = "onvoldoende"
Einde selecteren
Uitleg: Excel VBA gebruikt de waarde van de variabele score om elke volgende Case-instructie te testen om te zien of de code onder de Case-instructie moet worden uitgevoerd.
4. Schrijf de waarde van het variabele resultaat naar cel B1.
Bereik ("B1"). Waarde = resultaat
5. Test het programma.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Opmerking: Excel VBA voert de code uit onder de tweede Case-instructie voor alle waarden groter dan of gelijk aan 70 en kleiner dan 80.
