Excel VBA werkt niet
Logische functies zijn handig voor de berekeningen die meerdere voorwaarden of criteria vereisen om te testen. In onze eerdere artikelen hebben we de voorwaarden "VBA IF", "VBA OR" en "VBA AND" gezien. In dit artikel bespreken we de "VBA NOT" met IF-functie in Excel. Om het eerst te begrijpen, moeten we kijken naar de functie "VBA NOT".
Voorbeelden
Voorbeeld 1
De NOT-functie is ook beschikbaar met VBA, en het werkt precies hetzelfde als de Excel-functie. Kijk bijvoorbeeld naar de onderstaande set VBA-code.
Code:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
In de bovenstaande code hebben we de variabele "k" gedeclareerd als een string.
Dim k As String
Vervolgens hebben we de waarde toegewezen via de NOT-functie. Geeft de functie NOT aan of het getal 45 gelijk is aan 45 of niet?
k = niet (45 = 45)
Vervolgens hebben we de waarde die wordt geretourneerd door de functie NOT toegewezen aan de variabele "k" in het berichtvenster.
MsgBox k
Voer de code uit en kijk wat het resultaat is.
Voorbeeld # 2 - NIET met ALS-functie
Zoals ik in een van de eerdere artikelen vertelde, "ALS met andere logische functies zijn de beste paren in Excel."
Evenzo is NIET met ALS op veel manieren nuttig. Met IF kunnen we onze eigen resultaten hebben in plaats van de standaardresultaten van TRUE of FALSE.
Neem dezelfde voorbeeldcode van boven, en we zullen NIET toepassen met IF-functie.
Code:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Then k = "Testresultaat is TRUE" Else k = "Testresultaat is FALSE" End If MsgBox k End Sub
In de bovenstaande code hebben we de standaardresultaten gewijzigd van 'Testresultaat is FALSE' en 'Testresultaat is WAAR'. Als de geleverde logische test waar is, zal deze "Testresultaat is ONWAAR" retourneren , en als de geleverde logische test onwaar is, zal deze terugkeren. "Testresultaat is WAAR."
In de bovenstaande code hebben we de waarde 45 = 45, dus we krijgen het antwoord als volgt.
Voorbeeld # 3 - Geavanceerd NOT
De NIET-functie kan het beste worden gebruikt met de ALS-functie. We kunnen deze functie gebruiken om alle bladen te verbergen, behalve het ene specifieke blad.
We hebben verschillende bladen, als volgt in ons Excel.
Hieronder vindt u de voorbeeldcode om alle bladen behalve één bepaald blad te verbergen.
Code:
Sub NOT_Example3 () Dim Ws als werkblad voor elke Ws in ActiveWorkbook.Worksheets Indien niet (Ws.Name = "Data Sheet") Then Ws.Visible = xlSheetVeryHideen End If Next Ws End Sub
De bovenstaande code verbergt alle werkbladen behalve het werkblad 'Gegevensblad'.
U kunt deze VBA-code gebruiken om alle bladen behalve het ene specifieke blad te verbergen door de bladnaam te wijzigen in uw bladnaam.
Zoals hoe we bladen ook in Excel zichtbaar kunnen maken. Met de onderstaande code worden alle bladen zichtbaar, behalve de bladnaam 'Gegevensblad'.
Code:
Sub NOT_Example4 () Dim Ws als werkblad voor elke Ws in ActiveWorkbook.Worksheets Indien niet (Ws.Name = "Data Sheet") Dan Ws.Visible = xlSheetVisible End If Next Ws End Sub
De onderstaande code zal alleen de bladnaam 'Gegevensblad' zichtbaar maken.
Code:
Sub NOT_Example3 () Dim Ws als werkblad voor elke Ws in ActiveWorkbook.Worksheets Indien niet (Ws.Name "Data Sheet") Dan Ws.Visible = xlSheetVisible End If Next Ws End Sub
