VBA - Použití operátoru Like s Select Case

VBA - Použití operátoru Like s Select Case

Úvod

Za normálních okolností příkaz Select Case nepracuje s operátorem Like . V tomto článku se naučíte, jak toto omezení překonat (If, ElseIf, ...)

Vyberte Case & Like - Test

Následující kód ukazuje, že Select Case nepracuje s operátorem Like:

 Sub Select_Case_Like () word = "KAKAO" Vybrat případové slovo Case mot Jako "* K * K *" MsgBox "Dobré" případ Else MsgBox "Není dobré" Konec Vybrat Konec Sub 

Ať už je obsah slova variabilní, vždy se vrátí "není dobré" ...

Pomocí výrazu True - Test

Chcete-li použít operátor Like v případě Select, musíte přidat výraz True.

 Sub Select_Case_True_Like () word = "KAO" Vybrat případ True Case word Like "* K * K *" MsgBox "Good" Case Else MsgBox "Not Good" End Vyberte slovo = "KAKAO" Vybrat Case True Case word Like "* K * K * "MsgBox" Dobrý "případ Else MsgBox" Not Good "Konec Vyberte End Sub 

Užitečná booleovská funkce

Funkce

 Funkce Case_True_Like (slovo As String) Jako logický Vybrat Case True Case word Like "* K * K *" Case_True_Like = True Case Else Case_True_Like = False End Select End Function 

Vyvolání funkce

 Sub Test () MsgBox Case_True_Like ("KAKAO") End Sub 

Závěr

Tento článek nabízí alternativu k použití If ElseIf.