Niet gelijk is een operator in VBA die ook kan worden aangeduid als een negatie-operator, het is een logische functie, dus de uitvoer die door deze functie wordt geretourneerd, is waar of onwaar, we weten dat de operator gelijk is "=" dit maar niet gelijk is " ”In VBA, dus ongeacht de waarde die we krijgen van de gelijk-operator, krijgen we exact de tegenovergestelde waarde met de niet-gelijk-operator.
Operator "niet gelijk" in VBA
Meestal doen we een logische test "of iets gelijk is aan iets anders of niet". In sommige gevallen moeten we ook de "ongelijkheidstest" doen. Ongelijkheidstest is niets anders dan een gelijkwaardige test. Over het algemeen zeggen we dat als iets gelijk is aan iets anders of niet, als het gelijk is een of andere taak uitvoert, zo niet een andere taak. Evenzo kunnen we met behulp van de ongelijkheidstest een of andere bewerking uitvoeren. "NIET GELIJK" in VBA wordt weergegeven door de combinatie van groter dan en kleiner dan symbolen. Als beide operatoren gecombineerd zijn, wordt het geen gelijk symbool, dwz “” .
Hoe niet gelijk aan werken in Excel VBA?
VBA Niet gelijk werkt precies tegengesteld aan de logica van gelijk aan operator. Gelijk aan operator retourneert TRUE als aan de geleverde test wordt voldaan, is dit niet het resultaat FALSE. Als u bijvoorbeeld 10 = 10 zegt, wordt TRUE geretourneerd, of anders FALSE.
Aan de andere kant werkt "Not Equal" in de tegenovergestelde richting, als de aangeleverde logische test in Excel niet gelijk is, dan zal hij alleen TRUE retourneren of anders FALSE.
Als u bijvoorbeeld 10 10 zegt, wordt ONWAAR geretourneerd omdat 10 gelijk is aan 10. Om het resultaat WAAR te krijgen, mag de ene waarde niet gelijk zijn aan de andere waarde.
Voorbeelden van niet gelijk aan in Excel VBA
Hieronder staan de voorbeelden van de operator niet gelijk aan in Excel VBA.
Voorbeeld 1
Nu zullen we zien hoe we VBA Not Equal () teken praktisch kunnen gebruiken. Kijk naar het onderstaande stukje code.
Code:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Hier testen we of het getal 100 niet gelijk is aan het getal 100. We weten zeker dat getal 100 gelijk is aan 100, dus het resultaat zal FALSE zijn.
Nu zal ik de vergelijking veranderen.
Code:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nu is de test of nummer 100 niet gelijk is aan 99. Het resultaat zal dus WAAR zijn.
Voorbeeld # 2
Nu zullen we zien hoe we deze niet-gelijkwaardige operator in realtime voorbeelden kunnen gebruiken. Voor de demonstratie heb ik wat gegevens gemaakt.
We hebben twee waarden, "Waarde 1" en "Waarde 2".
Nu is mijn vereiste dat als Waarde 1 niet gelijk is aan Waarde 2, ik het resultaat nodig heb als "Anders" of anders moet ik het resultaat als "Zelfde" hebben.
Stap 1: definieer een variabele als een geheel getal.
Code:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Stap 2: Open FOR NEXT LOOP van 2 tot 9.
Code:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub
Stap 3: Binnen de lus moeten we testen of waarde 1 niet gelijk is aan waarde 2. Aangezien we onze eigen resultaten nodig hebben, moeten we IF Condition gebruiken.
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
If conditie test of de waarde 1 niet gelijk is aan waarde 2 of niet. Als het niet gelijk is, zal het "Different" retourneren, als het gelijk is, zal het "Same" retourneren.
U kunt de onderstaande VBA-code kopiëren en plakken.
Kopieer deze code naar uw module en voer deze uit met de F5-toets of handmatig. Dit levert een resultaat als dit op.
Verberg en maak bladen zichtbaar met niet-gelijkteken
De verschillende manieren om niet gelijk te zingen zijn enorm. We kunnen dit teken gebruiken om aan onze behoeften te voldoen.
# 1 - Verberg alle bladen behalve één blad
We hebben dit soort situaties vaak gezien. We moesten alle bladen verbergen behalve het specifieke blad.
Als u bijvoorbeeld alle bladen wilt verbergen behalve de bladnaam "Klantgegevens", dan kunt u deze code gebruiken.
Code:
Sub Hide_All () Dim Ws als werkblad voor elke Ws in ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Maak alle bladen zichtbaar behalve één blad
Op dezelfde manier kunnen we ook alle bladen zichtbaar maken, behalve het ene blad. Gebruik hiervoor de onderstaande code.
Code:
Sub Unhide_All () Dim Ws als werkblad voor elke Ws in ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
U kunt deze VBA Not Equal to Excel-sjabloon hier downloaden - VBA Not Equal Operator-sjabloon
