VBA - Utilisation de l'opérateur Like avec Select Case

VBA - Utilisation de l'opérateur Like avec Select Case

introduction

Dans des circonstances normales, l'instruction Select Case ne fonctionne pas avec l'opérateur Like . Dans cet article, vous apprendrez à surmonter cette limitation (If, ElseIf, ...)

Select Case & Like - Test

Le code suivant montre que Select Case ne fonctionne pas avec l'opérateur Like:

 Sub Select_Case_Like () word = "KAKAO" Sélectionnez le mot de la casse Case mot Like "* K * K *" MsgBox "Good" Autre case MsgBox "Pas bon" End Select End End 

Quel que soit le contenu du mot variable, il retournera toujours "pas bon" ...

Utilisation de l'expression True -Test

Pour utiliser l'opérateur Like dans un cas de sélection, vous devez ajouter l'expression True.

 Sub Select_Case_True_Like () word = "KAO" Sélection de la casse True Mot de la requête comme "* K * K *" MsgBox "Bonne" Cas sinon MsgBox "Pas bon" Fin Sélectionnez un mot = "KAKAO" Sélection de la casse True Mot de la requête comme "* K * K * "MsgBox" Bon "Autre cas MsgBox" Pas bon "End Select End Sub 

Une fonction booléenne utile

La fonction

 Fonction Case_True_Like (word As String) As Boolean Sélectionnez la casse True Mot de la casse comme "* K * K *" Case_True_Like = Vrai Cas sinon Case_True_Like = Faux Fin Sélectionnez Fin 

Invoquer la fonction

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

Conclusion

Cet article offre une alternative à l'utilisation de If ElseIf.