Opérateur VBA

Not Equal est un opérateur dans VBA qui peut également être qualifié d'opérateur de négation, c'est une fonction logique donc la sortie retournée par cette fonction est soit vraie soit fausse, nous savons que l'opérateur égal est «=» mais pas égal est « ”Dans VBA donc quelle que soit la valeur que nous obtenons de l'opérateur égal, nous obtiendrons une valeur exactement opposée en utilisant l'opérateur Not Equal.

Opérateur «Not Equal» dans VBA

Habituellement, nous faisons un test logique «si quelque chose est égal à autre chose ou non». Dans certains cas, nous devons également faire le test de l ' «inégalité» . Le test d' inégalité n'est rien d'autre qu'un test égal. Généralement, nous disons si quelque chose est égal à autre chose ou non, s'il est égal effectue une sorte de tâche sinon une tâche différente. De même, en utilisant le test d' inégalité , nous pouvons également effectuer une sorte d'opération. «NOT EQUAL» dans VBA est représenté par la combinaison de symboles supérieur à et inférieur à. Si ces deux opérateurs se combinent, cela devient un symbole différent, c'est-à-dire «» .

Comment ne pas être égal à fonctionne dans Excel VBA?

VBA Not equal fonctionne exactement à l'opposé de la logique de l'opérateur égal à. L'opérateur égal à renvoie TRUE si le test fourni est satisfait, sinon il retournera FALSE. Par exemple, si vous dites 10 = 10, il renverra TRUE ou FALSE.

De l'autre côté "Not Equal" fonctionne dans le sens opposé, si le test logique fourni dans Excel n'est pas égal, alors seulement il retournera TRUE ou bien FALSE.

Par exemple, si vous dites 10 10, il renverra FALSE car 10 est égal à 10. Afin d'obtenir le résultat TRUE, une valeur ne doit pas être égale à l'autre valeur.

Exemples de pas égal à dans Excel VBA

Vous trouverez ci-dessous les exemples d'opérateur non égal à dans Excel VBA.

Exemple 1

Nous allons maintenant voir comment utiliser pratiquement le signe VBA Not Equal (). Regardez le morceau de code ci-dessous.

Code:

 Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub

Ici, nous testons si le nombre 100 n'est pas égal au nombre 100. Bien sûr, nous savons que le nombre 100 est égal à 100, donc le résultat sera FAUX.

Maintenant, je vais changer l'équation.

Code:

 Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub

Maintenant, le test est de savoir si le nombre 100 n'est pas égal à 99. Le résultat sera donc VRAI.

Exemple # 2

Nous allons maintenant voir comment utiliser cet opérateur non égal dans des exemples en temps réel. Pour la démonstration, j'ai créé des données.

Nous avons deux valeurs, «Valeur 1» et «Valeur 2».

Maintenant, mon exigence est que si la valeur 1 n'est pas égale à la valeur 2, alors j'ai besoin du résultat comme «différent» ou bien j'ai besoin du résultat comme «identique».

Étape 1: définissez une variable comme un entier.

Code:

 Sub NotEqual_Example2 () Dim k As Integer End Sub

Étape 2: Ouvrez FOR NEXT LOOP de 2 à 9.

Code:

 Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub

Étape 3: À l'intérieur de la boucle, nous devons tester si la valeur 1 n'est pas égale à la valeur 2. Puisque nous avons besoin de nos propres résultats, nous devons utiliser la condition IF.

Code:

 Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Same" End If Next k End Sub

Si condition teste si la valeur 1 n'est pas égale à la valeur 2 ou non. S'il n'est pas égal, il retournera «différent», s'il est égal, il retournera «identique».

Vous pouvez copier et coller le code VBA ci-dessous.

Copiez ce code dans votre module et exécutez à l'aide de la touche F5 ou manuellement. Cela renverra un résultat comme celui-ci.

Masquer et afficher les feuilles avec un signe différent

Les différentes manières d'utiliser le chant non égal sont énormes. Nous pouvons utiliser ce signe pour répondre à nos besoins.

# 1 - Masquer toutes les feuilles sauf une feuille

Nous avons vu ce genre de situation à plusieurs reprises. Nous devions cacher toutes les feuilles sauf la feuille particulière.

Par exemple, si vous souhaitez masquer toutes les feuilles à l'exception du nom de feuille «Données client», vous pouvez utiliser ce code.

Code:

 Sub Hide_All () Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub

Remarque: remplacez le nom de la feuille de calcul par le nom de votre feuille de calcul.

# 2 - Afficher toutes les feuilles sauf une feuille

De même, nous pouvons également afficher toutes les feuilles à l'exception d'une seule feuille. Utilisez le code ci-dessous pour ce faire.

Code:

 Sub Unhide_All () Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub