VBA "Nelygus" operatorius Žingsnis po žingsnio VBA „nėra lygu“ pavyzdžiai

„Not Equal“ yra operatorius VBA, kuris taip pat gali būti vadinamas neigimo operatoriumi, tai yra loginė funkcija, todėl šios funkcijos grąžinta išvestis yra teisinga arba klaidinga, mes žinome, kad lygus operatorius yra „=“ tai, bet ne lygus yra „ “VBA, kad ir kokią vertę gautume iš vienodo operatoriaus, naudodami„ Not Equal “operatorių gausime visiškai priešingą vertę.

„Ne lygus“ operatorius VBA

Paprastai mes atliekame loginį testą „ar kažkas yra lygus kitam dalykui, ar ne“. Kai kuriais atvejais turime atlikti ir „nelygybės“ testą. Nelygybės testas yra ne kas kitas, o ne vienodas testas. Paprastai sakome, jei kažkas yra lygu kitam dalykui, ar ne, jei jis yra lygus, atlieka tam tikrą užduotį, jei ne skirtingą. Panašiai naudojant nelygybės testą taip pat galime atlikti tam tikrą operaciją. „NE LYGI“ VBA reiškia didesnių nei mažesnių už simbolius derinys. Jei abu šie operatoriai kartu, tai tampa ne vienodu simboliu, ty „“ .

Kaip nelygu „Excel VBA“ darbams?

VBA „Nelygus“ veikia visiškai priešingai lygumo operatoriui logikai. Lygus operatoriui grąžina TRUE, jei įvykdytas pateiktas testas, ar ne, jis pateiks FALSE. Pvz., Jei sakote 10 = 10, bus rodoma TIKRA arba netiesa.

Kita vertus, „Not Equal“ veikia priešinga kryptimi, jei pateiktas loginis testas „Excel“ programoje nėra lygus, tik jis pateiks TRUE arba netiesą.

Pvz., Jei sakote 10 10, jis grąžins NETIESA, nes 10 yra lygus 10. Norint gauti TIKRĄ rezultatą, viena reikšmė neturėtų būti lygi kitai vertei.

Pavyzdžiai, kurie nėra lygūs „Excel VBA“

Toliau pateikiami pavyzdžiai, kai „Excel VBA“ nėra lygu operatoriui.

1 pavyzdys

Dabar pamatysime, kaip praktiškai naudoti VBA Not Equal () ženklą. Pažvelkite į žemiau pateiktą kodo dalį.

Kodas:

 Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub 

Čia mes bandome, ar skaičius 100 nėra lygus skaičiui 100. Tikrai žinome, kad skaičius 100 yra lygus 100, todėl rezultatas bus NETIESA.

Dabar pakeisiu lygtį.

Kodas:

 Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub 

Dabar bandoma, ar skaičius 100 nėra lygus 99. Taigi rezultatas bus TIKRA.

2 pavyzdys

Dabar pamatysime, kaip naudoti šį ne lygų operatorių realaus laiko pavyzdžiuose. Demonstracijai sukūriau keletą duomenų.

Turime dvi reikšmes: „1 vertė“ ir „2 vertė“.

Dabar mano reikalavimas yra tas, kad jei 1 reikšmė nėra lygi 2 vertei, rezultatas man reikalingas kaip „skirtingas“, arba rezultatas man reikalingas kaip „tas pats“.

1 veiksmas: apibrėžkite kintamąjį kaip sveikąjį skaičių.

Kodas:

 Sub NotEqual_Example2 () Dim k Kaip sveikojo galo sub 

2 žingsnis: Atidarykite „NEXT LOOP“ nuo 2 iki 9.

Kodas:

 Sub NotEqual_Example2 () Dim k kaip sveikasis skaičius k = 2–9 Kitas k End Sub 

3 žingsnis: Viduje ciklo turime išbandyti, ar 1 reikšmė nėra lygi 2 vertei. Kadangi mums reikia savo rezultatų, turime naudoti IF sąlygą.

Kodas:

 Sub NotEqual_Example2 () Dim k kaip sveikasis skaičius k = 2–9 Jei ląstelės (k, 1) Ląstelės (k, 2), tada Ląstelės (k, 3). Vertė = „Skirtingos“ Kitos ląstelės (k, 3). Vertė = "Tas pats" Pabaiga, jei Kitas k Pabaiga Sub 

Jei sąlyga patikrina, ar 1 vertė nėra lygi 2 vertei, ar ne. Jei jis nėra lygus, jis grąžins „Skirtingas“, jei lygus - „Tas pats“.

Galite nukopijuoti ir įklijuoti žemiau esantį VBA kodą.

Nukopijuokite šį kodą į savo modulį ir paleiskite naudodami F5 klavišą arba rankiniu būdu. Tai suteiks tokį rezultatą.

Slėpti ir nebeslėpti lapų su ne lygybės ženklu

Įvairūs ne vienodo dainavimo būdai yra milžiniški. Šį ženklą galime naudoti savo poreikiams patenkinti.

# 1 - Slėpti visus lapus, išskyrus vieną lapą

Mes daug kartų matėme tokią situaciją. Mums reikėjo paslėpti visus lapus, išskyrus konkretų lapą.

Pavyzdžiui, jei norite paslėpti visus lapus, išskyrus lapo pavadinimą „Kliento duomenys“, galite naudoti šį kodą.

Kodas:

 Sub Hide_All () Dim Ws Kiekvieno WS darbalapis „ActiveWorkbook.Worksheets“, jei Ws.Name „Kliento duomenys“, tada Ws.Visible = xlSheetVeryHidden End, jei kitas Ws End Sub 

Pastaba: Pakeiskite darbalapio pavadinimą į savo darbalapio pavadinimą.

# 2 - Nerodyti visų lapų, išskyrus vieną lapą

Panašiai mes taip pat galime nebeslėpti visų lapų, išskyrus vieną lapą. Norėdami tai padaryti, naudokite žemiau pateiktą kodą.

Kodas:

 Sub Unhide_All () „Dim Ws“, kaip kiekvieno „ActiveWorkbook.Worksheet“ darbalapis. Darbo lapai, jei „Ws.ame“ pavadinimas „Kliento duomenys“, tada „Ws.Visible = xlSheetVisible End“, jei kitas Ws pabaiga 

Šį „VBA Not Equal to Excel“ šabloną galite atsisiųsti čia - VBA Not Equal Operator Template