Not Equal er en operatør i VBA som også kan betegnes som en negasjonsoperator, det er en logisk funksjon, så utgangen som returneres av denne funksjonen er enten sant eller usant, vi vet at lik operator er "=" dette, men ikke lik er " ”I VBA, så uansett hvilken verdi vi får fra den like operatøren, vil vi få nøyaktig motsatt verdi ved hjelp av Ikke lik operator.
“Ikke like” operatør i VBA
Vanligvis gjør vi en logisk test "om noe er lik andre ting eller ikke." I noen tilfeller må vi også gjøre “ulikhetstesten” . Ulikhetstesten er ingenting, men ikke en lik test. Generelt sier vi om noe er lik andre ting eller ikke, hvis det er likt, utfører en slags oppgave hvis ikke en annen oppgave. På samme måte kan vi også gjøre en slags operasjon ved å bruke ulikhetstesten . “IKKE LIK” i VBA er representert ved kombinasjonen av større enn og mindre enn symboler. Hvis begge disse operatørene kombineres, blir det ikke like symbol, dvs. "."
Hvordan er ikke det samme som fungerer i Excel VBA?
VBA Ikke lik fungerer akkurat motsatt av logikken til lik operatør. Tilsvarende av operatørens retur SANN hvis den leverte testen ikke er tilfredsstilt, vil den returnere FALSE. Hvis du for eksempel sier 10 = 10, vil den returnere SANT ellers FALSE.
På den andre siden fungerer "Ikke lik" i motsatt retning. Hvis den medfølgende logiske testen i excel ikke er lik, vil bare den returnere SANT ellers FALSE.
Hvis du for eksempel sier 10 10, vil den returnere FALSE fordi 10 er lik 10. For å få et SANT resultat, bør ikke en verdi være lik den andre verdien.
Eksempler på ikke lik i Excel VBA
Nedenfor er eksemplene som ikke er lik operatøren i Excel VBA.
Eksempel 1
Nå skal vi se hvordan du bruker VBA Not Equal () -tegn praktisk talt. Se på koden nedenfor.
Kode:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Her tester vi om tallet 100 ikke er lik tallet 100. Vi vet helt sikkert at tallet 100 er lik 100, så resultatet blir FALSK.
Nå skal jeg endre ligningen.
Kode:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nå er testen om tallet 100 ikke er lik 99. Så resultatet blir SANT.
Eksempel 2
Nå skal vi se hvordan du bruker denne ikke like operatøren i sanntidseksempler. Til demonstrasjonen har jeg laget noen data.
Vi har to verdier, “Verdi 1” og “Verdi 2”.
Nå er kravet mitt hvis Verdi 1 ikke er lik Verdi 2, så trenger jeg resultatet som "Annet", ellers trenger jeg resultatet som "Samme."
Trinn 1: Definer en variabel som et heltall.
Kode:
Sub NotEqual_Example2 () Dim k Som Integer End Sub
Trinn 2: Åpne FOR NESTE LOOP fra 2 til 9.
Kode:
Sub NotEqual_Example2 () Dim k Som Heltall For k = 2 Til 9 Neste k End Sub
Trinn 3: Inne i løkken, må vi teste om verdien 1 ikke er lik verdien 2. Siden vi trenger våre egne resultater, må vi bruke IF-tilstand.
Kode:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 Til 9 Hvis celler (k, 1) Celler (k, 2) Så celler (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Samme" slutt hvis neste k slutt sub
Anta at tilstandstester om verdien 1 ikke er lik verdi 2 eller ikke. Hvis ikke lik, vil den returnere "Annerledes". Hvis det er likt, vil det returnere "Samme".
Du kan kopiere og lime inn VBA-koden nedenfor.
Kopier denne koden til modulen din og kjør ved hjelp av F5-tasten eller manuelt. Dette vil gi et resultat som dette.
Skjul og skjul ark med ikke like tegn
De forskjellige måtene å bruke ikke like syng er enorme. Vi kan bruke dette tegnet for å oppfylle våre behov.
# 1 - Skjul alle ark bortsett fra ett ark
Vi har sett denne typen situasjoner mange ganger. Vi trengte å skjule alle arkene unntatt det bestemte arket.
Hvis du for eksempel vil skjule alle ark bortsett fra arknavnet "Kundedata", kan du bruke denne koden.
Kode:
Sub Hide_All () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis Ws.Name "Kundedata", så Ws.Visible = xlSheetVeryHidden End hvis neste Ws End Sub
# 2 - Skjul alle ark unntatt ett ark
På samme måte kan vi også skjule alle arkene unntatt det ene arket. Bruk koden nedenfor for å gjøre dette.
Kode:
Sub Unhide_All () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis Ws.Name "Kundedata", så Ws.Visible = xlSheetVisible End Hvis neste Ws End Sub
Du kan laste ned denne VBA ikke lik Excel-malen her - VBA ikke like operatørmal.
