Функция VBA: InStr

Описание

Функция VBA INSTR возвращает целое число, соответствующее первой найденной позиции значение в строке символов (или значение 0, если соответствие не найдено).

Синтаксис INSTR

InStr(начальная_позиция, текст, искомое_значение)

Или

InStr(начальная_позиция, текст, искомое_значение, регистр)

Пример VBA InStr

Использование функции InStr для определения позиции слова "excel" (начиная поиск с символа 1 названия сайта):

Sub InStrExample1()
      
     sitename="www.moonexcel.com.ua"
    
     'Позиция слова "excel" в sitename
     position = InStr(1, sitename, "excel")
      
     MsgBox position 'Возвращает: 9
    
End Sub

Использование функции InStr для определения позиции слова "EXCEL" (на этот раз с добавлением значения "1" к 4-му аргументу, чтобы игнорировать регистр):

Sub InStrExample2()
      
     sitename="www.moonexcel.com.ua"
      
     'Позиция слова "EXCEL" в sitename (без учета регистра)
     position = InStr(1, sitename, "EXCEL", 1)
      
     MsgBox position 'Returns: 9
      
End Sub

Проверим, содержит ли текст значения

Функция InStr также может быть использована, чтобы определить, содержит ли название сайта искомую строку:

Sub InStrExample3()
    
     sitename="www.moonexcel.com.ua"
    
     If InStr(1, sitename, "excel") > 0 Then
        MsgBox "Да!"
     End If
    
End Sub

В этом примере, если позиция найдена, функция возвращает число больше 0 и отображается диалоговое окно.