VBA comme opérateur (exemples faciles) - Comment utiliser "J'aime" dans Excel VBA?

Table des matières

VBA comme opérateur

Comme est un opérateur dans VBA et il s'agit d'un opérateur de comparaison qui compare une chaîne donnée en tant qu'argument dans un ensemble de chaînes et il correspond au modèle, si le modèle correspond, le résultat obtenu est vrai et si le modèle ne correspond pas le résultat obtenu est faux, il s'agit d'un opérateur intégré dans VBA.

L'opérateur «LIKE» est l'opérateur le plus sous-utilisé malgré sa merveilleuse utilisation. Je n'ai pas vu beaucoup de gens qui utilisent pleinement cet opérateur dans leur codage. En fait, je suis l'un d'entre eux qui n'utilise pas assez souvent cet opérateur. L'opérateur «VBA LIKE» nous permet de faire correspondre le modèle de la chaîne à la chaîne complète. En utilisant l'opérateur VBA LIKE, nous pouvons comparer deux chaînes avec le motif donné. Nous pouvons vérifier si la chaîne contient une sous-chaîne dans VBA, ou nous pouvons également si la chaîne contient un format spécifique. Si le modèle correspond à la chaîne, alors l'opérateur VBA LIKE retourne TRUE ou bien FALSE.

Lors de la correspondance des chaînes, nous devons utiliser des caractères génériques pour le motif que nous spécifions. Vous trouverez ci-dessous les caractères génériques que nous utilisons dans l'opérateur VBA LIKE.

  • Point d'interrogation (?): Ceci est utilisé pour faire correspondre n'importe quel caractère de la chaîne. Par exemple, si nous avons une chaîne «CAT» et que le modèle est «C? T», alors l'opérateur VBA LIKE renvoie TRUE. Si la chaîne est «CATCH et les modèles sont« C? T », alors l'opérateur VBA LIKE renvoie FALSE.
  • Astérisque (*): correspond à zéro ou plusieurs caractères. Par exemple, si la chaîne est «Good» et que le modèle est «G ** d», l'opérateur VBA LIKE renvoie TRUE.
  • Crochets (()): Cela correspond à n'importe quel caractère unique spécifié entre crochets.
  • (Char-Char): Cela correspond à n'importe quel caractère unique dans la plage Char-Char.
  • (! Chars): Cela correspond à tout caractère unique ne figurant pas dans la liste.
  • (! Char-Char): Cela correspond à tout caractère unique ne faisant pas partie de la plage Char-Char.

Exemples d'opérateur VBA LIKE

Voyons maintenant quelques exemples d'opérateur VBA LIKE.

Exemple # 1 - Avec point d'interrogation

Code:

Sous QuestionMark_Example1 () Dim k As String k = "Good" If k Like "Go? D" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Dans le code ci-dessus, nous avons fourni la chaîne «Good» et le modèle est «Go? D». Étant donné que le point d'interrogation peut correspondre à un seul caractère, le résultat sera "Oui".

Maintenant, je vais changer la chaîne en "Good Morning".

Code:

Sous QuestionMark_Example1 () Dim k As String k = "Good Morning" If k Like "Go? D" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Dans ce cas, il affichera «Non» car nous avons ajouté un mot de plus à la chaîne, c'est-à-dire, Matin. Pour correspondre à un nombre quelconque de caractères, nous devons utiliser l'astérisque.

Exemple # 2 - Avec Asterisk

Code:

Sous QuestionMark_Example2 () Dim k As String k = "Good Morning" If k Like "* Good *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Dans l'exemple ci-dessus, j'ai ajouté deux astérisques avant et après le caractère «* Good *». Cela correspondra au mot "Good" dans la chaîne "Good Morning" et renvoie "Yes".

Exemple # 3 - Avec crochets ()

Code:

Sous QuestionMark_Example3 () Dim k As String k = "Good Morning" If k Like "* (M) *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Le code ci-dessus correspond à la lettre unique mentionnée dans le crochet «M» et renvoie le résultat comme Oui.

Exemple # 4 - Avec crochets et alphabets (AZ)

Code:

Sous QuestionMark_Example4 () Dim k As String k = "Good Morning" If k Like "* (AD) *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Dans ce qui précède, j'ai mentionné les caractères à faire correspondre de A à D.

Cela renverra "Non" car il n'y a aucun caractère de A à D dans la chaîne "Good Morning".

Maintenant, je vais changer le modèle en (AH)

Code:

Sous QuestionMark_Example4 () Dim k As String k = "Good Morning" If k Like "* (AH) *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub

Cela renverra "Oui" car de A à H, nous avons un caractère "G" dans la chaîne "Good Morning".

Comme cela, nous pouvons utiliser l'opérateur VBA «LIKE» pour faire correspondre n'importe quelle chaîne du modèle avec des caractères génériques.

Articles intéressants...