I stedet for flere If Then -udsagn i Excel VBA, du kan bruge Vælg sagsstruktur.
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. Deklarer først to variabler. En variabel af typen Heltal navngivet score og en variabel af typen String navngivet resultat.
Dim score As Integer, result As String
2. Vi initialiserer den variable score med værdien af celle A1.
score = Range ("A1"). Værdi
3. Tilføj Select Case -strukturen.
Vælg Case score
Sag er> = 80
resultat = "meget godt"
Sag er> = 70
resultat = "godt"
Sag er> = 60
resultat = "tilstrækkeligt"
Sag ellers
resultat = "utilstrækkeligt"
Afslut Vælg
Forklaring: Excel VBA bruger værdien af den variable score til at teste hver efterfølgende sagserklæring for at se, om koden under sagserklæringen skal udføres.
4. Skriv værdien af det variable resultat til celle B1.
Område ("B1"). Værdi = resultat
5. Test programmet.
Resultat, når du klikker på kommandoknappen på arket:
Bemærk: Excel VBA udfører koden under den anden case -sætning for alle værdier større end eller lig med 70 og mindre end 80.
