VBA vă permite să utilizați operatori de comparație pentru a compara valorile. Utilizând acești operatori, puteți compara valorile și puteți returna un Boolean True sau False ca rezultat.
Lista principalilor operatori de comparație din VBA
În primul rând, vom afișa lista operatorilor de comparație care pot fi utilizați în codul VBA:
|
Operator de comparație | Explicaţie |
| = |
Egal cu |
|
Nu este egal cu |
|
|
> |
Mai mare ca |
|
>= |
Mai mare decât sau egal cu |
| < |
Mai puțin decât |
| <= |
Mai mic sau egal cu |
Egal cu
The Egal cu operatorul verifică dacă două valori sunt egale și returnează True sau False. Iată exemplul de cod:
| 123456789101112 | Dim intA As IntegerDim intB Ca întregDim blnResultat ca booleanintA = 5intB = 5Dacă intA = intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În acest exemplu, vrem să verificăm dacă intA este egal cu intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Mai întâi, stabilim valori de intA și intB la 5:
| 12 | intA = 5intB = 5 |
După aceea, folosim = operator din instrucțiunea If pentru a verifica dacă valorile intA și intB sunt egale:
| 12345 | Dacă intA = intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
Ambele variabile sunt egale cu 5, prin urmare blnResult returnează True:
Imagine 1. Utilizarea operatorului Egal la
Nu este egal cu
The Nu Egal cu operatorul verifică dacă două valori nu sunt egale și returnează True sau False. Iată exemplul de cod:
| A avut loc o eroare. Vă rugăm să încercați din nou mai târziu. |
În acest exemplu, vrem să verificăm dacă intA nu este egal cu intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Noi folosim operator din instrucțiunea If pentru a verifica dacă valorile intA și intB sunt diferite:
| 12345 | Dacă intA intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
Valoarea a intA este 5 și valoarea lui intB este 6, variabilele nu sunt egale, deci blnResult returnează True:
Imagine 2. Utilizarea operatorului Nu este egal cu
Mai mare ca
The Mai mare ca operatorul verifică dacă prima valoare este mai mare decât a doua valoare și returnează True sau False. Iată exemplul de cod:
| 123456789101112 | Dim intA As IntegerDim intB Ca întregDim blnResultat ca booleanintA = 6intB = 5Dacă intA> intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În acest exemplu, vrem să verificăm dacă intA este mai mare decât intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Mai mult, folosim > operator în instrucțiunea If pentru a verifica dacă valoarea lui intA este mai mare decât intB:
| 12345 | Dacă intA> intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În concluzie, caintA este mai mare decât intB, blnResult returnează True:
Imaginea 3. Utilizarea operatorului Greater Than
Mai mare decât sau egal cu
The Mai mare sau egal cu operatorul verifică dacă prima valoare este mai mare sau egală cu a doua valoare și returnează True sau False. Iată exemplul de cod:
| 123456789101112 | Dim intA As IntegerDim intB Ca întregDim blnResultat ca booleanintA = 5intB = 5Dacă intA> = intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În acest exemplu, vrem să verificăm dacă intA este mai mare sau egal cu intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Folosim>= operator din instrucțiunea If pentru a verifica dacă valoarea lui intA este mai mare sau egal cu intB:
| 12345 | Dacă intA> = intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În concluzie, deoarece ambele variabile sunt egale cu 5, valoarea blnResult returnează True:
Imaginea 4. Utilizarea operatorului Mai mare decât sau Egal cu
Mai puțin decât
The Mai puțin decât operatorul verifică dacă prima valoare este mai mică decât a doua valoare și returnează True sau False. Iată exemplul de cod:
| 123456789101112 | Dim intA As IntegerDim intB Ca întregDim blnResultat ca booleanintA = 5intB = 6Dacă intA <intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În acest exemplu, vrem să verificăm dacă intA e mai puțin decât intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Noi folosim < operator din instrucțiunea If pentru a verifica dacă valoarea lui intA e mai puțin decât intB:
| 12345 | Dacă intA <intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
La fel de intA e mai puțin decât intB, blnResult returnează True:
Imagine 5. Utilizarea operatorului Less Than
Mai mic sau egal cu
The Mai puțin de sau Egal cu operatorul verifică dacă prima valoare este mai mică sau egală cu și returnează True sau False. Iată exemplul de cod:
| 123456789101112 | Dim intA As IntegerDim intB Ca întregDim blnResultat ca booleanintA = 5intB = 5Dacă intA <= intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În acest exemplu, vrem să verificăm dacă intA este mai mic sau egal cu intB. Dacă acest lucru este adevărat, valoarea lui Boolean blnResult va fi adevărat, altfel va fi fals.
Noi folosim <= operator în instrucțiunea If pentru a verifica dacă valoarea lui intA este mai mic sau egal cu intB:
| 12345 | Dacă intA <= intB AtunciblnResult = AdevăratAltfelblnResult = FalseEnd If |
În concluzie, deoarece ambele variabile sunt egale cu 5, valoarea blnResult returnează True:
Imagine 6. Utilizarea operatorului Mai puțin decât sau Egal cu
Este Operator
Operatorul Is testează dacă două variabile de obiect conțin același obiect:
| 12345678910111213 | Sub CompareObjects ()Dim ws1 ca foaie de lucru, ws2 ca foaie de lucruSet ws1 = Foi ("Sheet1")Set ws2 = Foi ("Sheet2")Dacă ws1 este ws2 AtunciMsgBox „Same WS”AltfelMsgBox „WS-uri diferite”End IfSfârșitul Sub |
Ca Operator
Operatorul Like poate fi folosit pentru a găsi potriviri inexacte ale textului. Acest exemplu va testa dacă un șir începe cu „Mr.”
| 1234567891011121314 | Sub LikeDemo ()Dim strName As StringDim blnResultat ca booleanstrName = "Domnul Michael James"Dacă strName Ca „Mr. *” AtunciblnResult = AdevăratAltfelblnResult = FalseEnd IfSfârșitul Sub |
Dacă doriți să aflați cum să comparați șirurile, faceți clic aici: VBA Compare Strings - StrComp
Dacă doriți să aflați cum să utilizați operatori de comparație, faceți clic aici: Operatori logici VBA
