Booleaans variabel type
Het VBA Booleaanse gegevenstype wordt gebruikt om True of False-waarden op te slaan. True kan ook worden weergegeven door 1 en False door 0.
Om een Booleaanse variabele te declareren, gebruik je de Dim Statement (afkorting van Dimension):
| 1 | Dim blnA als Boolean |
Om vervolgens een waarde aan een variabele toe te kennen, gebruikt u eenvoudig het gelijkteken:
| 1 | blnA = Waar |
Als je dit in een procedure zet, kan het er als volgt uitzien:
| 123456789101112 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA als Boolean'voer code uit om de variabele te vullen - meestal is de code een if- of een case-statement'Als Bereik ("A1") > 0 danblnA = waarAndersblnA = OnwaarStop als'toon het berichtvenster'MsgBox "De test om te zien of de cel een waarde groter dan 0 heeft is " & blnAEinde sub |
Als u de bovenstaande code uitvoert, wordt het volgende berichtvenster weergegeven.
Booleaanse variabele declareren op module- of globaal niveau
In het vorige voorbeeld hebben we de . gedeclareerd Booleaans variabele binnen een procedure. Variabelen gedeclareerd met een procedure kunnen alleen binnen die procedure worden gebruikt.
In plaats daarvan kunt u Booleaanse variabelen declareren op module- of globaal niveau.
Moduleniveau
Jij verklaart Moduleniveau variabelen bovenaan codemodules met de dim uitspraak.
Deze variabelen kunnen bij elke procedure in die codemodule worden gebruikt.
Globaal niveau
Je geeft ook aan Globaal niveau variabelen bovenaan codemodules. Echter, in plaats van de dim verklaring, zou u de Openbaar verklaring om aan te geven dat de Booleaans variabele is beschikbaar voor gebruik in uw VBA-project.
| 1 | Publieke blnA als Boolean |
Als u de zou aangeven Booleaans variabele op moduleniveau en probeer het dan in een andere module te gebruiken, dan krijg je een foutmelding.
Als u echter het trefwoord Public had gebruikt om de Booleaans variabele, zou de fout niet optreden en zou de procedure perfect verlopen.
Een Booleaanse variabele gebruiken
U gebruikt de Booleaanse variabele in logische vergelijking. Deze worden vaak gebruikt met If-instructies om te testen of een voorwaarde waar of onwaar is, zoals in het bovenstaande voorbeeld, of in een regel code om een logische test toe te passen - misschien om te zien of de ene waarde groter is dan de andere.
| 12345678 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA As Boolean'test om te zien of het ene getal groter is dan het volgende getal'blnA = 45 > 68'toon het berichtvenster'MsgBox blnAEinde sub |
Als u de bovenstaande code uitvoert, krijgt u het volgende berichtvenster.
want 45 is natuurlijk niet groter dan 68!
Booleaanse operatoren gebruiken
Omdat Booleaanse variabelen worden gebruikt in logische vergelijkingen, kunnen we de logische operatoren AND en OR gebruiken om te testen of meer dan één voorwaarde waar of onwaar is.
De AND-operator gebruiken
We kunnen de EN-functie gebruiken om te zien of aan BEIDE voorwaarden is voldaan.
| 12345678 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA As Boolean'gebruik de AND-operator om te testen of beide voorwaarden waar zijn'blnA = 10 > 13 en 15 > 12'toon het berichtvenster'MsgBox blnAEinde sub |
of we kunnen dezelfde test uitvoeren met een If-instructie:
| 123456789101112 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA As Boolean'gebruik de operator AND om te testen of beide voorwaarden waar zijn'Als 10 > 13 En 15 > 12 DanblnA = WaarAndersblnA = OnwaarStop als'toon het berichtvenster'MsgBox blnAEinde sub |
Beide bovenstaande voorbeelden zouden terugkeren ONWAAR vanwege het feit dat 10 is NIET groter dan 13 - en BEIDE voorwaarden moeten True zijn om de Boolean True te laten zijn.
De OR-operator gebruiken
We kunnen de OF-functie gebruiken om te zien of aan EEN VAN de voorwaarden is voldaan.
| 12345678 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA As Boolean'gebruik de operator AND om te testen of beide voorwaarden waar zijn'blnA = 10 > 13 Of 15 > 12'toon het berichtvenster'MsgBox blnAEinde sub |
of we kunnen dezelfde test uitvoeren met een If-instructie:
| 123456789101112 | Sub blnVoorbeeld()'declareer de booleaanse variabele'Dim blnA As Boolean'gebruik de AND-operator om te testen of beide voorwaarden waar zijn'Als 10 > 13 OF 15 > 12 DanblnA = WaarAndersblnA = OnwaarStop als'toon het berichtvenster'MsgBox blnAEinde sub |
Deze voorbeelden zouden terugkeren WAAR vanwege het feit dat 10 NIET groter is dan 13 MAAR 15 IS groter dan 12 - enMAAR EEN voorwaarde moet True zijn om de Boolean True te laten zijn.
Door If-instructies te gebruiken, kunnen we meer logische operatoren gebruiken
De NOT-operator gebruiken
We kunnen ook de operator NOT gebruiken met de Booleaanse variabele. De NOT-operator negeert de waarde van de voorwaarde - dus als een voorwaarde waar is, retourneert de NOT-operator false.
| 12345678910111213141516 | Sub Zoekverschillen()'bereikvariabelen declareren'Dim rng1 Als bereikDim rng2 Als bereik'activeer blad één'Werkbladen ("Blad1"). Activeren'vul de bereiken'Stel rng1 = Bereik ("A3") inStel rng2 = Bereik ("B3") in'gebruik de NOT-operator om te zien of de waarden gelijk zijn of niet.Indien niet rng1.Waarde = rng2.Waarde DanMsgBox "De waarden in de cellen zijn niet gelijk"AndersMsgBox "De waarden in de cellen zijn gelijk"Stop alsEinde sub |
De Xor logische operator gebruiken
DeXor logische operator wordt gebruikt om twee of meer voorwaarden te vergelijken. Als een van de voorwaarden waar is, wordt TRUE geretourneerd. Als er 2 voorwaarden zijn, en GEEN van beide waar of BEIDE waar zijn, wordt ONWAAR geretourneerd.
| 1234567891011121314151617 | Sub blnVoorbeeld()'declareer de gehele getallen'Dim intA als geheel getalDim intB als geheel getal'declareer de booleaanse variabele'Dim blnResultaat als Booleaans'vul de variabelen in'intA = 5intB = 10'controleer of er een waar is'Als intA = 5 Xor intB = 5 DanblnResult = WaarAndersblnResult = OnwaarStop alsMsgBox blnResultaatEinde sub |
In het bovenstaande voorbeeld, aangezien EEN van de voorwaarden WAAR is, zal het berichtvenster terugkeren WAAR.
| 1234567891011121314151617 | Sub blnVoorbeeld()'declareer de gehele getallen'Dim intA als geheel getalDim intB als geheel getal'declareer de booleaanse variabele'Dim blnResultaat als Booleaans'vul de variabelen in'intA = 5intB = 5'controleer of er een waar is'Als intA = 5 Xor intB = 5 DanblnResult = WaarAndersblnResult = OnwaarStop alsMsgBox blnResultaatEinde sub |
Echter, in het bovenstaande voorbeeld, aangezien BEIDE voorwaarden waar zijn, zal het berichtvenster terugkeren ONWAAR.
| 1234567891011121314151617 | Sub blnVoorbeeld()'declareer de gehele getallen'Dim intA als geheel getalDim intB als geheel getal'declareer de booleaanse variabele'Dim blnResultaat als Booleaans'vul de variabelen in'intA = 6intB = 8'controleer of er een waar is'Als intA = 5 Xor intB = 5 DanblnResult = WaarAndersblnResult = OnwaarStop alsMsgBox blnResultaatEinde sub |
en ten slotte, aangezien beide voorwaarden ONWAAR zijn, geeft het berichtvenster ook ONWAAR terug.
