VBA "Pole võrdne" operaator | Samm-sammult näited VBA-st "pole võrdne"

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 olenemata 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 teise asjaga 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 võrdne muu asjaga või mitte, siis kui see on võrdne, täidab mingisugust ülesannet, kui mitte erinevat ülesannet. Samamoodi saame ka ebavõrdsuse testi abil teha mingeid toiminguid. VBA-s väljendit "NOT EQUAL" tähistab sümbolitest suuremate ja vähemate kombinatsioon. Kui mõlemad operaatorid kokku saavad, ei muutu see võrdseks sümboliks ehk “” .

Kuidas pole võrdne Exceli VBA tööga?

VBA Pole võrdne töötab täpselt vastupidiselt operaatori võrdsustamise loogikale. Võrdne operaatoriga tagastab TÕENE, kui tarnitud test on täidetud, kas see tagastab FALSE. Näiteks kui ütlete 10 = 10, tagastatakse väärtus TÕENE või muidu FALSE.

Teisel pool töötab “Not Equal” vastupidises suunas, kui pakutav loogiline test excelis pole võrdne, tagastab ainult TÕENE või FALSE.

Näiteks kui ütlete 10 10, tagastab see vale, 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 number 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 number 100 ei ole võrdne 99-ga. Nii et tulemus on tõene.

Näide 2

Nüüd näeme, kuidas seda mitte võrdset operaatorit reaalajas 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 kui "sama".

1. samm: määrake muutuja täisarvuna.

Kood:

 Alam NotEqual_Example2 () Dim k kui täisarvu lõpp Sub 

2. samm: avage JÄRGMISE LOOPI jaoks 2–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 () Mõõt k k täisarvuna väärtuseks k = 2 kuni 9, 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õpp alam 

Kui tingimus testib, kas väärtus 1 ei ole võrdne väärtusega 2 või mitte. Kui see pole võrdne, tagastatakse „Erinev”, võrdse korral aga „Sama”.

Võite kopeerida ja kleepida allpool oleva VBA-koodi.

Kopeerige see kood oma moodulisse ja käivitage F5-klahviga 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 () Hämardab Ws iga W-i töölehena ActiveWorkbookis. Töölehed Kui Ws.Name "Kliendiandmed", siis Ws.Visible = xlSheetVeryHidden End Kui Järgmised Ws End Sub 

Märkus. Muutke töölehe nimi töölehe nimeks.

# 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, kui järgmine Ws End Sub 

Selle malli VBA Pole võrdne Exceli saate alla laadida siit - operaatori mall VBA Mitte võrdne