Not Equal on VBA: n operaattori, jota voidaan kutsua myös negatiivioperaattoriksi, se on looginen funktio, joten tämän funktion palauttama lähtö on joko tosi tai väärä, tiedämme, että sama operaattori on "=" tämä, mutta ei yhtä suuri on " ”VBA: ssa, joten riippumatta siitä arvosta, jonka saamme yhtäläiseltä operaattorilta, saamme tarkalleen päinvastaisen arvon käyttämällä Not Equal -operaattoria.
”Ei tasa-arvoinen” operaattori VBA: ssa
Yleensä teemme loogisen testin "onko jokin sama kuin muut asiat". Joissakin tapauksissa meidän on tehtävä myös "epätasa-arvo" -testi. Epätasa- arvotesti ei ole mitään muuta kuin tasa-arvoinen testi. Yleensä sanomme, että jos jokin on samanlainen kuin muu, tai jos se on yhtä suuri, suorittaa jonkinlaisen tehtävän, ellei eri tehtävän. Vastaavasti myös eriarvoisuustestin avulla voimme tehdä jonkinlaisen toiminnan. "EI EQUAL" -merkkiä VBA: ssa edustaa suurempien ja pienempien kuin symbolien yhdistelmä. Jos nämä molemmat operaattorit yhdistyvät, siitä ei tule sama symboli eli “.”
Kuinka ei ole yhtä suuri kuin Excel VBA: n toiminnot?
VBA Not equal toimii täsmälleen päinvastoin kuin operaattorin yhtäläinen logiikka. Jos operaattorin arvo on TOSI, jos annettu testi ei täyty, se palauttaa arvon EPÄTOSI. Jos esimerkiksi sanot 10 = 10, se palauttaa TOSI tai muuten EPÄTOSI.
Toisaalta ”Not Equal” toimii vastakkaiseen suuntaan. Jos toimitettu looginen testi Excelissä ei ole sama, vain se palauttaa TOSI tai muuten EPÄTOSI.
Esimerkiksi jos sanot 10 10, se palauttaa EPÄTOSI, koska 10 on yhtä suuri kuin 10. TOSI-tuloksen saamiseksi yhden arvon ei pitäisi olla yhtä suuri kuin toinen arvo.
Esimerkkejä ei ole yhtä suuri kuin Excel VBA: ssa
Alla on esimerkkejä siitä, että operaattori ei ole yhtä suuri kuin Excel VBA.
Esimerkki 1
Nyt näemme, kuinka VBA Not Equal () -merkkiä käytetään käytännössä. Katso alla oleva koodinpätkä.
Koodi:
Sub NotEqual_Example1 () Dim k As String k = 100100 MsgBox k End Sub
Tässä testataan, eikö luku 100 ole yhtä suuri kuin luku 100. Varmasti tiedämme, että luku 100 on yhtä suuri kuin 100, joten tulos on EPÄTOSI.
Nyt muutan yhtälöä.
Koodi:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nyt testi on, eikö luku 100 ole yhtä suuri kuin 99. Joten tulos on TOSI.
Esimerkki 2
Nyt näemme, kuinka tätä ei-yhtä operaattoria voidaan käyttää reaaliaikaisissa esimerkeissä. Esittelyä varten olen luonut joitain tietoja.
Meillä on kaksi arvoa, "Arvo 1" ja "Arvo 2".
Nyt vaatimukseni on, että jos arvo 1 ei ole sama kuin arvo 2, tarvitsen tuloksen nimellä "erilainen" tai muuten tarvitsen tuloksen nimellä "sama".
Vaihe 1: Määritä muuttuja kokonaislukuksi.
Koodi:
Ala NotEqual_Example2 () Dim k As Integer End Sub
Vaihe 2: Avaa seuraavaa silmukkaa varten 2-9.
Koodi:
Sub NotEqual_Example2 () Dim k kokonaislukuna k = 2-9 Seuraava k End Sub
Vaihe 3: Silmukan sisällä on testattava, onko arvo 1 yhtä suuri kuin arvo 2. Koska tarvitsemme omia tuloksia, meidän on käytettävä IF-ehtoa.
Koodi:
Sub NotEqual_Example2 () Dim k kokonaislukuna k = 2 - 9 Jos solut (k, 1) Solut (k, 2) sitten solut (k, 3). Arvo = "Erilaiset" muut solut (k, 3). Arvo = "Sama" loppu, jos seuraava k End Sub
Oletetaan, että ehto testaa, onko arvo 1 yhtä suuri kuin arvo 2 vai ei. Jos se ei ole sama, se palauttaa "Erilainen". Jos se on yhtä suuri, se palauttaa "sama".
Voit kopioida ja liittää alla olevan VBA-koodin.
Kopioi tämä koodi moduuliin ja suorita F5-näppäimellä tai manuaalisesti. Tämä palauttaa tällaisen tuloksen.
Piilota ja piilota taulukot, joissa ei ole yhtäsuuri merkki
Eri tapoja käyttää yhtäläistä laulua ovat valtavat. Voimme käyttää tätä merkkiä tarpeidemme täyttämiseen.
# 1 - Piilota kaikki taulukot paitsi yksi arkki
Olemme nähneet tällaisen tilanteen monta kertaa. Meidän oli piilotettava kaikki arkit paitsi tietty arkki.
Esimerkiksi, jos haluat piilottaa kaikki taulukot paitsi asiakastiedot ”Asiakastiedot”, voit käyttää tätä koodia.
Koodi:
Sub Hide_All () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbook.Worksheet-taulukolle. Jos Ws.Name "Asiakastiedot" Sitten Ws.Visible = xlSheetVeryHidden End Jos Seuraava Ws End Sub
# 2 - Näytä kaikki taulukot paitsi yksi arkki
Vastaavasti voimme myös näyttää kaikki arkit paitsi yhden arkin. Käytä tätä alla olevan koodin avulla.
Koodi:
Sub Unhide_All () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbook.Worksheet-taulukolle. Jos Ws.Name "asiakastiedot", sitten Ws.Visible = xlSheetVisible End, jos seuraava Ws End Sub
Voit ladata tämän VBA Ei yhtä suuri kuin Excel -mallin täältä - VBA Ei tasa -operaattorimalli.
