Istället för flera If Then -uttalanden i Excel VBA, du kan använda Välj fallstruktur.
Situation:
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först, deklarera två variabler. En variabel av typen Heltal med namnet poäng och en variabel av typen String med namnet resultat.
Dim poäng Som heltal, resultat As String
2. Vi initierar variabeln med värdet på cell A1.
poäng = intervall ("A1"). Värde
3. Lägg till Select Case -strukturen.
Välj fallpoäng
Fall är> = 80
resultat = "mycket bra"
Fall är> = 70
resultat = "bra"
Fall är> = 60
resultat = "tillräckligt"
Case Else
resultat = "otillräckligt"
Avsluta Välj
Förklaring: Excel VBA använder värdet på den variabla poängen för att testa varje efterföljande fallbesked för att se om koden under ärendebeskedet ska köras.
4. Skriv värdet på variabelresultatet till cell B1.
Område ("B1"). Värde = resultat
5. Testa programmet.
Resultat när du klickar på kommandoknappen på arket:
Obs: Excel VBA kör koden under det andra fallet för alla värden som är större än eller lika med 70 och mindre än 80.
