VBA Excel. Операторы сравнения

Операторы сравнения чисел и строк, ссылок на объекты (Is) и строк по шаблону (Like), использующиеся в VBA Excel. Их особенности, примеры вычислений.

Содержание

Операторы сравнения чисел и строк

Операторы сравнения чисел и строк представлены операторами, состоящими из одного или двух математических знаков равенства и неравенства:

< – меньше;
<= – меньше или равно;
> – больше;
>= – больше или равно;
= – равно;
<> – не равно.

Синтаксис:

1	Результат = Выражение1 Оператор Выражение2

Результат – любая числовая переменная;
Выражение – выражение, возвращающее число или строку;
Оператор – любой оператор сравнения чисел и строк.

Если переменная Результат будет объявлена как Boolean (или Variant), она будет возвращать значения False и True. Числовые переменные других типов будут возвращать значения 0 (False) и -1 (True).

Операторы сравнения чисел и строк работают с двумя числами или двумя строками. При сравнении числа со строкой или строки с числом, VBA Excel сгенерирует ошибку Type Mismatch (несоответствие типов данных):

Sub Primer1()

On Error GoTo Instruk

Dim myRes As Boolean

'Сравниваем строку с числом

myRes = "пять" > 3

Instruk:

If Err.Description <> "" Then

MsgBox "Произошла ошибка: " & Err.Description

End If

End Sub

Сравнение строк начинается с их первых символов. Если они оказываются равны, сравниваются следующие символы. И так до тех пор, пока символы не окажутся разными или одна или обе строки не закончатся.

Значения буквенных символов увеличиваются в алфавитном порядке, причем сначала идут все заглавные (прописные) буквы, затем строчные. Если необходимо сравнить длины строк, используйте функцию Len.

myRes = "семь" > "восемь" 'myRes = True

myRes = "Семь" > "восемь" 'myRes = False

myRes = Len("семь") > Len("восемь") 'myRes = False

Оператор Is – сравнение ссылок на объекты

Оператор Is предназначен для сравнения двух переменных со ссылками на объекты.

Синтаксис:

1	Результат = Объект1 Is Объект2

Результат – любая числовая переменная;
Объект – переменная со ссылкой на любой объект.

Если обе переменные Объект1 и Объект2 ссылаются на один и тот же объект, Результат примет значение True. В противном случае результатом будет False.

Set myObj1 = ThisWorkbook

Set myObj2 = Sheets(1)

Set myObj3 = myObj1

Set myObj4 = Sheets(1)

myRes = myObj1 Is myObj2 'myRes = False

myRes = myObj1 Is myObj3 'myRes = True

myRes = myObj2 Is myObj4 'myRes = True

По-другому ведут себя ссылки на диапазоны ячеек. При присвоении ссылок на один и тот же диапазон нескольким переменным, в памяти создаются уникальные записи для каждой переменной.

Set myObj1 = Range("A1:D4")

Set myObj2 = Range("A1:D4")

Set myObj3 = myObj1

myRes = myObj1 Is myObj2 'myRes = False

myRes = myObj1 Is myObj3 'myRes = True

Оператор Like – сравнение строк по шаблону

Оператор Like предназначен для сравнения одной строки с другой по шаблону.

Синтаксис:

1	Результат = Выражение Like Шаблон

Результат – любая числовая переменная;
Выражение – любое выражение, возвращающее строку;
Шаблон – любое строковое выражение, которое может содержать знаки подстановки.

Строка, возвращенная аргументом Выражение, сравнивается со строкой, возвращенной аргументом Шаблон. Если обе строки совпадают, переменной Результат присваивается значение True, иначе – False.

myRes = "восемь" Like "семь" 'myRes = False

myRes = "восемь" Like "*семь" 'myRes = True

myRes = "Куда идет король" Like "идет" 'myRes = False

myRes = "Куда идет король" Like "*идет*" 'myRes = True

Со знаками подстановки для оператора Like вы можете ознакомиться в статье Знаки подстановки для шаблонов.

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

22 комментария для “VBA Excel. Операторы сравнения”

Евгений 30.08.2021 в 11:13

Добрый день, знающие подскажите.
Сравниваю два списка ТМЦ. Раскладываю каждое ТМЦ на слова (Split) в переменную в одном списке, сравниваю с каждым словом другого списка, при максимальном количестве совпадений засчитываю общее совпадение ТМЦ.
Использую оператор Like. Сравниваю две переменные.
If temp(x) Like SKU(y) Then
point = point + 1
Но в переменную SKU(у) попадают слова ТМЦ с кавычками.
Варианты: *SKU(у)*; «*SKU(у)*» не работают.
Подскажите.

Евгений 30.08.2021 в 19:21

Здравствуйте, Евгений!
Если нужно, чтобы кавычки добавились вокруг SKU(у):

1

Chr(34) & SKU(у) & Chr(34)

или, чтобы кавычки добавились вокруг temp(x):

1

Chr(34) & temp(x) & Chr(34)

Евгений 30.08.2021 в 23:49

Как раз наоборот, в переменную sku(y) попадают кавычки; их и надо игнорировать.
Как с переменной использовать знаки подстановки?
Евгений 31.08.2021 в 00:01

Как раз наоборот, необходимо игнорировать кавычки в переменной, с помощью знаков подстановки для шаблонов.
temp(x) = стол
sku(y) =»стол
Сравнивая эти переменные будет ложь.
temp(x) like ?sku(y) заменить кавычку используя знак вопроса?

Евгений 31.08.2021 в 01:46

Евгений, знаки подстановки могут увеличить количество символов в строке, а не уменьшить. Добавьте еще одну переменную, например, skutemp, чтобы записывать в нее слова без кавычек:

If Left(sku(y), 1) = Chr(34) Then

'если кавычка слева

skutemp = Mid(sku(y), 2)

ElseIf Right(sku(y), 1) = Chr(34) Then

'если кавычка справа

skutemp = Left(sku(y), Len(sku(y)) - 1)

ElseIf Left(sku(y), 1) = Chr(34) And Right(sku(y), 1) = Chr(34) Then

'если кавычки с двух сторон

skutemp = Mid(sku(y), 2, Len(sku(y)) - 2)

Else

'если нет кавычек

skutemp = sku(y)

End If

If temp(x) Like skutemp Then

Point = Point + 1

Или убирайте кавычки перед разбивкой фразы на слова.

Александр 06.12.2021 в 09:06

Добрый день,
я записываю команду Debug.Print x = "text" Like "t*"
и даже Debug.Print x = "text" Like "text"
и все время выдает False.
Этот оператор не всегда работает?
1. Евгений 06.12.2021 в 10:07
  
  Добрый день, Александр!
  Здесь либо так:
  
  1
  
  Debug.Print "text" Like "t*"
  
  либо так:
  
  1
  2
  
  x = "text" Like "t*"
  Debug.Print x
2. 1. Александр 06.12.2021 в 12:48
    
    Спасибо,
    а как маску добавлять к переменной?
  2. 1. Евгений 06.12.2021 в 14:07
      
      Вопрос не понял, но если надо шаблон применить к тексту в переменной, тогда так:
      
      1
      2
      
      x = "text"
      Debug.Print x Like "t*"
Александр 07.12.2021 в 09:19

Спасибо,
еще такой вопрос несколько не по теме. Просто срочно нужно разобраться.
Есть ли в ячейках эксела пустые значения, которые могут восприниматься как числа, скажем нули? И где можно почитать как с этим бороться?

Евгений 07.12.2021 в 17:37

В «пустой» ячейке общего формата содержится значение «Empty», которое записывается в числовую переменную как нуль, в текстовую — как пустая строка. Если вы хотите, чтобы в «пустых» ячейках содержалась пустая строка, присвойте этим ячейкам текстовый формат. Это можно сделать вручную или программно:

1	Range("A1:C20").NumberFormat = "@"

Это, если ячейки будут заполняться позже. Если ячейки уже заполнены, чтобы текстовый формат к ним применился, их нужно перезаписать:

Sub Primer()

Dim myCell As Range

For Each myCell In Range("A1:C20")

With myCell

.NumberFormat = "@"

.Value = .Value

End With

End Sub

Александр 09.12.2021 в 00:24

Я столкнулся с той проблемой, что ко мне приходит в экселе числовой массив большого размера. В нем есть пустые ячейки и нули, иногда ошибки с текстовыми значениями. Для дальнейшей обработки я хотел эту таблицу ячеек загнать в массив, так как иначе очень долго считает и мне не нужно изменять исходную таблицу. Я не определял тип массива, так как если ставить числовой, то загнать из таблицы экселя сходу в массив данные не получается, выдает ошибку. Когда же я строю на основании этого массива другой массив, того же типа Variant получается, что игнорируются нули, хотя в первом array они нормально воспринимались как нули типа Double. При переходе от одного массива к другому возникает какая-то другая интерпретация. А если есть еще промежуточные вспомогательные массивы, то вообще наступает каша. Нужен какой-то простой принцип, как следить за типом данных, и не давать машине заменять нули, «», Empty как ей вздумается.

Евгений 09.12.2021 в 01:49

Могу предложить перезаписывать изначальный массив в текстовый:

Sub Primer()

Dim a() As Variant, b() As String, i As Long, n As Long

a = Range("A1:A10")

n = UBound(a)

ReDim b(1 To n, 1 To 1)

For i = 1 To n

b(i, 1) = CStr(a(i, 1))

Cells(i, "B") = b(i, 1)

If IsNumeric(b(i, 1)) Then Cells(i, "C") = b(i, 1)

End Sub

Разместите в диапазоне «A1:A10» разные значения, которые могут встретиться в вашей таблице. В диапазон «B1:B10» запишутся все значения, прошедшие преобразование в текст. В диапазон «C1:C10» запишутся только текстовые значения, которые интерпретируются как числа.

1. Александр 09.12.2021 в 12:39
  
  Спасибо, буду думать.
  а нуль я так понимаю Double воспринимает как Empty? Я даже когда 0 пытаюсь перезаписать в другую ячейку того же массива, он превращает его в Empty.
2. 1. Евгений 09.12.2021 в 13:15
    
    Это потому что у вас массив As Variant. Если вам не нужны в массиве строки, можете изначальный массив перезаписать в массив As Double, в нем нуль всегда будет нулем:
    
    1
    
    If IsNumeric(a(i, 1)) Then b(i, 1) = CDbl(a(i, 1))
    
    Правда, и строки станут нулями, но их можно преобразовать в какие-то значения, не встречающиеся в таблице:
    
    1
    2
    3
    4
    5
    
    If IsNumeric(a(i, 1)) Then
    b(i, 1) = CDbl(a(i, 1))
    Else
    b(i, 1) = -1111111111
    End If
  2. 1. Александр 11.12.2021 в 02:08
      
      Спасибо,
      да я тоже подумал, что нужно для отсутствующих значений взять какое-то большое отрицательное число.
      В принципе можно при создании новых массивов прописывать каждый раз условие проверки. Тогда получается создавать правильные массивы.
      Подскажите, пожалуйста, еще такой момент. Не смог быстро хелп найти.
      Как правильно объявлять переменные в событиях форм если они связаны с процедурами модулей? Они всегда должны быть Public? Или можно как-то ограничить использование их только определенным модулем и формой?
    2. 1. Евгений 11.12.2021 в 13:16
        
        Если хотите, чтобы переменная была доступна только в модуле, где она расположена, объявите ее перед первой процедурой с помощью ключевого слова Dim или Private. Чтобы переменная была доступна и в других модулях проекта, объявите ее с помощью ключевого слова Public.
      2. Александр 13.12.2021 в 14:06
        
        Это понятно. Я хотел спросить, где доступны переменные, которые объявляются в процедурах форм? Вот если я ввожу переменную в процедуре нажатия кнопки в форме, я ведь могу сделать кнопу в форме и без всякого модуля.
        
        Евгений 13.12.2021 в 14:56
        
        Вопрос:
        «Я хотел спросить, где доступны переменные, которые объявляются в процедурах форм?»
        Ответ:
        Переменные, объявленные в процедуре, доступны только в этой процедуре, независимо от модуля, в котором эта процедура размещена.
        
        Ко второй части:
        У кнопки на форме нет своего модуля, а процедура ее нажатия размещается в модуле этой формы. Процедура нажатия кнопки ActiveX, созданной на рабочем листе, размещается в модуле этого листа.

Александр 13.12.2021 в 14:17

Еще, если можно такой вопрос.
если я задаю одномерный массив как динамический, то программа без проблем его расширяет, но если я задаю двумерный, она пишет, что out of range.
я даже специально сделал упрощенный пример.

1
2
3
4
5
6
7

Dim a() As Double
ReDim a(1 To 1) As Double
h = UBound(a, 1)
'w = UBound(a, 2)
a(1) = 1
h = h + 1
ReDim Preserve a(1 To h) As Double

если вот такой одномерный массив, то все работает.
Но если вот так:

1
2
3
4
5
6
7

Dim a() As Double
ReDim a(1 To 1, 1 To 2) As Double
h = UBound(a, 1)
w = UBound(a, 2)
a(1, 1) = 1
h = h + 1
ReDim Preserve a(1 To h, 1 To w) As Double

то на этой последней строчке выдает ошибку.
не могу понять, в чем тут проблема.
1. Евгений 13.12.2021 в 15:06
  
  Переопределить с оператором Preserve можно только последнюю размерность динамического массива. Это недоработка разработчиков, которая сохранилась и в VBA Excel 2016. Без оператора Preserve можно переопределить все размерности.
  
  Так ошибки не будет:
  
  1
  
  ReDim Preserve a(1 To 1, 1 To w) As Double
2. 1. Александр 14.12.2021 в 00:19
    
    спасибо, понял

Обсуждение закрыто.