Logische operator en | Logische operator of | Logische operator niet
De drie meest gebruikte logische operatoren in Excel VBA zijn: En, Of en Niet. Zoals altijd zullen we eenvoudige voorbeelden gebruiken om dingen duidelijker te maken.
Logische operator en
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim score1 As Integer, score2 As Integer, resultaat As String
score1 = Bereik ("A1"). Waarde
score2 = Bereik ("B1"). Waarde
Als score1 >= 60 En score2 > 1 Dan
resultaat = "pas"
Anders
resultaat = "mislukken"
Stop als
Bereik ("C1"). Waarde = resultaat
Uitleg: als score1 groter is dan of gelijk is aan 60 en score2 groter is dan 1, Excel VBA retourneert geslaagd, anders mislukken Excel VBA-retouren.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Conclusie: Excel VBA-retouren mislukken omdat score2 niet groter is dan 1.
Logische operator of
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim score1 As Integer, score2 As Integer, resultaat As String
score1 = Bereik ("A1"). Waarde
score2 = Bereik ("B1"). Waarde
Als score1 >= 60 Of score2 > 1 Dan
resultaat = "pas"
Anders
resultaat = "mislukken"
Stop als
Bereik ("C1"). Waarde = resultaat
Uitleg: als score1 groter is dan of gelijk is aan 60 of score2 groter is dan 1, Excel VBA retourneert geslaagd, anders mislukken Excel VBA-retouren.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Conclusie: Excel VBA retourneert voldoende omdat score1 groter is dan of gelijk is aan 60.
Logische operator niet
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim score1 As Integer, score2 As Integer, resultaat As String
score1 = Bereik ("A1"). Waarde
score2 = Bereik ("B1"). Waarde
Als score1 >= 60 En geen score2 = 1 Dan
resultaat = "pas"
Anders
resultaat = "mislukken"
Stop als
Bereik ("C1"). Waarde = resultaat
Uitleg: als score1 groter is dan of gelijk is aan 60 en score2 niet gelijk is aan 1, is Excel VBA-retour geslaagd, anders mislukt Excel VBA-retour.
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Conclusie: Excel VBA-retouren mislukken omdat score2 gelijk is aan 1.