VBA Like Operator (jednostavni primjeri) - Kako koristiti "Sviđa mi se" u programu Excel VBA?

VBA Like Operator

Like je operator u VBA, a ovo je operator usporedbe koji uspoređuje zadani niz kao argument u skupu nizova i podudara se s uzorkom, ako se obrazac podudara, dobiveni rezultat je istinit, a ako se obrazac ne podudara, dobiveni rezultat je netačan, ovo je ugrađeni operator u VBA.

Operator "LIKE" je operater koji se najviše slabo koristi unatoč izvrsnoj uporabi. Nisam vidio mnogo ljudi koji u potpunosti koriste ovaj operater u svom kodiranju. Zapravo, jedan sam od njih koji ovaj operater ne koristi često. Operator "VBA LIKE" omogućuje nam da uskladimo uzorak niza s cijelim nizom. Korištenjem VBA LIKE operatora možemo usporediti dva niza s danim uzorkom. Možemo provjeriti sadrži li niz podniz u VBA-u ili možemo li sadržavati bilo koji određeni format. Ako se obrazac podudara sa nizom, tada operator VBA LIKE vraća TRUE ili FALSE.

Dok podudaramo nizove, trebamo upotrijebiti zamjenske znakove za obrazac koji odredimo. Ispod su zamjenski znakovi koje koristimo u operateru VBA LIKE.

  • Znak pitanja (?): Koristi se za podudaranje s bilo kojim znakom iz niza. Na primjer, ako imamo niz "CAT", a obrazac je "C? T", tada VBA LIKE operator vraća TRUE. Ako je niz „CATCH, a obrasci„ C? T “, tada VBA LIKE operator vraća FALSE.
  • Zvjezdica (*): Podudara se s nula ili više znakova. Na primjer, ako je niz "Dobro", a uzorak je "G ** d", VBA LIKE operator vraća TRUE.
  • Zagrade (()): Podudara se s bilo kojim pojedinačnim znakom navedenim u zagradama.
  • (Char-Char): Podudara se s bilo kojim pojedinačnim znakom u rasponu Char-Char.
  • (! Znakovi): Podudara se s bilo kojim pojedinačnim znakom koji nije na popisu.
  • (! Char-Char): Podudara se s bilo kojim pojedinačnim znakom koji nije u rasponu Char-Char.

Primjeri operatora VBA LIKE

Pogledajmo sada neke primjere operatora VBA LIKE.

Primjer # 1 - s upitnikom

Kodirati:

Sub QuestionMark_Example1 () Dim k As String k = "Good" If k Like "Go? D" Onda MsgBox "Yes" Else MsgBox "No" End If End Sub

U gornjem kodu dali smo niz kao "Dobar", a uzorak je "Go? D." Budući da se upitnik može podudarati s jednim znakom, rezultat će se prikazati kao "Da".

Sad ću promijeniti niz u "Dobro jutro."

Kodirati:

Sub QuestionMark_Example1 () Dim k As String k = "Good Morning" If k Like "Go? D" Onda MsgBox "Yes" Else MsgBox "No" End If End Sub

U ovom će slučaju pokazati "Ne" jer smo u niz dodali još jednu riječ, tj. Jutro. Da bismo podudarali bilo koji broj znakova, moramo upotrijebiti zvjezdicu.

Primjer # 2 - sa zvjezdicom

Kodirati:

Sub QuestionMark_Example2 () Dim k As String k = "Good Morning" If k Like "* Good *" Onda MsgBox "Yes" Else MsgBox "No" End If End Sub

U gornjem primjeru dodao sam dvije zvjezdice prije i poslije znaka "* Dobro *." Ovo će odgovarati riječi "Dobro" u nizu "Dobro jutro" i vraća "Da".

Primjer # 3 - sa zagradama ()

Kodirati:

Sub QuestionMark_Example3 () Dim k As String k = "Good Morning" If k Like "* (M) *" Onda MsgBox "Yes" Else MsgBox "No" End If End Sub

Gornji kod podudara se s jednim slovom spomenutim u zagradi "M" i vraća rezultat kao Da.

Primjer # 4 - Zagradama i abecedama (AZ)

Kodirati:

Sub QuestionMark_Example4 () Dim k As String k = "Dobro jutro" Ako k Sviđa mi se * * (AD) * "Tada MsgBox" Da "Inače MsgBox" Ne "Kraj ako završi Sub

U gore navedenom spomenuo sam likove koji se podudaraju od A do D.

To će vratiti "Ne" jer u nizu "Dobro jutro" nema znakova od A do D.

Sada ću promijeniti obrazac u (AH)

Kodirati:

Sub QuestionMark_Example4 () Dim k As String k = "Good Morning" If k Like "* (AH) *" Onda MsgBox "Yes" Else MsgBox "No" End If End Sub

To će vratiti "Da", jer od A do H imamo znak "G" u nizu "Dobro jutro".

Kao što je ovo, pomoću VBA operatora „LIKE“ možemo uporediti bilo koji niz iz uzorka s zamjenskim znakovima.

Zanimljivi članci...