Jednostavna instr funkcija | Početna pozicija | Nula | Instr i If | Pretraživanje ne razlikuje velikih i malih slova
Koristiti Instr u Excel VBA kako bi se pronašao položaj podniz u nizu. Instr funkcija je prilično svestrana.
Postavite naredbeni gumb na radni list i dodajte donje retke koda. Da biste izvršili linije koda, kliknite naredbeni gumb na listu.
Jednostavna instr funkcija
Prema zadanim postavkama, funkcija Instr započinje pretraživanje na početku niza (pozicija 1).
Kodirati:
Zatamnjeno stanje kao niz
state = "Virginia"
MsgBox InStr (stanje, "gin")
Proizlaziti:
Napomena: niz "gin" pronađen je na poziciji 4.
Početni položaj
Druga donja funkcija Instr počinje traženje na poziciji 7.
Kodirati:
Zatamnjeno stanje kao niz
država = "Južna Karolina"
MsgBox InStr (stanje, "o")
MsgBox InStr (7, stanje, "o")
Proizlaziti:
Objašnjenje: prva Instr funkcija pronalazi niz "o" na položaju 2. Druga Instr funkcija započinje pretraživanje na položaju 7 i pronalazi niz "o" na položaju 10.
Nula
Funkcija Instr vraća 0 ako niz nije pronađen (važno što ćemo vidjeti dalje).
Kodirati:
Zatamnjeno stanje kao niz
država = "Florida"
MsgBox InStr (stanje, "mi")
Proizlaziti:
Zaključak: niz "nas" nije pronađen.
Instr i If
Izradimo jednostavan VBA program koji koristi Instr funkcija.
Kodirati:
Zatamni stanje kao niz, podniz kao niz
stanje = Raspon ("A2"). Vrijednost
podniz = raspon ("B2"). Vrijednost
Ako je InStr (stanje, podniz)> 0 Tada
Raspon ("C2"). Vrijednost = "Pronađeno"
Drugo
Raspon ("C2"). Vrijednost = "Nije pronađeno"
Završi ako
Rezultat kada pritisnete naredbeni gumb na listu:
Objašnjenje: niz "outh" pronađen na poziciji 2. Funkcija Instr vraća 2. Kao rezultat toga, Excel VBA postavlja niz "Pronađeno" u ćeliju C2.
Pretraživanje ne razlikuje velikih i malih slova
Prema zadanim postavkama, funkcija Instr vrši pretraživanje osjetljivo na velika i mala slova. Unesite niz "dakota" u ćeliju B2 i kliknite naredbeni gumb na listu.
Objašnjenje: niz "dakota" nije pronađen (prvo slovo nije napisano velikim slovima). Funkcija Instr vraća 0. Zbog toga Excel VBA postavlja niz "Nije pronađeno" u ćeliju C2.
Da biste izvršili pretraživanje bez razlikovanja velikih i malih slova, ažurirajte kôd na sljedeći način:
Zatamni stanje kao niz, podniz kao niz
stanje = Raspon ("A2"). Vrijednost
podniz = raspon ("B2"). Vrijednost
Ako je InStr (1, stanje, podniz, vbTextCompare)> 0 Zatim
Raspon ("C2"). Vrijednost = "Pronađeno"
Drugo
Raspon ("C2"). Vrijednost = "Nije pronađeno"
Završi ako
Rezultat kada pritisnete naredbeni gumb na listu:
Objašnjenje: Gore prikazana funkcija Instr ima 4 argumenta. Da biste izvršili pretraživanje bez razlikovanja velikih i malih slova, uvijek navedite početnu poziciju (prvi argument) i koristite vbTextCompare (četvrti argument).