A Not Equal egy operátor a VBA-ban, amelyet negációs operátornak is nevezhetünk, ez egy logikai függvény, így a függvény által adott kimenet igaz vagy hamis, tudjuk, hogy az egyenlő operátor "=" ez, de nem egyenlő " ”A VBA-ban, így bármilyen értéket kapunk az egyenlő operátortól, pontosan ellentétes értéket kapunk a Not Equal operátorral.
„Nem egyenlő” üzemeltető a VBA-ban
Általában logikai tesztet hajtunk végre, „hogy valami egyenlő-e más dolgokkal vagy sem.” Bizonyos esetekben el kell végeznünk az „egyenlőtlenség” tesztet is. Az egyenlőtlenségi teszt nem más, mint nem egyenlő teszt. Általában azt mondjuk, hogy ha valami egyenlő más dologgal, vagy sem, ha egyenlő, akkor valamilyen feladatot hajt végre, ha nem más feladatot. Hasonlóképpen, az Inequality teszt segítségével valamilyen műveletet is elvégezhetünk. A VBA-ban szereplő „NEM EGYENLŐ” a szimbólumoknál nagyobb és kevesebb szimbólum kombinációja. Ha mindkét operátor együtt van, akkor az nem lesz azonos szimbólum, azaz „.”
Hogyan nem egyenlő az Excel VBA működésével?
A VBA Not egyenlő pontosan ellentétes az operátorral egyenlő logikájával. Ha az operátorral egyenlő, akkor az IGAZ értéket adja vissza, ha a mellékelt teszt nem teljesül, a FALSE értéket adja vissza. Például, ha azt mondja, hogy 10 = 10, akkor az IGAZ, vagy pedig HAMIS lesz.
A másik oldalon a „Nem egyenlő” ellentétes irányban működik. Ha a mellékelt logikai teszt az excelben nem egyenlő, akkor csak ez adja vissza az IGAZ vagy a HAMIS értéket.
Például, ha 10 10-et mond, akkor a FALSE értéket adja vissza, mert a 10 egyenlő 10-vel. Az IGAZ eredmény elérése érdekében az egyik érték nem lehet egyenlő a másik értékkel.
Példák: Nem egyenlő az Excel VBA-val
Az alábbiakban bemutatjuk az Excel VBA operátorával nem egyenlő példákat.
1. példa
Most meglátjuk, hogyan kell gyakorlatilag használni a VBA Nem egyenlő () jelet. Nézze meg az alábbi kódrészletet.
Kód:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Itt teszteljük, hogy a 100-as szám nem egyenlő-e a 100-as számmal. Egy biztos, tudjuk, hogy a 100-as szám egyenlő 100-zal, így az eredmény HAMIS lesz.
Most megváltoztatom az egyenletet.
Kód:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Most a teszt az, hogy a 100-as szám nem egyenlő-e a 99-vel. Tehát az eredmény IGAZ lesz.
2. példa
Most meglátjuk, hogyan lehet ezt a nem egyenlő operátort valós idejű példákban használni. A demonstrációhoz létrehoztam néhány adatot.
Két értékünk van: „1. érték” és „2. érték”.
Most az a követelményem, hogy ha az 1-es érték nem egyenlő a 2-es értékkel, akkor az eredményre "Különbözőként" van szükségem, különben az eredményre "Ugyanaz" -ra van szükségem.
1. lépés: Adjon meg egy változót egészként.
Kód:
Sub NotEqual_Example2 () Dim k As Integer End Sub
2. lépés: Nyissa meg a KÖVETKEZŐ HATÁST 2-től 9-ig.
Kód:
Sub NotEqual_Example2 () Dim k egész számként k = 2-9-ig Következő k End Sub
3. lépés: A hurok belsejében meg kell vizsgálnunk, hogy az 1-es érték nem egyenlő-e a 2-es értékkel. Mivel saját eredményekre van szükségünk, az IF feltételt kell használnunk.
Kód:
Sub NotEqual_Example2 () Dim k egész szám k = 2 és 9 között, ha cellák (k, 1) cellák (k, 2), akkor cellák (k, 3). Érték = "különböző" egyéb cellák (k, 3). Érték = "Ugyanaz" Vége, ha Következő k Vége Al
Tegyük fel, hogy az állapot teszteli, hogy az 1. érték nem egyenlő-e a 2. értékkel, vagy sem. Ha nem egyenlő, akkor a "Különböző" értéket adja vissza. Ha egyenlő, akkor az „Ugyanaz” értéket adja vissza.
Másolhatja és beillesztheti az alábbi VBA kódot.
Másolja ezt a kódot a moduljába, és futtassa az F5 billentyűvel vagy manuálisan. Ez egy ilyen eredményt ad vissza.
A nem egyenlő jelű táblázatok elrejtése és elrejtése
Hatalmasak az egyenlőtlen ének használatának különféle módjai. Használhatjuk ezt a jelet igényeink kielégítésére.
# 1 - Az összes lap elrejtése, kivéve egy lapot
Sokszor láttunk már ilyen helyzetet. Az összes lapot el kellett rejtenünk, kivéve az adott lapot.
Például, ha minden lapot el akar rejteni, kivéve az „Ügyféladatok” nevet, használhatja ezt a kódot.
Kód:
Sub Hide_All () Dim Ws munkalapként minden W-hez az ActiveWorkbook.Worksheets Ha Ws.Name "Ügyféladatok", akkor Ws.Visible = xlSheetVeryHidden End Ha Következő Ws End Sub
# 2 - Az összes lap elrejtése, egy lap kivételével
Hasonlóképpen, az egyetlen lap kivételével az összes lapot el is rejthetjük. Ehhez használja az alábbi kódot.
Kód:
Sub Unhide_All () Dim Ws, mint munkalap minden W-hez az ActiveWorkbook.Worksheets-ben, ha Ws.Name "Ügyféladatok", akkor Ws.Visible = xlSheetVisible End, ha a következő Ws End al
Ezt a VBA Nem egyenlő az Excel sablont innen töltheti le - VBA Nem egyenlő operátor sablon.
