Excel VBA funktioniert nicht
Logische Funktionen sind nützlich für Berechnungen, für deren Prüfung mehrere Bedingungen oder Kriterien erforderlich sind. In unseren früheren Artikeln haben wir die Bedingungen "VBA IF", "VBA OR" und "VBA AND" gesehen. In diesem Artikel werden wir die "VBA NOT" mit IF-Funktion in Excel diskutieren. Um es zuerst zu verstehen, müssen wir uns die Funktion „VBA NOT“ ansehen.
Beispiele
Beispiel 1
Die NOT-Funktion ist auch mit VBA verfügbar und funktioniert genauso wie die Excel-Funktion. Schauen Sie sich zum Beispiel den folgenden Satz von VBA-Code an.
Code:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Im obigen Code haben wir die Variable "k" als Zeichenfolge deklariert.
Dim k As String
Als nächstes haben wir den Wert über die NOT-Funktion zugewiesen. Sagt NOT Function, ob die Zahl 45 gleich 45 ist oder nicht?
k = nicht (45 = 45)
Als nächstes haben wir den Wert return von der NOT-Funktion der Variablen "k" im Meldungsfeld zugewiesen.
MsgBox k
Führen Sie den Code aus und sehen Sie, was das Ergebnis ist.
Beispiel 2 - NICHT mit IF-Funktion
Wie ich in einem der früheren Artikel sagte: "WENN mit anderen logischen Funktionen die besten Paare in Excel sind."
Ebenso ist NOT with IF in vielerlei Hinsicht nützlich. Mit IF können wir unsere eigenen Ergebnisse anstelle der Standardergebnisse von TRUE oder FALSE haben.
Nehmen Sie den gleichen Beispielcode von oben, und wir werden NOT with IF Function anwenden.
Code:
Sub NOT_Example2 () Dim k As String Wenn nicht (45 = 45) Dann k = "Testergebnis ist WAHR" Sonst k = "Testergebnis ist FALSCH" Ende Wenn MsgBox k Ende Sub
Im obigen Code haben wir die Standardergebnisse von "Testergebnis ist FALSCH" und "Testergebnis ist WAHR" geändert . Wenn der angegebene logische Test wahr ist, wird "Testergebnis ist FALSCH" zurückgegeben, und wenn der angegebene logische Test falsch ist, wird er zurückgegeben. "Testergebnis ist WAHR."
Im obigen Code haben wir den Wert 45 = 45, daher erhalten wir die Antwort wie folgt.
Beispiel 3 - Erweitert NICHT
Die NOT-Funktion wird am besten mit der IF-Funktion verwendet. Mit dieser Funktion können wir alle Blätter außer dem einen Blatt ausblenden.
Wir haben verschiedene Blätter, wie folgt in unserem Excel.
Unten finden Sie den Beispielcode zum Ausblenden aller Blätter mit Ausnahme eines bestimmten Blattes.
Code:
Sub NOT_Example3 () Dim Ws als Arbeitsblatt für jedes Ws in ActiveWorkbook.Worksheets Wenn nicht (Ws.Name = "Data Sheet") Dann Ws.Visible = xlSheetVeryHideen End If Next Ws End Sub
Der obige Code verbirgt alle Arbeitsblätter mit Ausnahme des Arbeitsblatts „Datenblatt“.
Mit diesem VBA-Code können Sie alle Blätter außer dem einen Blatt ausblenden, indem Sie den Blattnamen in Ihren Blattnamen ändern.
Zum Beispiel, wie wir auch Blätter in Excel einblenden können. Mit dem folgenden Code werden alle Blätter mit Ausnahme des Blattnamens "Datenblatt" ausgeblendet.
Code:
Sub NOT_Example4 () Dim Ws als Arbeitsblatt für jedes Ws in ActiveWorkbook.Worksheets Wenn nicht (Ws.Name = "Data Sheet") Dann Ws.Visible = xlSheetVisible End If Next Ws End Sub
Mit dem folgenden Code wird nur der Blattname "Datenblatt" ausgeblendet.
Code:
Sub NOT_Example3 () Dim Ws als Arbeitsblatt für jedes Ws in ActiveWorkbook.Worksheets Wenn nicht (Ws.Name "Datenblatt") Dann Ws.Visible = xlSheetVisible End If Next Ws End Sub
