Instr VBA: Как использовать функцию встроенной строки в VBA

В VBA функция InStr() используется для поиска одной строки в другой и возвращает номер позиции первого вхождения найденной строки (или подстроки).

Синтаксис функции InStr():

InStr([начальная позиция], строка1, строка2, [сравнивать])

где:

• начальная позиция - необязательный параметр, указывает позицию начала поиска. По умолчанию равна 1.
• строка1 - обязательный параметр, строка, в которой производится поиск
• строка2 - обязательный параметр, строка, которую нужно найти
• сравнивать - необязательный параметр, указывает на тип сравнения, может быть vbTextCompare (по умолчанию) или vbBinaryCompare

Примеры использования функции InStr():

1) Найдем первое вхождение подстроки "Hello" в строке "Hello World":

Dim s As String

s = "Hello World"

MsgBox InStr(s, "Hello") ' вернет 1

2) Найдем первое вхождение подстроки "world" в строке "Hello World":

Dim s As String

s = "Hello World"

MsgBox InStr(s, "world") ' вернет 7

3) Найдем все вхождения подстроки "l" в строке "Hello World":

Dim s As String

s = "Hello World"

Dim pos As Integer

pos = InStr(1, s, "l")

Do While pos > 0

' Обрабатываем найденную позицию

' ...

pos = InStr(pos + 1, s, "l") ' ищем следующее вхождение

Loop

В этом примере мы используем цикл, чтобы найти все вхождения подстроки "l". Параметр начальной позиции берется равным 1, затем мы ищем первое вхождение подстроки "l" с помощью функции InStr(), а затем используем цикл, чтобы искать следующие вхождения пока не найдем все.

Таким образом, функция InStr() является полезным инструментом при работе со строками в VBA, и может быть использована для поиска подстроки в строке, а также для выполнения различных других задач.