Not Equal je operater v VBA, ki ga lahko označimo tudi kot negacijski operater, je logična funkcija, zato je izhod, ki ga vrne ta funkcija, true ali false, vemo, da je enak operator "=" to pa ni enako je " ”V VBA, tako da ne glede na vrednost, ki jo dobimo od enakega operaterja, dobimo ravno nasprotno vrednost z operatorjem Not Equal
Operator "Ni enak" v VBA
Običajno naredimo logičen test, "ali je nekaj enako drugim ali ne." V nekaterih primerih moramo opraviti tudi test "neenakosti" . Test neenakosti ni nič drugega kot ne enakovreden test. Na splošno rečemo, če je nekaj enako drugi ali ne, če je enako, opravi kakšno nalogo, če ne drugačno. Podobno lahko s testom neenakosti opravimo tudi kakšno operacijo. “NOT EQUAL” v VBA predstavlja kombinacija večjih in manjših simbolov. Če oba operaterja združita, potem simbol ne postane enak, tj. "."
Kako ni enako kot dela v Excelu VBA?
VBA Ni enak deluje popolnoma nasprotno logiki enak operatorju. Enako operaterju vrne TRUE, če je dobavljeni test izpolnjen, ni, vrnil bo FALSE. Na primer, če rečete 10 = 10, bo vrnilo TRUE ali pa FALSE.
Na drugi strani »Not Equal« deluje v nasprotni smeri. Če priloženi logični test v Excelu ni enak, bo le vrnil TRUE ali sicer FALSE.
Če na primer izgovorite 10 10, bo vrnilo FALSE, ker je 10 enako 10. Da bi dobili TRUE rezultat, ena vrednost ne sme biti enaka drugi vrednosti.
Primeri, ki niso enaki kot v Excelu VBA
Spodaj so primeri, ki niso enaki operatorju v Excelu VBA.
Primer # 1
Zdaj bomo videli, kako praktično uporabiti znak VBA Not Equal (). Poglejte spodnji del kode.
Koda:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Tu preizkušamo, ali število 100 ni enako številu 100. Zagotovo vemo, da je število 100 enako 100, zato bo rezultat LAŽEN.
Zdaj bom spremenil enačbo.
Koda:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Zdaj je preizkus, ali število 100 ni enako 99. Rezultat bo torej TRUE.
2. primer
Zdaj bomo videli, kako uporabiti ta neenaki operator v primerih v realnem času. Za predstavitev sem ustvaril nekaj podatkov.
Imamo dve vrednosti, "Value 1" in "Value 2".
Zdaj je moja zahteva, da če vrednost 1 ni enaka vrednosti 2, potem potrebujem rezultat kot "Drugačen", drugače pa rezultat kot "Enako".
1. korak: Spremenljivko definirajte kot celo število.
Koda:
Sub NotEqual_Example2 () Dim k As Integer End Sub
2. korak: Odprite FOR NEXT LOOP od 2 do 9.
Koda:
Sub NotEqual_Example2 () Dim k Kot celo število Za k = 2 do 9 Naslednji k End Sub
3. korak: Znotraj zanke moramo preizkusiti, ali vrednost 1 ni enaka vrednosti 2. Ker potrebujemo lastne rezultate, moramo uporabiti IF Condition.
Koda:
Sub NotEqual_Example2 () Dim k kot celo število Za k = 2 do 9 Če so celice (k, 1) Celice (k, 2) Potem celice (k, 3). Vrednost = "Različne" Druge celice (k, 3). Vrednost = "Enako" Konec, če je naslednji k Konec Sub
Recimo, da pogoj preizkusi, ali vrednost 1 ni enaka vrednosti 2 ali ne. Če ni enak, bo vrnil »Drugačno«. Če je enako, bo vrnilo »Enako«.
Spodnjo kodo VBA lahko kopirate in prilepite.
Kopirajte to kodo v svoj modul in zaženite s tipko F5 ali ročno. To bo vrnilo tak rezultat.
Skrij in razkrij liste z neenakim znakom
Različnih načinov uporabe neenakega singa je ogromno. Ta znak lahko uporabimo za izpolnitev svojih potreb.
# 1 - Skrij vse liste razen enega lista
Tovrstno situacijo smo videli že večkrat. Morali smo skriti vse liste, razen določenega.
Če želite na primer skriti vse liste, razen imena lista »Podatki kupca«, lahko uporabite to kodo.
Koda:
Sub Hide_All () Dim Ws as Worksheet for each Ws in ActiveWorkbook.Worksheets Če Ws.Name "Customer data" Potem Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - razkrij vse liste razen enega lista
Podobno lahko razkrijemo tudi vse liste, razen enega lista. Za to uporabite spodnjo kodo.
Koda:
Sub Unhide_All () Dim Ws as Worksheet for each Ws in ActiveWorkbook.Worksheets Če Ws.Name "Customer data" Potem Ws.Visible = xlSheetVisible End If Next Ws End Sub
To predlogo VBA Ni enako kot Excel lahko prenesete tukaj - Predloga za operaterja VBA ni enako.
