Nicht gleich ist ein Operator in VBA, der auch als Negationsoperator bezeichnet werden kann. Es ist eine logische Funktion, daher ist die von dieser Funktion zurückgegebene Ausgabe entweder wahr oder falsch. Wir wissen, dass der gleiche Operator "=" ist, aber nicht gleich " ”In VBA erhalten wir unabhängig vom Wert, den wir vom Gleichheitsoperator erhalten, mit dem Nicht-Gleichheitsoperator einen genau entgegengesetzten Wert.
Operator "Nicht gleich" in VBA
Normalerweise machen wir einen logischen Test, "ob etwas anderen Dingen gleich ist oder nicht". In einigen Fällen müssen wir auch den „Ungleichheitstest“ durchführen. Der Ungleichheitstest ist nichts anderes als ein gleicher Test. Im Allgemeinen sagen wir, ob etwas gleich ist oder nicht, wenn es gleich ist, führt es eine Art Aufgabe aus, wenn nicht eine andere Aufgabe. In ähnlicher Weise können wir mit dem Ungleichheitstest auch eine Operation ausführen. "NOT EQUAL" in VBA wird durch die Kombination von Symbolen größer und kleiner als dargestellt. Wenn diese beiden Operatoren kombiniert werden, wird das Symbol ungleich, dh "."
Wie funktioniert es nicht in Excel VBA?
VBA Nicht gleich funktioniert genau entgegen der Logik von gleich zum Operator. Gleich, wenn der Operator TRUE zurückgibt, wenn der angegebene Test nicht erfüllt ist, wird FALSE zurückgegeben. Wenn Sie beispielsweise 10 = 10 sagen, wird TRUE oder FALSE zurückgegeben.
Auf der anderen Seite arbeitet „Nicht gleich“ in die entgegengesetzte Richtung. Wenn der angegebene logische Test in Excel nicht gleich ist, gibt nur TRUE oder FALSE zurück.
Wenn Sie beispielsweise 10 10 sagen, wird FALSE zurückgegeben, da 10 gleich 10 ist. Um ein WAHRES Ergebnis zu erhalten, sollte ein Wert nicht gleich dem anderen Wert sein.
Beispiele für Nicht gleich in Excel VBA
Nachfolgend finden Sie Beispiele für ungleich den Operator in Excel VBA.
Beispiel 1
Jetzt werden wir sehen, wie man das VBA Not Equal () - Zeichen praktisch verwendet. Schauen Sie sich den folgenden Code an.
Code:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Hier testen wir, ob die Zahl 100 nicht gleich der Zahl 100 ist. Wir wissen sicher, dass die Zahl 100 gleich 100 ist, daher ist das Ergebnis FALSE.
Jetzt werde ich die Gleichung ändern.
Code:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Jetzt wird geprüft, ob die Zahl 100 nicht gleich 99 ist. Das Ergebnis ist also WAHR.
Beispiel 2
Jetzt werden wir in Echtzeitbeispielen sehen, wie dieser ungleiche Operator verwendet wird. Für die Demonstration habe ich einige Daten erstellt.
Wir haben zwei Werte, "Wert 1" und "Wert 2".
Wenn Wert 1 nicht gleich Wert 2 ist, benötige ich das Ergebnis als "Unterschiedlich" oder das Ergebnis als "Gleich".
Schritt 1: Definieren Sie eine Variable als Ganzzahl.
Code:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Schritt 2: Öffnen Sie FOR NEXT LOOP von 2 bis 9.
Code:
Sub NotEqual_Example2 () Dim k As Integer Für k = 2 bis 9 Next k End Sub
Schritt 3: Innerhalb der Schleife müssen wir testen, ob Wert 1 nicht gleich Wert 2 ist. Da wir unsere eigenen Ergebnisse benötigen, müssen wir die IF-Bedingung verwenden.
Code:
Sub NotEqual_Example2 () Dim k As Integer Für k = 2 bis 9 Wenn Zellen (k, 1) Zellen (k, 2) Dann Zellen (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Same" End If Next k End Sub
Angenommen, Bedingungstests, ob der Wert 1 nicht gleich Wert 2 ist oder nicht. Wenn nicht gleich, wird "Anders" zurückgegeben. Wenn gleich, wird "Same" zurückgegeben.
Sie können den folgenden VBA-Code kopieren und einfügen.
Kopieren Sie diesen Code in Ihr Modul und führen Sie ihn mit der Taste F5 oder manuell aus. Dies gibt ein Ergebnis wie dieses zurück.
Blätter mit ungleichem Vorzeichen ein- und ausblenden
Die verschiedenen Möglichkeiten, ungleiches Singen zu verwenden, sind enorm. Wir können dieses Zeichen verwenden, um unsere Bedürfnisse zu erfüllen.
# 1 - Alle Blätter außer einem Blatt ausblenden
Wir haben diese Situation schon oft gesehen. Wir mussten alle Blätter außer dem jeweiligen Blatt verstecken.
Wenn Sie beispielsweise alle Blätter mit Ausnahme des Blattnamens "Kundendaten" ausblenden möchten, können Sie diesen Code verwenden.
Code:
Sub Hide_All () Dim Ws als Arbeitsblatt für jedes Ws in ActiveWorkbook.Worksheets Wenn Ws.Name "Kundendaten", dann Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Alle Blätter außer einem Blatt einblenden
In ähnlicher Weise können wir auch alle Blätter außer dem einen Blatt einblenden. Verwenden Sie dazu den folgenden Code.
Code:
Sub Unhide_All () Dim Ws als Arbeitsblatt für jedes Ws in ActiveWorkbook.Worksheets Wenn Ws.Name "Kundendaten", dann Ws.Visible = xlSheetVisible End If Next Ws End Sub
Sie können diese VBA-Vorlage "Nicht gleich Excel" hier herunterladen - VBA-Vorlage "Nicht gleich".
