Excel VBA ei toimi
Loogisista toiminnoista on hyötyä laskelmissa, joiden testaaminen vaatii useita ehtoja tai ehtoja. Aikaisemmissa artikkeleissamme olemme nähneet olosuhteet "VBA IF", "VBA OR" ja "VBA AND". Tässä artikkelissa keskustellaan Excelissä funktiosta “VBA NOT” IF-toiminnon kanssa. Jotta voisimme ymmärtää sen ensin, meidän on tarkasteltava toimintoa ”VBA EI”.
Esimerkkejä
Esimerkki 1
EI-toiminto on käytettävissä myös VBA: n kanssa, ja se toimii täsmälleen samalla tavalla kuin Excel-toiminto. Katso esimerkiksi alla oleva VBA-koodijoukko.
Koodi:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Yllä olevassa koodissa olemme ilmoittaneet muuttujan "k" merkkijonoksi.
Dim k merkkijonona
Seuraavaksi olemme määrittäneet arvon EI-toiminnon kautta. Eikö toiminto kerro onko numero 45 yhtä suuri kuin 45?
k = ei (45 = 45)
Seuraavaksi olemme määrittäneet NOT-toiminnon arvon palautuksen muuttujalle "k" viestiruudussa.
MsgBox k
Suorita koodi ja katso tulos.
Esimerkki # 2 - EI IF-toiminnolla
Kuten kerroin yhdessä aikaisemmista artikkeleista, "JOS muut loogiset toiminnot ovat parhaat parit excelissä."
Samoin EI IF: n kanssa on hyödyllinen monin tavoin. IF: n avulla meillä voi olla omat tulokset TOSI- tai EPÄTOSI-oletustulosten sijaan.
Ota sama esimerkkikoodi ylhäältä, ja käytämme EI IF-funktion kanssa.
Koodi:
Ala EI_esimerkki2 () Himmennä merkkijono, jos ei (45 = 45) Sitten k = "Testitulos on TOSI" Muu k = "Testitulos on EPÄTOSI" Loppu, jos MsgBox k Lopeta ali
Yllä olevassa koodissa olemme muuttaneet oletustuloksia kohdista "Testitulos on EPÄTOSI" ja "Testitulos on TOSI". Jos toimitettu looginen testi on tosi, se palauttaa "Testitulos on EPÄTOSI" ja jos toimitettu looginen testi on väärä, se palaa. "Testitulos on TOSI."
Yllä olevassa koodissa meillä on arvo 45 = 45, joten saamme vastauksen seuraavasti.
Esimerkki # 3 - Edistynyt EI
EI-toimintoa voidaan parhaiten käyttää IF-toiminnon kanssa. Voimme käyttää tätä toimintoa piilottaaksesi kaikki arkit paitsi yhden tietyn arkin.
Meillä on useita arkkia, kuten Excelissä.
Alla on esimerkkikoodi, joka piilottaa kaikki taulukot paitsi yhden tietyn arkin.
Koodi:
Sub NOT_Example3 () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbookin W: lle. Työarkit, jos ei (Ws.Name = "tietolomake"), sitten Ws.Visible = xlSheetVeryHideen loppu, jos seuraava Ws End Sub
Yllä oleva koodi piilottaa kaikki laskentataulukot paitsi laskentataulukko ”Data Sheet”.
Voit piilottaa tämän VBA-koodin kaikkien arkkien lukuun ottamatta yhtä tiettyä taulukkoa muuttamalla arkin nimeksi arkin nimen.
Kuten miten voimme myös piilottaa arkkia myös Excelissä. Alla oleva koodi näyttää kaikki taulukot paitsi taulukon nimen ”Data Sheet”.
Koodi:
Sub NOT_Example4 () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbookin W: lle. Työarkit, jos ei (Ws.Name = "tietolomake"), sitten Ws.Visible = xlSheetVisible End, jos seuraava Ws End Sub
Alla oleva koodi näyttää vain taulukon nimen "Data Sheet".
Koodi:
Sub NOT_Example3 () Himmennä Ws laskentataulukoksi jokaiselle ActiveWorkbookin W: lle. Työarkit, jos ei (Ws.Name "Data Sheet"), sitten Ws.Visible = xlSheetVisible End Jos Next Ws End Sub
