Excel VBA ne deluje
Logične funkcije so uporabne za izračune, ki zahtevajo več pogojev ali meril. V naših prejšnjih člankih smo videli pogoje »VBA IF«, »VBA ALI« in »VBA IN«. V tem članku bomo razpravljali o "VBA NOT" s funkcijo IF v Excelu. Da bi ga najprej razumeli, moramo pogledati funkcijo »VBA NOT«.
Primeri
Primer # 1
Funkcija NOT je na voljo tudi z VBA in deluje popolnoma enako kot funkcija excel. Na primer, poglejte spodnji niz kode VBA.
Koda:
Sub NOT_Primer1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
V zgornji kodi smo spremenljivko "k" razglasili kot niz.
Dim k kot niz
Nato smo vrednost dodelili s funkcijo NOT. Ali funkcija NOT ne pove, ali je število 45 enako 45 ali ne?
k = ne (45 = 45)
Nato smo spremenljivki "k" v polju za sporočila dodelili vrnitev vrednosti s funkcijo NOT.
MsgBox k
Zaženite kodo in poglejte, kakšen je rezultat.
2. primer - NE s funkcijo IF
Kot sem povedal v enem od prejšnjih člankov, "ČE so z drugimi logičnimi funkcijami najboljši pari v Excelu."
Podobno je NOT with IF v mnogih pogledih uporaben. Z IF lahko imamo svoje rezultate namesto privzetih rezultatov TRUE ali FALSE.
Vzemite isto primerno kodo od zgoraj, mi pa ne bomo uporabili funkcije IF.
Koda:
Sub NOT_Primer2 () Dim k kot niz, če ne (45 = 45) Potem je k = "Rezultat testa je TRUE" Drugače k = "Rezultat testa je FALSE" Konec, če MsgBox k End Sub
V zgornji kodi smo spremenili privzete rezultate iz »Test test is FALSE« in »Test test is TRUE«. Če je priloženi logični test resničen, bo vrnil »Rezultat testa je FALSE«, če pa je priloženi logični test napačen, se bo vrnil. "Rezultat testa je TRUE."
V zgornji kodi imamo vrednost 45 = 45, zato bomo odgovor dobili na naslednji način.
3. primer - Napredno NE
Funkcijo NOT je najbolje uporabiti s funkcijo IF. To funkcijo lahko uporabimo za skrivanje vseh listov, razen enega lista.
Imamo različne liste, kot sledi v našem excelu.
Spodaj je vzorčna koda za skrivanje vseh listov, razen enega določenega lista.
Koda:
Sub NOT_Example3 () Zatemni W kot delovni list za vsak Ws v ActiveWorkbook. Delovni listi, če ne (Ws.Name = "Data Sheet") Potem Ws.Visible = xlSheetVeryHideen End, če se naslednji Ws End Sub
Zgornja koda skriva vse delovne liste, razen delovnega lista »Podatkovni list«.
To kodo VBA lahko uporabite za skrivanje vseh listov, razen enega lista, tako da ime lista spremenite v ime lista.
Tako kot lahko tudi v Excelu razkrijemo liste. Spodnja koda bo razkrila vse liste, razen imena lista »Podatkovni list«.
Koda:
Pod NOT_Primer4 () Zatemni W kot delovni list za vsak W v ActiveWorkbook. Delovni listi, če ne (Ws.Name = "Podatkovni list"), potem Ws.Visible = xlSheetVisible End, če se naslednji Ws End Sub
Spodnja koda bo razkrila samo ime lista »Podatkovni list«.
Koda:
Pod NOT_Primer3 () Zatemni W kot delovni list za vsak Ws v ActiveWorkbook. Delovni listi, če ne (Ws.Name "Podatkovni list") Potem Ws.Visible = xlSheetVisible End Če se naslednji Ws End Sub
