VBA InStr funkcija

U VBA imamo funkciju koja se zove InStr funkcija koja se koristi za vraćanje pozicije prve pojave podstice u nizu. Što znači, na primjer, da imamo naziv pod nazivom "Jhon" i moramo pronaći pojavu položaja abecede H u nizu. To je ono za što se funkcija koristi.

Formula za InStr funkciju u Excelu VBA

Excel VBA InStr funkcija ima sljedeću sintaksu:

U sintaksi Start i usporedba su opcionalni, dok su potrebne niza i vrijednosti niza. Niz je niz u kojem želimo pronaći podstring i podstina je vrijednost koja se mora naći u nizu. Pretpostavimo da ako bismo morali koristiti gornju sintaksu na našem primjeru Jhona iznad VBA koda, kao što je dolje,

Instr ("Jhon", "H") i rezultat bi bio 2 jer je položaj abecede H 2 u nizu.

Sada krećemo prema neobaveznim dijelovima sintakse koji su, započnite i usporedimo. Start je položaj niza odakle želimo pokrenuti pretraživanje, dok je usporedba tri vrste,

  1. VbUseCompareOption: (-1) Koristi se za usporedbu opcija.
  2. VbBinaryCompare: (0) Koristi se za binarnu usporedbu.
  3. VbTextCompare: (1) Koristi se za tekstualnu usporedbu.

Ali potrebna nam je varijabla za pohranjivanje vrijednosti rezultata. Kako je vrijednost cijeli broj, tako bi definirana varijabla trebala biti i cijeli broj. Ako smo izračunali vrijednost, trebamo prikazati i rezultat, za prikaz rezultata koristimo funkciju msgbox.

Kako se koristi Excel VBA InStr funkcija?

Naučit ćemo kako koristiti VBA InStr Excel funkciju s nekoliko primjera.

Možete preuzeti ovaj VBA InStr Excel predložak ovdje - VBA InStr Excel predložak

VBA InStr funkcija - Primjer # 1

U gornjem obrazloženju koristio sam riječ Jhon kao niz i želio sam pronaći položaj H u nizu. Napisat ću isti kod u VBA i pomoću funkcije Instr pronaći položaj J u nizu.

Slijedite dolje navedene korake za upotrebu funkcije InStr u VBA.

Korak 1: Na kartici Developer kliknite na Visual Basic da biste otvorili VB uređivač.

Korak 2: Jednom kada je modul otvoren, prijavite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Usporedi () Kraj Sub

Korak 3: Sada je funkcija deklarirana, Trebamo proglasiti varijablu za pohranjivanje položaja podstime.

Kodirati:

 Sub Usporedi () Dim Pos As Integer End Sub

Korak 4: Sada pišemo InStr funkciju da saznamo položaj naše podstime.

Kodirati:

 Sub Usporedi () Dim Pos As Integer Pos = InStr ("Jhon", "J") Kraj Sub

Korak 5: Da vratimo poziciju podstrane kao vrijednost, koristimo MsgBox funkciju i zatvorimo potfunkciju.

Kodirati:

 Sub Usporedi () Dim Pos As Integer Pos = InStr ("Jhon", "J") MsgBox Pos End Sub

Korak 6: Ako pokrenemo kôd, prikazuje položaj abecede J u nizu.

Korak 7: Ako promijenimo podstolje da provjerimo da li se kod ispravno izvodi, pronađite abecedu n u nizu.

Kodirati:

 Sub Usporedi () Dim Pos As Integer Pos = InStr ("Jhon", "n") MsgBox Pos End Sub

Korak 8: Ako pokrenemo kod, možemo vidjeti položaj abecede n u nizu.

VBA InStr funkcija - primjer br. 2

Sad smo vidjeli što rade potrebni argumenti funkcije, a sada koristimo fakultativne. String je "Ja sam dobar momak, ali nisam dobar trkač". Pronaći ćemo podstranu "Dobro" iz niza, ali ćemo ignorirati prvo Dobro iz rečenice.

Slijedite dolje navedene korake za upotrebu funkcije InStr u VBA.

Korak 1: Otvorite VB uređivač na kartici programera klikom na Visual Basic.

Korak 2: Započnite s proglašavanjem potfunkcije.

Kodirati:

 Sub Usporedi1 () Kraj Sub

Korak 3: Sada deklarirajte varijablu za spremanje položaja podstime.

Kodirati:

 Sub Usporedi1 () Dim Pos1 Kao Cijeli kraj Sub

Korak 4: Sada ćemo upotrijebiti InStr funkciju da pronađemo položaj niza.

Kodirati:

 Sub Usporedi1 () Dim Pos1 Kao Integer Pos = InStr (12, "Ja sam dobar dečko, ali dobar sam trkač", "Dobar", vbBinaryCompare) Kraj Sub

Korak 5: Sada koristimo Msgbox funkciju za vraćanje vrijednosti niza.

Kodirati:

 Sub Usporedi1 () Dim Pos1 Kao Integer Pos = InStr (12, "Ja sam dobar dečko, ali dobar sam trkač", "Dobar", vbBinaryCompare) MsgBox Pos End Sub

Korak 6: Ako pokrenemo kôd, možemo dobiti poziciju podstrane.

Objašnjenje funkcije instrta Excel VBA

InStr funkcija u VBA koristi se za vraćanje pozicije vrijednosti podstice u nizu. Što se događa ako vrijednost nije pronađena? Ako vrijednost nije pronađena u nizu, prikazani rezultat je nula.

Uvijek se moramo zapamtiti da je funkcija Instr osjetljiva na velika i mala slova. Da bismo to dokazali, prelazimo na primjer 1 gdje smo koristili funkciju instr za pretraživanje abecede.

Što se događa ako podstolje bude "N" umjesto "n"? doznajmo. Promijenio sam slučaj abecede u nizu.

Ako pokrenem kod, dobit ću rezultat kao što je prikazano u nastavku.

Ovo dokazuje da je funkcija instr osetljiva na velika i mala slova.

Stvari koje treba zapamtiti

  • Dva obavezna polja su String i Substring.
  • Funkcija Instr razlikuje velika i mala slova.
  • Vrijednost InStr funkcije je cijeli broj.

Preporučeni članci

Ovo je vodič za VBA InStr funkciju. Ovdje smo raspravljali o tome kako koristiti Excel VBA InStr funkciju uz praktične primjere i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. VBA VLOOKUP funkcija
  2. Excel SWITCH funkcija
  3. Kompletan vodič za VBA o pogrešci
  4. Upotreba trake za pomicanje u Excelu

Kategorija:

VBA