Inte lika är en operatör i VBA som också kan betecknas som en negationsoperator, det är en logisk funktion så den utdata som returneras av denna funktion är antingen sant eller falskt, vi vet att lika operatör är "=" detta men inte lika är " ”I VBA så oavsett vilket värde vi får från den lika operatören får vi exakt motsatt värde med Not Equal operator.
"Inte lika" operatör i VBA
Vanligtvis gör vi ett logiskt test "om något är lika med andra saker eller inte." I vissa fall måste vi också göra ”ojämlikhetstestet” . Ojämlikhetstestet är inget annat än inte ett lika test. Generellt säger vi om något är lika med andra saker eller inte, om det är lika, utför någon form av uppgift om inte en annan uppgift. På samma sätt kan vi också göra någon form av operation genom att använda ojämlikhetstestet . ”NOT EQUAL” i VBA representeras av kombinationen av större än och mindre än symboler. Om båda dessa operatörer kombineras blir det inte lika symbol dvs “.”
Hur är inte lika med att fungera i Excel VBA?
VBA Inte lika fungerar precis motsatt logiken för lika med operatören. Lika som operatörens avkastning SANT om det levererade testet inte är uppfyllt inte kommer det att returnera FALSE. Om du till exempel säger 10 = 10, returnerar det SANT eller annars FALSKT.
På andra sidan fungerar "Inte lika" i motsatt riktning. Om det medföljande logiska testet i excel inte är lika, kommer bara det att returnera SANT eller annars FALSE.
Om du till exempel säger 10 10, returnerar den FALSKT eftersom 10 är lika med 10. För att få ett SANT resultat bör ett värde inte vara lika med det andra värdet.
Exempel på inte lika med i Excel VBA
Nedan följer exemplen som inte är lika med operatören i Excel VBA.
Exempel 1
Nu kommer vi att se hur man använder VBA Not Equal () -tecken praktiskt. Titta på kod nedan.
Koda:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Här testar vi om talet 100 inte är lika med antalet 100. Visst vet vi att talet 100 är lika med 100, så resultatet blir FALSKT.
Nu kommer jag att ändra ekvationen.
Koda:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nu är testet huruvida talet 100 inte är lika med 99. Så resultatet blir SANT.
Exempel 2
Nu kommer vi att se hur man använder denna inte lika operatör i realtidsexempel. För demonstrationen har jag skapat lite data.
Vi har två värden, "Värde 1" och "Värde 2".
Nu är mitt krav om värde 1 inte är lika med värde 2, då behöver jag resultatet som "annorlunda", annars behöver jag resultatet som "samma".
Steg 1: Definiera en variabel som ett heltal.
Koda:
Sub NotEqual_Example2 () Dim k Som Integer End Sub
Steg 2: Öppna FÖR NÄSTA LOOP från 2 till 9.
Koda:
Sub NotEqual_Example2 () Dim k som heltal För k = 2 till 9 Nästa k End Sub
Steg 3: Inuti slingan måste vi testa om värde 1 inte är lika med värde 2. Eftersom vi behöver våra egna resultat måste vi använda IF-villkor.
Koda:
Sub NotEqual_Example2 () Dim k Som heltal För k = 2 till 9 Om celler (k, 1) Celler (k, 2) Sedan celler (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Samma" Slut om nästa k Slut Sub
Antag att tillstånd testar om värdet 1 inte är lika med värdet 2 eller inte. Om det inte är lika kommer det att returneras "Annat". Om det är lika kommer det att returneras "Samma".
Du kan kopiera och klistra in nedanstående VBA-kod.
Kopiera den här koden till din modul och kör med F5-tangenten eller manuellt. Detta ger ett resultat som detta.
Dölj och ta bort ark med inte lika tecken
De olika sätten att använda inte lika sing är enorma. Vi kan använda detta tecken för att uppfylla våra behov.
# 1 - Dölj alla ark utom ett ark
Vi har sett denna typ av situation många gånger. Vi behövde dölja alla ark utom det specifika arket.
Om du till exempel vill dölja alla ark utom arknamnet "Kunddata" kan du använda den här koden.
Koda:
Sub Hide_All () Dim Ws som kalkylblad för varje Ws i ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End if Next Ws End Sub
# 2 - Ta bort alla ark utom ett ark
På samma sätt kan vi också ta bort alla ark utom ett ark. Använd koden nedan för att göra detta.
Koda:
Sub Unhide_All () Dim Ws som kalkylblad för varje Ws i ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End if Next Ws End Sub
Du kan ladda ner denna VBA inte lika med Excel-mall här - VBA inte lika operatörsmall.
