Excel VBA ikke-funktion
Logiske funktioner er nyttige til beregninger, der kræver flere betingelser eller kriterier for at teste. I vores tidligere artikler har vi set "VBA IF", "VBA OR" og "VBA AND" betingelser. I denne artikel vil vi diskutere “VBA NOT” med IF-funktionen i excel. For at forstå det først er vi nødt til at se på "VBA NOT" -funktionen.
Eksempler
Eksempel nr. 1
NOT-funktionen er også tilgængelig med VBA, og den fungerer nøjagtigt den samme som excel-funktionen. Se f.eks. Nedenstående sæt VBA-kode.
Kode:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
I ovenstående kode har vi erklæret variablen “k” som en streng.
Dim k As String
Dernæst har vi tildelt værdien gennem IKKE-funktionen. Siger IKKE funktion, om tallet 45 er lig med 45 eller ej?
k = Ikke (45 = 45)
Dernæst har vi tildelt værdien returneret ved IKKE-funktionen til variablen “k” i meddelelsesfeltet.
MsgBox k
Kør koden og se, hvad resultatet er.
Eksempel # 2 - IKKE med IF-funktion
Som jeg fortalte i en af de tidligere artikler, "IF med andre logiske funktioner er de bedste par i excel."
Tilsvarende er IKKE med IF nyttigt på mange måder. Med IF kan vi have vores egne resultater i stedet for standardresultaterne TRUE eller FALSE.
Tag den samme eksempelkode ovenfra, og vi anvender IKKE med IF-funktionen.
Kode:
Sub IKKE_eksempel2 () Dim k som streng hvis ikke (45 = 45) Så k = "Testresultat er SAND" Ellers k = "Testresultat er FALSK" Afslut Hvis MsgBox k Afslut sub
I ovenstående kode har vi ændret standardresultaterne fra "Testresultat er FALSK" og "Testresultat er SAND." Hvis den leverede logiske test er sand, returnerer den "Testresultatet er FALSK", og hvis den leverede logiske test er falsk, vender den tilbage. "Testresultatet er SAND."
I ovenstående kode har vi værdi som 45 = 45, så vi får svaret som følger.
Eksempel # 3 - Avanceret IKKE
IKKE-funktionen bruges bedst med IF-funktionen. Vi kan bruge denne funktion til at skjule alle arkene undtagen det ene ark.
Vi har forskellige ark, som følger i vores excel.
Nedenfor er prøvekoden for at skjule alle ark undtagen et bestemt ark.
Kode:
Sub NOT_Example3 () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis ikke (Ws.Name = "Data Sheet") Derefter Ws.Visible = xlSheetVeryHideen Afslut hvis næste Ws End Sub
Ovenstående kode skjuler alle regnearkene undtagen regnearket "Dataark".
Du kan bruge denne VBA-kode til at skjule alle arkene undtagen det ene ark ved at ændre arknavnet til dit arknavn.
Ligesom hvordan vi også kan fjerne ark i excel også. Nedenstående kode viser alle ark undtagen arknavnet "Dataark".
Kode:
Sub NOT_Example4 () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis ikke (Ws.Name = "Data Sheet") Derefter Ws.Visible = xlSheetVisible End Hvis næste Ws End Sub
Nedenstående kode viser kun arknavnet "Dataark".
Kode:
Sub NOT_Example3 () Dim Ws som regneark for hvert Ws i ActiveWorkbook.Worksheets Hvis ikke (Ws.Name "datablad") Derefter Ws.Visible = xlSheetVisible End Hvis næste Ws slut sub
