VBA kaip operatorius (paprasti pavyzdžiai) Kaip naudoti „Patinka“ „Excel VBA“?

VBA kaip operatorius

„Like“ yra operatorius VBA ir tai yra palyginimo operatorius, kuris lygina tam tikrą eilutę kaip argumentą eilutės rinkinyje ir atitinka modelį, jei modelis atitinka, gautas rezultatas yra teisingas ir jei modelis nesutampa, gautas rezultatas yra klaidingas, tai yra įmontuotas VBA operatorius.

Nepaisant nuostabaus naudojimo, operatorius „LIKE“ yra labiausiai nenaudojamas operatorius. Aš nemačiau daugybės žmonių, kurie visapusiškai naudojasi šiuo operatoriumi koduodami. Tiesą sakant, aš esu vienas iš jų, kuris dažnai nenaudoja šio operatoriaus. Operatorius „VBA LIKE“ leidžia mums suderinti eilutės modelį su visa eilute. Naudodami VBA LIKE operatorių galime palyginti dvi eilutes su pateiktu pavyzdžiu. Mes galime patikrinti, ar eilutėje yra VBA poskyris, ar taip pat, ar eilutėje yra koks nors konkretus formatas. Jei modelis sutampa su eilute, tada operatorius VBA LIKE grąžina TRUE arba dar FALSE.

Derindami eilutes, mes turime naudoti pakaitos simbolius pagal mūsų nurodytą raštą. Žemiau yra pakaitos simboliai, kuriuos naudojame VBA LIKE operatoriuje.

  • Klausimo ženklas (?): Tai naudojama norint suderinti vieną simbolį iš eilutės. Pvz., Jei turime eilutę „CAT“, o šablonas yra „C? T“, tada operatorius VBA LIKE grąžina TRUE. Jei eilutė yra „PAGALBA, o šablonai yra„ C “T“, tada operatorius VBA LIKE grąžina FALSE.
  • Žvaigždutė (*): atitinka nulį ar daugiau simbolių. Pvz., Jei eilutė yra „Gera“, o modelis yra „G ** d“, operatorius VBA LIKE pateikia TRUE.
  • Skliausteliuose ([]): tai atitinka bet kurį vieną skliausteliuose nurodytą simbolį.
  • [Char-Char]: Tai atitinka bet kurį vieną simbolį diapazone Char-Char.
  • [! Ženklai]: Tai atitinka bet kurį simbolį, kuris nėra sąraše.
  • [! Char-Char]: Tai atitinka bet kurį simbolį, kuris nėra „Char-Char“ diapazone.

„VBA LIKE“ operatoriaus pavyzdžiai

Pažiūrėkime keletą „VBA LIKE“ operatoriaus pavyzdžių dabar.

Šį „VBA Like Excel“ šabloną galite atsisiųsti čia - „VBA Like Excel“ šabloną

1 pavyzdys - su klaustuku

Kodas:

 Antrasis klausimasMark_Pavyzdys1 () Dim k As String k = "Geras" Jei k patinka "Go? D", tada MsgBox "Taip" Kita MsgBox "Ne" Pabaiga, jei pabaiga Sub 

Pirmiau pateiktame kode mes pateikėme eilutę kaip „Geras“, o modelis yra „Go? D“. Kadangi klaustukas gali atitikti vieną simbolį, rezultatas bus rodomas kaip „Taip“.

Dabar pakeisiu stygą į „Labas rytas“.

Kodas:

 Antrasis klausimasMark_Pavyzdys1 () Dim k As String k = "Labas rytas", jei k patinka "Go? D", tada MsgBox "Taip" Kita MsgBox "Ne" Pabaiga jei pabaiga Sub 

Tokiu atveju bus rodoma „Ne“, nes mes pridėjome dar vieną žodį prie eilutės, ty „Rytas“. Kad atitiktų bet kokį simbolių skaičių, turime naudoti žvaigždutę.

2 pavyzdys - su žvaigždute

Kodas:

 Antrasis klausimasMark_Example2 () Dim k As String k = "Labas rytas" Jei k patinka "* Geras *" Tada MsgBox "Taip" Kita MsgBox "Ne" Pabaiga jei pabaiga Sub 

Pirmiau pateiktame pavyzdyje aš pridėjau dvi žvaigždutes prieš ir po simbolio „* Geras *“. Tai atitiks žodį „Labas“ eilutėje „Labas rytas“ ir grąžins „Taip“.

3 pavyzdys - su skliaustais []

Kodas:

 Antrasis klausimasMark_Pavyzdys3 () Dim k As String k = "Labas rytas" Jei k patinka "* [M] *" Tada MsgBox "Taip" Kita "MsgBox" Ne "Pabaiga jei pabaiga Sub 

Aukščiau pateiktas kodas atitinka vieną raidę, paminėtą skliauste „M“, ir grąžina rezultatą taip.

4 pavyzdys - su skliaustais ir abėcėlėmis [AZ]

Kodas:

 Antrasis klausimasMark_Pavyzdys4 () Dim k As String k = "Labas rytas" Jei k patinka "* [AD] *" Tada MsgBox "Taip" Kita "MsgBox" Ne "Pabaiga jei pabaiga Sub 

Aukščiau paminėjau simbolius, kurie atitiktų nuo A iki D.

Tai bus grąžinti "ne", nes nėra ženklų iš A į D į eilutę "Labas rytas" .

Dabar pakeisiu modelį į [AH]

Kodas:

 Antrasis klausimasMark_Pavyzdys4 () Dim k As String k = "Labas rytas" Jei k patinka "* [AH] *" Tada MsgBox "Taip" Kita MsgBox "Ne" Pabaiga jei pabaiga Sub 

Tai grąžins „Taip“, nes nuo A iki H eilutėje „Labas rytas“ turime simbolį „G“

Tokiu būdu mes galime naudoti VBA „LIKE“ operatorių, kad bet kuri rašto eilutė atitiktų pakaitos simbolių simbolius.


$config[zx-auto] not found$config[zx-overlay] not found