Найти тему
VBA Excel с нуля

VBA Excel № 65. Оператор Like в VBA.

Оглавление
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Оператор Like в языке программирования VBA используется для сравнения строк с шаблонами. Шаблоны могут содержать символы подстановки, такие как "*" (заменяет любую последовательность символов) и "?" (заменяет любой одиночный символ). В нашей функции УБРАТЬ_ГЛАСНЫЕ (описанные в статье №60), оператор Like использовался для проверки, является ли символ гласным.

Вот некоторые примеры использования оператора Like в VBA, которые могут натолкнуть Вас на интересные идеи:

1. Поиск слов, которые начинаются с определенной буквы:

  • Sub Тест_1()
  • Dim Word As String
  • Word = "Земля"
  • If Word Like "З*" Then
  • ' Действия, выполняемые, если слово начинается с 'З'
  • End If
  • End Sub
Скриншот с моего ноутбука
Скриншот с моего ноутбука

2. Поиск слов, которые заканчиваются на определенную последовательность символов:

  • Sub Тест_2()
  • Dim Word As String
  • Word = "Земля"
  • If Word Like "*ля" Then
  • ' Действия, выполняемые, если слово заканчивается на 'ля'
  • End If
  • End Sub
Скриншот с моего ноутбука
Скриншот с моего ноутбука

3. Поиск строк, содержащих определенные символы:

  • Sub Тест_3()
  • Dim Text As String
  • Text = "12345 Земля"
  • If Text Like "*[0-9]*" Then
  • ' Действия, выполняемые, если строка содержит цифры
  • End If
  • End Sub
Скриншот с моего ноутбука
Скриншот с моего ноутбука

4. Поиск строк, которые не содержат определенные символы:

  • Sub Тест_4()
  • Dim Text As String
  • Text = "Земля"
  • If Not Text Like "*[АЕЁИОУЫЭЮЯаеёиоуыэюя]*" Then
  • ' Действия, выполняемые, если строка не содержит гласных букв
  • End If
  • End Sub
Скриншот с моего ноутбука
Скриншот с моего ноутбука

5. Поиск строк с определенной длиной:

  • Sub Тест_5()
  • Dim Text As String
  • Text = "Земля"
  • If Text Like "?????" Then
  • ' Действия, выполняемые, если строка содержит ровно 5 символов
  • End If
  • End Sub
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Наука
7 млн интересуются