VBA ļauj izmantot salīdzināšanas operatorus, lai salīdzinātu vērtības. Izmantojot šos operatorus, varat salīdzināt vērtības un kā rezultātā atgriezt Būla patieso vai nepatieso vērtību.
Galveno salīdzināšanas operatoru saraksts VBA
Pirmkārt, mēs parādīsim salīdzināšanas operatoru sarakstu, kurus var izmantot VBA kodā:
|
Salīdzināšanas operators | Skaidrojums |
| = |
Vienāds ar |
|
Nav vienāds ar |
|
|
> |
Lielāks nekā |
|
>= |
Lielāks vai vienāds ar |
| < |
Mazāk nekā |
| <= |
Mazāk vai vienādi |
Vienāds ar
The Vienāds ar operators pārbauda, vai divas vērtības ir vienādas, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| 123456789101112 | Dim intA Kā vesels skaitlisDim intB Kā vesels skaitlisDim blnResult Kā BūlaintA = 5intB = 5Ja intA = intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA ir vienāds ar intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Pirmkārt, mēs iestatām vērtības intA un intB līdz 5:
| 12 | intA = 5intB = 5 |
Pēc tam mēs izmantojam = operators If paziņojumā, lai pārbaudītu, vai intA un intB ir vienādi:
| 12345 | Ja intA = intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Abi mainīgie ir vienādi ar 5, tāpēc blnResult atgriež True:
Attēls 1. Operatora Equal To izmantošana
Nav vienāds ar
The Nē Vienāds ar operators pārbauda, vai divas vērtības nav vienādas, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| Radās kļūda. Lūdzu, pamēģiniet vēlreiz vēlāk. |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA nav vienāds ar intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Mēs izmantojam operators If paziņojumā, lai pārbaudītu, vai intA un intB ir dažādi:
| 12345 | Ja intA intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Vērtība intA ir 5 un vērtība intB ir 6, mainīgie nav vienādi, tāpēc blnResult atgriež True:
Attēls 2. Operatora Not Equal To izmantošana
Lielāks nekā
The Lielāks nekā operators pārbauda, vai pirmā vērtība ir lielāka par otro, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| 123456789101112 | Dim intA Kā vesels skaitlisDim intB Kā vesels skaitlisDim blnResult Kā BūlaintA = 6intB = 5Ja intA> intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA ir labāks par intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Turklāt mēs izmantojam > operators If paziņojumā, lai pārbaudītu, vai vērtība intA ir labāks par intB:
| 12345 | Ja intA> intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Noslēgumā, kāintA ir labāks par intB, blnResult atgriež True:
3. attēls. Izmantojot operatoru Greater Than
Lielāks vai vienāds
The Lielāks vai vienāds ar operators pārbauda, vai pirmā vērtība ir lielāka vai vienāda ar otro vērtību, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| 123456789101112 | Dim intA Kā vesels skaitlisDim intB Kā vesels skaitlisDim blnResult Kā BūlaintA = 5intB = 5Ja intA> = intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA ir lielāks vai vienāds ar intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Mēs izmantojam>= operators If paziņojumā, lai pārbaudītu, vai vērtība intA ir lielāks vai vienāds ar intB:
| 12345 | Ja intA> = intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Visbeidzot, tā kā abi mainīgie ir vienādi ar 5, blnResult atgriež True:
Attēls 4. Operatora “Lielāks par vai vienāds” izmantošana
Mazāk nekā
The Mazāk nekā operators pārbauda, vai pirmā vērtība ir mazāka par otro vērtību, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| 123456789101112 | Dim intA Kā vesels skaitlisDim intB Kā vesels skaitlisDim blnResult Kā BūlaintA = 5intB = 6Ja intA <intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA ir mazāks par intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Mēs izmantojam < operators If paziņojumā, lai pārbaudītu, vai vērtība intA ir mazāks par intB:
| 12345 | Ja intA <intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Kā intA ir mazāks par intB, blnResult atgriež True:
5. attēls. Izmantojot operatoru Less Than
Mazāk vai vienādi
The Mazāk par vai Vienāds ar operators pārbauda, vai pirmā vērtība ir mazāka vai vienāda ar, un atgriež patiesu vai nepatiesu. Šeit ir koda piemērs:
| 123456789101112 | Dim intA Kā vesels skaitlisDim intB Kā vesels skaitlisDim blnResult Kā BūlaintA = 5intB = 5Ja intA <= intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Šajā piemērā mēs vēlamies pārbaudīt, vai intA ir mazāks vai vienāds ar intB. Ja tā ir taisnība, Būla vērtība blnResult būs patiess, pretējā gadījumā tas būs nepatiess.
Mēs izmantojam <= operators If paziņojumā, lai pārbaudītu, vai vērtība intA ir mazāks vai vienāds ar intB:
| 12345 | Ja intA <= intB TadblnResult = PatiessCitādiblnResult = NepareiziBeigas Ja |
Visbeidzot, tā kā abi mainīgie ir vienādi ar 5, blnResult atgriež True:
Attēls 6. Operatora izmantošana mazāk par vai vienāds
Ir Operators
Is Operator pārbauda, vai divi objekta mainīgie satur vienu un to pašu objektu:
| 12345678910111213 | Sub CompareObjects ()Dim ws1 kā darblapa, ws2 kā darblapaSet ws1 = Sheets ("Sheet1")Iestatīt ws2 = Sheets ("Sheet2")Ja ws1 Vai ws2 TadMsgBox "Tas pats WS"CitādiMsgBox "Dažādi WS"Beigas JaBeigu apakš |
Tāpat kā Operators
Līdzīgu operatoru var izmantot, lai atrastu neprecīzas teksta atbilstības. Šajā piemērā tiks pārbaudīts, vai virkne sākas ar “Mr.”
| 1234567891011121314 | Sub LikeDemo ()Dim strName As StringDim blnResult Kā BūlastrName = "Maikla Džeimsa kungs"Ja strName Tāpat kā "Mr*" TadblnResult = PatiessCitādiblnResult = NepareiziBeigas JaBeigu apakš |
Ja vēlaties uzzināt, kā salīdzināt virknes, noklikšķiniet šeit: VBA Salīdzināt virknes - StrComp
Ja vēlaties uzzināt, kā izmantot salīdzināšanas operatorus, noklikšķiniet šeit: VBA loģiskie operatori
