Excel VBA nefunguje
Logické funkcie sú užitočné pri výpočtoch, ktoré vyžadujú na testovanie viac podmienok alebo kritérií. V našich predchádzajúcich článkoch sme videli podmienky „VBA IF“, „VBA OR“ a „VBA AND“. V tomto článku sa budeme zaoberať témou „VBA NIE“ s funkciou IF v programe Excel. Aby sme to najskôr pochopili, musíme sa pozrieť na funkciu „VBA NIE“.
Príklady
Príklad č
Funkcia NOT je k dispozícii aj pre VBA a funguje úplne rovnako ako funkcia programu Excel. Napríklad si pozrite nasledujúcu sadu kódu VBA.
Kód:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Vo vyššie uvedenom kóde sme premennú „k“ deklarovali ako reťazec.
Dim k As String
Ďalej sme hodnotu priradili cez funkciu NOT. Nehovorí funkcia NOT, či je číslo 45 rovné 45 alebo nie?
k = nie (45 = 45)
Ďalej sme premennej „k“ v okne správy priradili hodnotu vrátenia pomocou funkcie NOT.
MsgBox k
Spustite kód a uvidíte, aký je výsledok.
Príklad č. 2 - NIE s funkciou IF
Ako som povedal v jednom z predchádzajúcich článkov, „IF s inými logickými funkciami sú najlepšie páry v exceli.“
Podobne NIE s IF je užitočné v mnohých ohľadoch. Pomocou IF môžeme mať namiesto predvolených výsledkov TRUE alebo FALSE vlastné výsledky.
Zoberte si rovnaký príklad kódu zhora a nebudeme aplikovať NIE s funkciou IF.
Kód:
Sub NOT_Example2 () Dim k As String, ak nie (45 = 45), potom k = "Výsledok testu je PRAVDA" Inak k = "Výsledok testu je FALSE" Koniec, ak MsgBox k End Sub
Vo vyššie uvedenom kóde sme zmenili predvolené výsledky z „Výsledok testu je NEPRAVDA“ a „Výsledok testu je PRAVDA“. Ak je dodaný logický test pravdivý, vráti „Výsledok testu je FALSE“ a ak je dodaný logický test nepravdivý, vráti sa. "Výsledok testu je PRAVDA."
Vo vyššie uvedenom kóde máme hodnotu 45 = 45, takže dostaneme odpoveď nasledovne.
Príklad # 3 - Pokročilé NIE
Funkcia NOT sa najlepšie využije s funkciou IF. Pomocou tejto funkcie môžeme skryť všetky listy okrem jedného konkrétneho.
Máme rôzne listy, ako je uvedené v našej exceli.
Nižšie je uvedený ukážkový kód na skrytie všetkých listov okrem jedného konkrétneho.
Kód:
Sub NOT_Example3 () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets, ak nie (Ws.Name = "údajový list"), potom Ws.Visible = xlSheetVeryHideen koniec, ak bude nasledujúci Ws koniec sub
Vyššie uvedený kód skrýva všetky pracovné hárky okrem hárka „Údajový list“.
Tento kód VBA môžete použiť na skrytie všetkých hárkov okrem jedného konkrétneho hárku zmenou názvu hárka na názov hárka.
Páči sa nám, ako môžeme tiež v Exceli odkryť listy. Nasledujúci kód odkryje všetky hárky okrem názvu hárku „Údajový list“.
Kód:
Sub NOT_Example4 () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets, ak nie (Ws.Name = "Data Sheet"), potom Ws.Visible = xlSheetVisible End If Next Ws End Sub
V nasledujúcom kóde sa odkryje iba názov hárka „Údajový list“.
Kód:
Sub NOT_Example3 () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets, ak nie (Ws.Name "Data Sheet"), potom Ws.Visible = xlSheetVisible End If Next Ws End Sub
