Једноставна инстр функција | Почетна позиција | Нула | Инстр и Иф | Претрага без разликовања великих и малих слова
Употреба Инстр у Екцел ВБА да би се пронашао положај подниза у низу. Инстр функција је прилично свестрана.
Поставите командно дугме на радни лист и додајте доње линије кода. Да бисте извршили линије кода, кликните командно дугме на листу.
Једноставна инстр функција
Подразумевано, функција Инстр почиње тражење на почетку низа (позиција 1).
Код:
Затамњено стање Ас Стринг
стате = "Вирџинија"
МсгБок ИнСтр (стање, "џин")
Резултат:
Напомена: стринг "гин" пронађен на позицији 4.
Почетна позиција
Друга доња функција Инстр почиње тражење на позицији 7.
Код:
Затамњено стање Ас Стринг
стате = "Јужна Каролина"
МсгБок ИнСтр (стање, "о")
МсгБок ИнСтр (7, стање, "о")
Резултат:
Објашњење: прва Инстр функција проналази низ "о" на позицији 2. Друга Инстр функција почиње тражење на позицији 7 и налази низ "о" на позицији 10.
Нула
Функција Инстр враћа 0 ако низ није пронађен (важно што ћемо видети даље).
Код:
Затамњено стање Ас Стринг
стате = "Флорида"
МсгБок ИнСтр (стање, "ми")
Резултат:
Закључак: стринг "нас" није пронађен.
Инстр и Иф
Креирајмо једноставан ВБА програм који користи Инстр функција.
Код:
Затамни стање као низ, подниз као низ
стање = Опсег ("А2"). Вредност
подниз = опсег ("Б2"). Вредност
Ако је ИнСтр (стање, подниз)> 0 Затим
Опсег ("Ц2"). Вредност = "Пронађено"
Иначе
Опсег ("Ц2"). Вредност = "Није пронађено"
Крај Ако
Резултат је када притиснете командно дугме на листу:
Објашњење: стринг "оутх" пронађен на позицији 2. Функција Инстр враћа 2. Као резултат тога, Екцел ВБА поставља низ "Пронађено" у ћелију Ц2.
Претрага без разликовања великих и малих слова
Подразумевано, функција Инстр врши претраживање осетљиво на велика и мала слова. Унесите низ "дакота" у ћелију Б2 и кликните командно дугме на листу.
Објашњење: стринг "дакота" није пронађен (прво слово није велико). Функција Инстр враћа 0. Као резултат тога, Екцел ВБА поставља низ „Није пронађено“ у ћелију Ц2.
Да бисте извршили претрагу која не разликује велика и мала слова, ажурирајте код на следећи начин:
Затамни стање као низ, подниз као низ
стање = Опсег ("А2"). Вредност
подниз = опсег ("Б2"). Вредност
Ако је ИнСтр (1, стање, подниз, вбТектЦомпаре)> 0 Затим
Опсег ("Ц2"). Вредност = "Пронађено"
Иначе
Опсег ("Ц2"). Вредност = "Није пронађено"
Крај Ако
Резултат је када притиснете командно дугме на листу:
Објашњење: Горе приказана функција Инстр има 4 аргумента. Да бисте извршили претрагу која не разликује велика и мала слова, увек наведите почетну позицију (први аргумент) и користите вбТектЦомпаре (четврти аргумент).