Excel VBA ne funkcionira
Logičke funkcije korisne su za izračune koji zahtijevaju više uvjeta ili kriterija za testiranje. U našim ranijim člancima vidjeli smo uvjete "VBA IF", "VBA OR" i "VBA AND". U ovom ćemo članku razgovarati o "VBA NOT" s funkcijom IF u Excelu. Da bismo to prvo razumjeli, moramo pogledati funkciju "VBA NOT".
Primjeri
Primjer # 1
Funkcija NOT dostupna je i s VBA-om i radi potpuno isto kao i excel funkcija. Na primjer, pogledajte donji skup VBA koda.
Kodirati:
Sub NOT_Primjer1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
U gore navedenom kodu proglasili smo varijablu "k" kao niz.
Dim k kao niz
Dalje, vrijednost smo dodijelili putem funkcije NOT. Funkcija NOT kaže je li broj 45 jednak 45 ili nije?
k = ne (45 = 45)
Dalje, varijabli "k" u okviru za poruke dodijelili smo povrat vrijednosti pomoću funkcije NOT.
MsgBox k
Pokrenite kod i pogledajte kakav je rezultat.
Primjer # 2 - NE s IF funkcijom
Kao što sam rekao u jednom od ranijih članaka, "AKO su s drugim logičkim funkcijama najbolji parovi u excelu."
Slično tome, NOT with IF je koristan na mnogo načina. S IF-om možemo imati vlastite rezultate umjesto zadanih rezultata TRUE ili FALSE.
Uzmite isti primjer koda odozgo, a mi ćemo primijeniti NE s funkcijom IF.
Kodirati:
Pod NOT_Primjer2 () Dim k kao niz Ako nije (45 = 45) Tada je k = "Rezultat testa ISTINA" Inače k = "Rezultat testa je FALSE" Kraj Ako MsgBox k Kraj Sub
U gornjem kodu promijenili smo zadane rezultate iz "Rezultat testa je FALSE" i "Rezultat testa je ISTINA". Ako je isporučeni logički test istinit, vratit će se "Rezultat testa je FALSE", a ako je isporučeni logički test netačan, vratit će se. "Rezultat testa je ISTINA."
U gornjem kodu imamo vrijednost 45 = 45, pa ćemo odgovor dobiti kako slijedi.
Primjer # 3 - Napredno NE
Funkcija NOT najbolje se koristi s funkcijom IF. Ovu funkciju možemo koristiti za sakrivanje svih listova osim jednog određenog lista.
Imamo razne listove, kako slijedi u našem excelu.
Ispod je primjer koda za sakrivanje svih listova, osim jednog određenog lista.
Kodirati:
Pod NOT_Example3 () Zatamni W kao radni list za svaki W u ActiveWorkbook. Radni listovi ako ne (Ws.Name = "Data Sheet") Tada Ws.Visible = xlSheetVeryHideen Kraj ako slijedi Ws End Sub
Gornji kod skriva sve radne listove, osim radnog lista "Data Sheet".
Pomoću ovog VBA koda možete sakriti sve listove, osim jednog određenog lista, tako što ćete naziv lista promijeniti u naziv vašeg lista.
Na primjer, kako također možemo otkriti listove u Excelu. Kôd u nastavku prikazat će sve listove, osim naziva lista "Data Sheet".
Kodirati:
Pod NOT_Example4 () Zatamni W kao radni list za svaki W u ActiveWorkbook. Radni listovi ako ne (Ws.Name = "Data Sheet") Tada Ws.Visible = xlSheetVisible End If Next Ws End Sub
Donji kod otkrit će samo naziv lista "Data Sheet".
Kodirati:
Pod NOT_Example3 () Zatamni W kao radni list za svaki W u ActiveWorkbook. Radni listovi ako ne (Ws.Name "Data Sheet") Tada Ws.Visible = xlSheetVisible End If Next Ws End Sub
