Not Equal on VBA operaator, mida võib nimetada ka eitusoperaatoriks, see on loogiline funktsioon, nii et selle funktsiooni tagastatud väljund on kas tõene või vale, me teame, et võrdne operaator on "=" see, kuid mitte võrdne on " ”VBA-s, nii et sõltumata väärtusest, mille saame võrdselt operaatorilt, saame operaatori Not Equal abil täpselt vastupidise väärtuse.
„Pole võrdne“ operaator VBA-s
Tavaliselt teeme loogilise testi, "kas miski on teiste asjadega võrdne või mitte". Mõnel juhul peame tegema ka ebavõrdsuse testi. Ebavõrdsuse test pole midagi muud kui võrdne test. Üldiselt ütleme, et kui miski on teise asjaga võrdne või mitte, siis kui see on võrdne, täidab ta mingit ülesannet, kui mitte erinevat ülesannet. Samamoodi võime ka ebavõrdsuse testi abil teha mingisuguseid toiminguid. VBA-s väljendit "NOT EQUAL" tähistab sümbolitest suurem ja väiksem kui kombinatsioon. Kui mõlemad operaatorid kokku saavad, ei muutu see võrdseks sümboliks, st .
Kuidas pole võrdne Exceli VBA tööga?
VBA Pole võrdne töötab täpselt vastupidiselt operaatori võrdsustamise loogikale. Kui võrdub operaatoriga, tagastab TÕENE, kui tarnitud test ei ole täidetud, tagastatakse väärtus VÄÄR. Näiteks kui ütlete 10 = 10, tagastab see väärtuse TRUE või muidu FALSE.
Teisel pool töötab “Mitte võrdne” vastupidises suunas. Kui pakutav loogiline test Excelis pole võrdne, tagastab ainult TRUE või FALSE.
Näiteks kui ütlete 10 10, tagastab see väärtuse FALSE, kuna 10 on võrdne 10-ga. TÕENE tulemuse saamiseks ei tohiks üks väärtus olla võrdne teise väärtusega.
Näited pole võrdsed Exceli VBA-ga
Allpool on toodud näited operaatori mitte võrdsest Exceli VBA-s.
Näide 1
Nüüd näeme, kuidas VBA Not Equal () märki praktiliselt kasutada. Vaadake allolevat koodijuppi.
Kood:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Siin testime, kas arv 100 ei ole võrdne arvuga 100. Kindlasti teame, et arv 100 on võrdne 100-ga, nii et tulemus on VALE.
Nüüd muudan võrrandit.
Kood:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nüüd on test, kas arv 100 ei ole võrdne 99-ga. Nii et tulemus on TÕSI.
Näide 2
Nüüd näeme, kuidas seda mitte võrdset operaatorit reaalajas näidetes kasutada. Demonstratsiooni jaoks olen loonud mõned andmed.
Meil on kaks väärtust: „Väärtus 1“ ja „Väärtus 2“.
Nüüd on minu nõue, et kui väärtus 1 ei ole võrdne väärtusega 2, siis on mul vaja tulemust kui „erinevat“ või muidu on mul vaja tulemust „sama“.
1. samm: määrake muutuja täisarvuna.
Kood:
Alam NotEqual_Example2 () Dim k kui täisarvu lõpp Sub
2. samm: avage järgmiseks sirviks 2 kuni 9
Kood:
Sub NotEqual_Example2 () Dim k täisarvuna k = 2 kuni 9 Järgmine k End Sub
3. samm: tsükli sees peame testima, kas väärtus 1 ei ole võrdne väärtusega 2. Kuna meil on vaja oma tulemusi, peame kasutama IF-tingimust.
Kood:
Sub NotEqual_Example2 () Dim k täisarvuna k = 2 kuni 9 korral, kui lahtrid (k, 1) rakud (k, 2), siis rakud (k, 3). Väärtus = "Erinevad" muud rakud (k, 3). Väärtus = "Sama" lõpp, kui järgmine k Lõpeta alam
Oletame, et tingimus testib, kas väärtus 1 ei ole võrdne väärtusega 2 või mitte. Kui see pole võrdne, tagastatakse „Erinev”. Kui see on võrdne, tagastatakse väärtus „Sama”.
Võite kopeerida ja kleepida allpool oleva VBA-koodi.
Kopeerige see kood oma moodulisse ja käivitage F5-klahvi abil või käsitsi. See annab sellise tulemuse.
Peida ja peida mitte võrdse märgiga lehed
Võrdse laulu kasutamise viisid on tohutud. Saame seda märki kasutada oma vajaduste rahuldamiseks.
# 1 - peida kõik arvutustabelid, välja arvatud üks leht
Sellist olukorda oleme näinud mitu korda. Me pidime peitma kõik lehed, välja arvatud konkreetne leht.
Näiteks kui soovite peita kõik lehed, välja arvatud lehe nimi „Kliendiandmed“, saate seda koodi kasutada.
Kood:
Sub Hide_All () Tühjendage Ws iga W-i töölehena ActiveWorkbookis. Töölehed, kui Ws.Name "Kliendiandmed", siis Ws.Visible = xlSheetVeryHidden End, kui järgmine Ws End Sub
# 2 - peitke kõik lehed, välja arvatud üks leht
Samamoodi võime ka kõik lehed, välja arvatud üks leht, peita. Selleks kasutage allolevat koodi.
Kood:
Sub Unhide_All () Tühjendage Ws iga W-i töölehena ActiveWorkbookis. Töölehed Kui Ws.Name "Kliendiandmed", siis Ws.Visible = xlSheetVisible End
Selle malli VBA Pole võrdne Exceli saate alla laadida siit - operaatori mall VBA Mitte võrdne.
