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 patteriu. 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 mūsų nurodytam raštininkui. Ž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“ ir modelis 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 šablonas 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.
- (! Simboliai): Tai atitinka bet kurį simbolį, kurio 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.
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
Ankstesniame 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 eilutę į „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 jis rodys „Ne“, nes į eilutę įtraukėme dar vieną žodį, 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 prieš simbolį „* Geras *“ ir po jo pridėjau dvi žvaigždutes. 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
Aukščiau paminėjau simbolius, kurie atitiktų nuo A iki D.
Tai grąžins „Ne“, nes eilutėje „Labas rytas“ nėra simbolių nuo A iki D.
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
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.
