Preprosta funkcija Instr | Začetni položaj | Nič | Instr in Če | Iskanje brez razlikovanja med velikimi in malimi črkami
Uporaba Instr v Excel VBA najti položaj podniz v nizu. Funkcija Instr je precej vsestranska.
Na svoj delovni list postavite ukazni gumb in spodaj dodajte kodne vrstice. Za izvedbo kodnih vrstic kliknite ukazni gumb na listu.
Preprosta funkcija Instr
Funkcija Instr privzeto začne iskanje na začetku niza (položaj 1).
Koda:
Zatemnjeno stanje kot niz
state = "Virginia"
MsgBox InStr (stanje, "gin")
Rezultat:
Opomba: niz "gin" najdemo na položaju 4.
Začetni položaj
Druga spodnja funkcija Instr začne iskanje na položaju 7.
Koda:
Zatemnjeno stanje kot niz
state = "Južna Karolina"
MsgBox InStr (stanje, "o")
MsgBox InStr (7, stanje, "o")
Rezultat:
Pojasnilo: prva funkcija Instr najde niz "o" na položaju 2. Druga funkcija Instr začne iskanje na položaju 7 in najde niz "o" na položaju 10.
Nič
Funkcija Instr vrne 0, če niza ni najdenega (pomembno, kot bomo videli v nadaljevanju).
Koda:
Zatemnjeno stanje kot niz
state = "Florida"
MsgBox InStr (stanje, "mi")
Rezultat:
Zaključek: niz "nas" ni bil najden.
Instr in Če
Ustvarimo preprost program VBA, ki uporablja Instr funkcija.
Koda:
Zatemni stanje kot niz, podniz kot niz
stanje = obseg ("A2"). Vrednost
podniz = obseg ("B2"). Vrednost
Če je InStr (stanje, podniz)> 0 Potem
Razpon ("C2"). Vrednost = "Najdeno"
Sicer pa
Razpon ("C2"). Vrednost = "Ni najdeno"
Konec Če
Rezultat, ko kliknete ukazni gumb na listu:
Pojasnilo: niz "outh" je bil najden na položaju 2. Funkcija Instr vrne 2. Posledično Excel VBA postavi niz "Najdeno" v celico C2.
Iskanje brez razlikovanja med velikimi in malimi črkami
Funkcija Instr privzeto izvede iskanje glede na velike in male črke. Vnesite niz "dakota" v celico B2 in kliknite ukazni gumb na listu.
Pojasnilo: niz "dakota" ni najden (prva črka ni napisana z veliko začetnico). Funkcija Instr vrne 0. Posledično Excel VBA postavi niz »Ni najdeno« v celico C2.
Za iskanje, ki ne razlikuje med velikimi in malimi črkami, posodobite kodo na naslednji način:
Zatemni stanje kot niz, podniz kot niz
stanje = obseg ("A2"). Vrednost
podniz = obseg ("B2"). Vrednost
Če je InStr (1, stanje, podniz, vbTextCompare)> 0 Potem
Razpon ("C2"). Vrednost = "Najdeno"
Sicer pa
Razpon ("C2"). Vrednost = "Ni najdeno"
Konec Če
Rezultat, ko kliknete ukazni gumb na listu:
Pojasnilo: zgoraj prikazana funkcija Instr ima 4 argumente. Za iskanje, ki ne razlikuje med velikimi in malimi črkami, vedno podajte začetni položaj (prvi argument) in uporabite vbTextCompare (četrti argument).
