Als Dan Verklaring | Anders-verklaring
Gebruik de Als Dan-verklaring in Excel VBA om coderegels uit te voeren als aan een specifieke voorwaarde is voldaan.
Als Dan-verklaring
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim score als geheel getal, resultaat als string
score = Bereik ("A1"). Waarde
Als score >= 60 Dan resultaat = "geslaagd"
Bereik ("B1"). Waarde = resultaat
Uitleg: als de score groter is dan of gelijk is aan 60, retourneert Excel VBA pass.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Opmerking: als de score lager is dan 60, plaatst Excel VBA de waarde van het lege variabeleresultaat in cel B1.
Anders-verklaring
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim score als geheel getal, resultaat als string
score = Bereik ("A1"). Waarde
Als score >= 60 Dan
resultaat = "pas"
Anders
resultaat = "mislukken"
Stop als
Bereik ("B1"). Waarde = resultaat
Uitleg: als de score groter is dan of gelijk is aan 60, retourneert Excel VBA geslaagd, anders mislukt Excel VBA-retour.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Let op: alleen als u één coderegel achter Then heeft en geen Else-statement, dan is het toegestaan om direct na Then een coderegel te plaatsen en End If weg te laten (weglaten) (eerste voorbeeld). Begin anders een nieuwe regel na de woorden Then en Else en eindig met End If (tweede voorbeeld).
