VBA - Usando el operador Like con Select Case
VBA - Usando el operador Like con Select Case
Introducción
En circunstancias normales, la sentencia Select Case no funciona con el operador Like . En este artículo, aprenderá cómo superar esta limitación (Si, ElseIf, ...)Seleccionar caso y como - Prueba
El siguiente código demuestra que Select Case no funciona con el operador Like: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
Cualquiera que sea el contenido de la palabra variable, siempre devolverá "no es bueno" ...
Usando la expresión verdadera -Test
Para utilizar el operador Me gusta en un caso de selección, deberá agregar la expresión True.Sub Select_Case_True_Like () word = "KAO" Select Case True Case palabra Like Like "* K * K *" MsgBox "Good" Case Else MsgBox "Not Good" End Select word = "KAKAO" Select Case True Case word Like "* K * K * "MsgBox" Bueno "Caso Els MsgBox" No es bueno "End Select End Sub
Una función booleana útil.
La función
Función Case_True_Like (word As String) Como Boolean Select Case True Case palabra como "* K * K *" Case_True_Like = True Case Else Case_True_Like = False End Select End Function
Invocando la función
Prueba secundaria () MsgBox Case_True_Like ("KAKAO") End Sub