Met VBA kunt u vergelijkingsoperatoren gebruiken om waarden te vergelijken. Door deze operators te gebruiken, kunt u waarden vergelijken en als resultaat een Boolean True of False retourneren.
De lijst met de belangrijkste vergelijkingsoperators in VBA
Eerst zullen we de lijst met vergelijkingsoperators weergeven die in VBA-code kunnen worden gebruikt:
|
Vergelijkingsoperator | Uitleg |
| = |
Gelijk aan |
|
Niet gelijk aan |
|
|
> |
Groter dan |
|
>= |
Groter dan of gelijk aan |
| < |
Minder dan |
| <= |
Minder dan of gelijk aan |
Gelijk aan
De Gelijk aan operator controleert of twee waarden gelijk zijn en retourneert True of False. Hier is de voorbeeldcode:
| 123456789101112 | Dim intA als geheel getalDim intB als geheel getalDim blnResultaat als BooleaansintA = 5intB = 5Als intA = intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
In dit voorbeeld willen we controleren of intA is gelijk aan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
Eerst stellen we waarden in van intA en intB tot 5:
| 12 | intA = 5intB = 5 |
Daarna gebruiken we de = operator in de If-instructie om te controleren of de waarden van intA en intB zijn gelijk:
| 12345 | Als intA = intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
Beide variabelen zijn gelijk aan 5, dus de blnResultaat geeft waar terug:
Afbeelding 1. De operator Gelijk aan gebruiken
Niet gelijk aan
De Niet Gelijk aan operator controleert of twee waarden niet gelijk zijn en retourneert True of False. Hier is de voorbeeldcode:
| Er is een fout opgetreden. Probeer het later opnieuw. |
In dit voorbeeld willen we controleren of intA is niet gelijk aan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
Wij gebruiken de operator in de If-instructie om te controleren of de waarden van intA en intB zijn verschillend:
| 12345 | Als intA intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
De waarde van intA is 5 en de waarde van intB is 6, de variabelen zijn niet gelijk, daarom is de blnResultaat geeft waar terug:
Afbeelding 2. De operator Niet gelijk aan gebruiken
Groter dan
De Groter dan operator controleert of de eerste waarde groter is dan de tweede waarde en retourneert True of False. Hier is de voorbeeldcode:
| 123456789101112 | Dim intA als geheel getalDim intB als geheel getalDim blnResultaat als BooleaansintA = 6intB = 5Als intA > intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
In dit voorbeeld willen we controleren of intA is groter dan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
Verder gebruiken we de > operator in de If-instructie om te controleren of de waarde van intA is groter dan intB:
| 12345 | Als intA > intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
Tot slot, alsintA is groter dan intB, de blnResultaat geeft waar terug:
Afbeelding 3. De operator Groter dan gebruiken
Groter dan of gelijk aan
De Groter dan of gelijk aan operator controleert of de eerste waarde groter is dan of gelijk is aan de tweede waarde en retourneert True of False. Hier is de voorbeeldcode:
| 123456789101112 | Dim intA als geheel getalDim intB als geheel getalDim blnResultaat als BooleaansintA = 5intB = 5Als intA >= intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
In dit voorbeeld willen we controleren of intA is groter dan of gelijk aan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
We gebruiken de >= operator in de If-instructie om te controleren of de waarde van intA is groter dan of gelijk aan intB:
| 12345 | Als intA >= intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
Concluderend, aangezien beide variabelen gelijk zijn aan 5, is de blnResultaat geeft waar terug:
Afbeelding 4. De operator groter dan of gelijk aan gebruiken
Minder dan
De Minder dan operator controleert of de eerste waarde kleiner is dan de tweede waarde en retourneert True of False. Hier is de voorbeeldcode:
| 123456789101112 | Dim intA als geheel getalDim intB als geheel getalDim blnResultaat als BooleaansintA = 5intB = 6Als intA < intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
In dit voorbeeld willen we controleren of intA is minder dan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
Wij gebruiken de < operator in de If-instructie om te controleren of de waarde van intA is minder dan intB:
| 12345 | Als intA < intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
Als intA is minder dan intB, de blnResultaat geeft waar terug:
Afbeelding 5. De operator Minder dan gebruiken
Minder dan of gelijk aan
De Minder dan of Gelijk aan operator controleert of de eerste waarde kleiner is dan of gelijk is aan en retourneert True of False. Hier is de voorbeeldcode:
| 123456789101112 | Dim intA als geheel getalDim intB als geheel getalDim blnResultaat als BooleaansintA = 5intB = 5Als intA <= intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
In dit voorbeeld willen we controleren of intA is kleiner dan of gelijk aan intB. Als dit waar is, is de waarde van Boolean blnResultaat zal Waar zijn, anders zal het Onwaar zijn.
Wij gebruiken de <= operator in de If-instructie om te controleren of de waarde van intA is kleiner dan of gelijk aan intB:
| 12345 | Als intA <= intB DanblnResult = WaarAndersblnResult = OnwaarStop als |
Concluderend, aangezien beide variabelen gelijk zijn aan 5, is de blnResultaat geeft waar terug:
Afbeelding 6. De operator Kleiner dan of gelijk aan gebruiken
Is operator
De Is-operator test of twee objectvariabelen hetzelfde object bevatten:
| 12345678910111213 | Sub CompareObjects()Dim ws1 als werkblad, ws2 als werkbladStel ws1 = Vellen ("Blad1") inStel ws2 = Vellen ("Blad2") inAls ws1 ws2 is, danMsgBox "Dezelfde WS"AndersMsgBox "Verschillende WS'en"Stop alsEinde sub |
Like-operator
De Like-operator kan worden gebruikt om onnauwkeurige tekstovereenkomsten te vinden. In dit voorbeeld wordt getest of een tekenreeks begint met "Mr."
| 1234567891011121314 | Sub LikeDemo()Dim strName As StringDim blnResultaat als BooleaansstrName = "Meneer Michael James"Als strName Like "Mr*" DanblnResult = WaarAndersblnResult = OnwaarStop alsEinde sub |
Als je wilt leren hoe je strings kunt vergelijken, klik dan hier: VBA Compare Strings - StrComp
Als u wilt leren hoe u vergelijkingsoperatoren kunt gebruiken, klik dan hier: VBA Logical Operators
