VBA select case like: operator, string, statement

Under normal circumstances, the Select Case statement doesn't work with the Like operator. In this article you will learn how to overcome this limitation (If, ElseIf,...)
How to use Select Case & Like?
The following code demonstrates that Select Case doesn't work with the Like operator:
Sub Select_Case_Like() word = "KAKAO" Select Case word Case mot Like "*K*K*" MsgBox "Good" Case Else MsgBox "Not Good" End Select End Sub
Whatever the content of the word variable, it will always return "not good" ...
How to use the True expression?
To use the Like operator in a Select Case, you will need to add the True expression.
Sub Select_Case_True_Like() word = "KAO" Select Case True Case word Like "*K*K*" MsgBox "Good" Case Else MsgBox "Not Good" End Select word = "KAKAO" Select Case True Case word Like "*K*K*" MsgBox "Good" Case Else MsgBox "Not Good" End Select End Sub
What is a useful Boolean function?
The function
Function Case_True_Like(word As String) As Boolean Select Case True Case word Like "*K*K*" Case_True_Like = True Case Else Case_True_Like = False End Select End Function
Invoking the function
Sub Test() MsgBox Case_True_Like("KAKAO") End Sub
Need more help with Excel? Check out our forum!
Subject
Replies
Around the same subject
- Vba case like
- Excel vba case like
- Excel vba select case like
- How to enable vba in excel > Guide
- Number to words in excel without vba > Guide
- Select last sheet vba > Guide
- Compare two worksheets and paste differences to another sheet - excel vba free download [solved] > Excel Forum
- How to convert number into text in Excel [solved] > Excel Forum