VBA - panašaus operatoriaus naudojimas su pasirinkimo atveju

VBA - panašaus operatoriaus naudojimas su pasirinkimo atveju

Įvadas

Esant įprastoms aplinkybėms, „ Select Case“ pareiškimas neveikia su panašiu operatoriumi. Šiame straipsnyje sužinosite, kaip įveikti šį apribojimą (If, ElseIf, ...)

Pasirinkite Case & Like - Test

Šis kodas rodo, kad „Select Case“ neveikia su panašiu operatoriumi:

 Sub Select_Case_Like () word = "KAKAO" Pasirinkite bylos žodį Case mot Like "* K * K *" MsgBox "Geras" atvejis Kitu MsgBox "Not Good" End Select End Sub 

Nepriklausomai nuo žodžio kintamojo turinio, jis visada grįš „ne gera“ ...

True išraiškos naudojimas -Testas

Jei norite naudoti panašų operatorių pasirinkimo atveju, turėsite pridėti tikrąją išraišką.

 Sub Select_Case_True_Like () word = "KAO" Pasirinkite bylą True Case word Like "* K * K *" MsgBox "Good" Byla Else MsgBox "Not Good" End Pasirinkite žodį = "KAKAO" Pasirinkite Case True Case word Like "* K * K * "MsgBox" Geras atvejis Kitas MsgBox "Ne gera" Pabaiga Pasirinkite Pabaiga 

Naudinga Būlio funkcija

Funkcija

 Funkcija Case_True_Like (žodis kaip eilutė) Kaip Būlio Pasirinkimo atvejis True Case word Like "* K * K *" Case_True_Like = True Case Else Case_True_Like = False End Select End Function 

Naudojant šią funkciją

 Sub testas () MsgBox Case_True_Like („KAKAO“) Pabaiga 

Išvada

Šiame straipsnyje siūloma alternatyva „If ElseIf“ naudojimui.