VBA-operaattori "Ei tasa-arvoinen" | Vaiheittaiset esimerkit VBA: sta "ei ole yhtä suuri"
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 muu samanlainen vai ei". Joissakin tapauksissa meidän on tehtävä myös "epätasa-arvo" -testi. Tasa- arvotesti ei ole mitään muuta kuin tasa-arvoinen testi. Yleensä sanomme, jos jokin on samanlainen kuin toinen asia, vai ei, jos se on yhtä suuri, suorittaa jonkinlaisen tehtävän, ellei eri tehtävän. Samoin käyttämällä epätasa-arvotestiä 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 kanssa yhtäläinen logiikka. Yhtä operaattorille palauttaa TOSI, jos toimitettu testi täyttyy, eikö se palauta EPÄTOSI. Esimerkiksi jos sanot 10 = 10, se palauttaa TOSI tai muuten EPÄTOSI.
Toisaalta ”Not Equal” toimii päinvastaisessa suunnassa, jos toimitettu looginen testi excelissä ei ole yhtä suuri, 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ä Excel VBA ei ole yhtä suuri kuin operaattori.
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ö numero 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 yhtä suuri 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, kun k = 2 - 9 Jos solut (k, 1) Solut (k, 2) ja sitten solut (k, 3). Arvo = "Erilaiset" muut solut (k, 3). Arvo = "Sama" loppu, jos seuraava k End Sub
Jos ehto testaa, onko arvo 1 yhtä suuri kuin arvo 2 vai ei. Jos se ei ole yhtä suuri, se palauttaa "Eri", jos sama kuin "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 arkin nimi ”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