Om då uttalande | Annat uttalande
Använd Om Då uttalande i Excel VBA för att köra kodrader om ett visst villkor är uppfyllt.
Om då uttalande
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
Dim poäng Som heltal, resultat As String
poäng = intervall ("A1"). Värde
Om poäng> = 60 Då resultat = "godkänt"
Område ("B1"). Värde = resultat
Förklaring: om poängen är större än eller lika med 60 returnerar Excel VBA pass.
Resultat när du klickar på kommandoknappen på arket:
Obs! Om poängen är mindre än 60 placerar Excel VBA värdet på det tomma variabelresultatet i cell B1.
Annat uttalande
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
Dim poäng Som heltal, resultat As String
poäng = intervall ("A1"). Värde
Om poäng> = 60 Då
resultat = "godkänt"
Annan
resultat = "misslyckas"
Avsluta om
Område ("B1"). Värde = resultat
Förklaring: om poängen är större än eller lika med 60, returnerar Excel VBA godkänt, annars misslyckas Excel VBA -returer.
Resultat när du klickar på kommandoknappen på arket:
Obs! Endast om du har en kodrad efter Then och ingen Else -sats, är det tillåtet att placera en kodrad direkt efter Then och att utelämna (utelämna) End If (första exemplet). Starta annars en ny rad efter orden Then and Else och avsluta med End If (andra exemplet).