VBA ви позволява да използвате оператори за сравнение за сравняване на стойности. С помощта на тези оператори можете да сравнявате стойности и в резултат да връщате булева стойност True или False.
Списъкът на основните оператори за сравнение във VBA
Първо ще покажем списъка на операторите за сравнение, които могат да се използват във VBA код:
|
Сравнителен оператор | Обяснение |
| = |
Равна на |
|
Не е равно на |
|
|
> |
По-голяма от |
|
>= |
По -голямо или равно на |
| < |
По-малко от |
| <= |
По -малко или равно на |
Равна на
The Равна на операторът проверява дали две стойности са равни и връща True или False. Ето примерния код:
| 123456789101112 | Dim intA като цяло числоDim intB като цяло числоDim bln Резултат Като булевintA = 5intB = 5Ако intA = intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В този пример искаме да проверим дали intA е равно на intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Първо, задаваме стойности на intA и intB до 5:
| 12 | intA = 5intB = 5 |
След това използваме = оператор в оператора If, за да провери дали стойностите на intA и intB са равни:
| 12345 | Ако intA = intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
И двете променливи са равни на 5, следователно blnResult връща True:
Изображение 1. Използване на оператора Equal To
Не е равно на
The Не Равна на операторът проверява дали две стойности не са равни и връща True или False. Ето примерния код:
| Възникна грешка. Моля, опитайте отново по-късно. |
В този пример искаме да проверим дали intA не е равно на intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Ние използваме оператор в оператора If, за да провери дали стойностите на intA и intB са различни:
| 12345 | Ако intA intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
Стойността на intA е 5 и стойността на intB е 6, променливите не са равни, следователно blnResult връща True:
Изображение 2. Използване на оператора Not Equal To
По-голяма от
The По-голяма от операторът проверява дали първата стойност е по -голяма от втората стойност и връща True или False. Ето примерния код:
| 123456789101112 | Dim intA като цяло числоDim intB като цяло числоDim bln Резултат Като булевintA = 6intB = 5Ако intA> intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В този пример искаме да проверим дали intA е по -голямо от intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Освен това използваме > оператор в оператора If, за да провери дали стойността на intA е по -голямо от intB:
| 12345 | Ако intA> intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В заключение, катоintA е по -голямо от intB, blnResult връща True:
Изображение 3. Използване на оператора Greater Than
По -голям или равен на
The По -голямо или равно на операторът проверява дали първата стойност е по -голяма или равна на втората стойност и връща True или False. Ето примерния код:
| 123456789101112 | Dim intA като цяло числоDim intB като цяло числоDim bln Резултат Като булевintA = 5intB = 5Ако intA> = intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В този пример искаме да проверим дали intA е по -голямо или равно на intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Използваме>= оператор в оператора If, за да провери дали стойността на intA е по -голямо или равно на intB:
| 12345 | Ако intA> = intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В заключение, тъй като и двете променливи са равни на 5, blnResult връща True:
Изображение 4. Използване на оператора Greater Than или Equal To
По-малко от
The По-малко от операторът проверява дали първата стойност е по -малка от втората и връща True или False. Ето примерния код:
| 123456789101112 | Dim intA като цяло числоDim intB като цяло числоDim bln Резултат Като булевintA = 5intB = 6Ако intA <intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В този пример искаме да проверим дали intA е по-малко от intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Ние използваме < оператор в оператора If, за да провери дали стойността на intA е по-малко от intB:
| 12345 | Ако intA <intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
Като intA е по-малко от intB, blnResult връща True:
Изображение 5. Използване на оператора Less Than
По -малко или равно на
The По -малко от или Равна на операторът проверява дали първата стойност е по -малка или равна на и връща True или False. Ето примерния код:
| 123456789101112 | Dim intA като цяло числоDim intB като цяло числоDim bln Резултат Като булевintA = 5intB = 5Ако intA <= intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В този пример искаме да проверим дали intA е по -малко или равно на intB. Ако това е вярно, стойността на Boolean blnResult ще бъде вярно, в противен случай ще бъде невярно.
Ние използваме <= оператор в оператора If, за да провери дали стойността на intA е по -малко или равно на intB:
| 12345 | Ако intA <= intB ТогаваblnResult = ВярноИначеblnResult = FalseКрай Ако |
В заключение, тъй като и двете променливи са равни на 5, blnResult връща True:
Изображение 6. Използване на оператора Less Than или Equal To
Оператор ли е
Операторът Is Opera проверява дали две обектни променливи съдържат един и същ обект:
| 12345678910111213 | Sub CompareObjects ()Dim ws1 като работен лист, ws2 като работен листЗадайте ws1 = Листове ("Sheet1")Задайте ws2 = Листове ("Sheet2")Ако ws1 е ws2, тогаваMsgBox „Същият WS“ИначеMsgBox "Различни WSs"Край АкоEnd Sub |
Като оператора
Операторът „Like“ може да се използва за намиране на неточни текстови съвпадения. Този пример ще тества дали низ започва с „Mr.“
| 1234567891011121314 | Sub LikeDemo ()Dim strName As StringDim bln Резултат Като булевstrName = "Мистър Майкъл Джеймс"Ако strName като "Mr*" ТогаваblnResult = ВярноИначеblnResult = FalseКрай АкоEnd Sub |
Ако искате да научите как да сравнявате низове, щракнете тук: VBA Сравняване на низове - StrComp
Ако искате да научите как да използвате оператори за сравнение, щракнете тук: VBA Логически оператори
