VBA "niet gelijk" -operator - Stapsgewijze voorbeelden van VBA "niet gelijk aan"

Inhoudsopgave

Operator "niet gelijk" in VBA

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 wat de waarde ook is die we krijgen van de gelijk-operator, we krijgen 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 andere dingen of niet'. In sommige gevallen moeten we ook de "ongelijkheidstest" doen. De ongelijkheidstest is niets anders dan een gelijkwaardige test. In 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 ook een soort 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 WAAR als aan de geleverde test wordt voldaan, is niet, wordt FALSE geretourneerd. 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 geleverde logische test in Excel niet gelijk is, zal deze alleen TRUE retourneren of anders FALSE.

Als u bijvoorbeeld 10 10 zegt, wordt ONWAAR geretourneerd omdat 10 gelijk is aan 10. Om een WAAR resultaat 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 niet gelijk aan de operator in Excel VBA.

Voorbeeld 1

Nu zullen we zien hoe we het 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 het getal 100 gelijk is aan 100, dus het resultaat is FALSE.

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 het getal 100 niet gelijk is aan 99. Het resultaat is dus WAAR.

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 heb ik het resultaat nodig als 'Zelfde'.

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. Omdat we onze eigen resultaten nodig hebben, moeten we IF Condition gebruiken.

Code:

Sub NotEqual_Example2 () Dim k As Integer For k = 2 tot 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

Stel dat conditie test of de waarde 1 niet gelijk is aan waarde 2 of niet. Als het niet gelijk is, wordt 'Anders' geretourneerd. Als het gelijk is, wordt ‘Same’ geretourneerd.

U kunt de onderstaande VBA-code kopiëren en plakken.

Kopieer deze code naar uw module en voer deze uit met behulp van 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 zingen te gebruiken 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

Opmerking: Wijzig de werkbladnaam in uw werkbladnaam.

# 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