Funcția Excel VBA nu funcționează
Funcțiile logice sunt utile pentru calculele care necesită condiții sau criterii multiple pentru testare. În articolele noastre anterioare, am văzut condițiile „VBA IF”, „VBA OR” și „VBA AND”. În acest articol, vom discuta despre „VBA NOT” cu funcția IF în excel. Pentru a o înțelege mai întâi, trebuie să ne uităm la funcția „VBA NOT”.
Exemple
Exemplul nr. 1
Funcția NOT este disponibilă și cu VBA și funcționează exact la fel ca funcția excel. De exemplu, priviți setul de cod VBA de mai jos.
Cod:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
În codul de mai sus, am declarat variabila „k” drept șir.
Dim k As String
Apoi, am atribuit valoarea prin funcția NOT. Funcția NU spune dacă numărul 45 este sau nu egal cu 45?
k = Nu (45 = 45)
Apoi, am atribuit valoarea returnată de funcția NOT variabilei „k” din caseta de mesaj.
MsgBox k
Rulați codul și vedeți care este rezultatul.
Exemplul # 2 - NU cu funcția IF
După cum am spus într-unul din articolele anterioare, „IF cu alte funcții logice sunt cele mai bune perechi din Excel”.
În mod similar, NU cu IF este util în multe feluri. Cu IF, putem avea propriile noastre rezultate în loc de rezultatele implicite ale TRUE sau FALSE.
Luați același exemplu de cod de mai sus și vom aplica NU cu funcția IF.
Cod:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Atunci k = "Rezultatul testului este ADEVĂRAT" Altfel k = "Rezultatul testului este FALS" Sfârșit Dacă MsgBox k Sfârșit Sub
În codul de mai sus, am modificat rezultatele implicite din „Rezultatul testului este FALS” și „Rezultatul testului este ADEVĂRAT”. Dacă testul logic furnizat este adevărat, acesta va returna „Rezultatul testului este FALS”, iar dacă testul logic furnizat este fals, acesta va reveni. „Rezultatul testului este ADEVĂRAT.”
În codul de mai sus, avem valoarea 45 = 45, deci vom primi răspunsul după cum urmează.
Exemplul # 3 - Avansat NU
Funcția NOT este cel mai bine utilizată cu funcția IF. Putem folosi această funcție pentru a ascunde toate foile, cu excepția uneia.
Avem diverse foi, după cum urmează în Excel.
Mai jos este exemplul de cod pentru a ascunde toate foile, cu excepția unei anumite foi.
Cod:
Sub NOT_Example3 () Dim Ws Ca foaie de lucru pentru fiecare Ws din ActiveWorkbook.Foarte de lucru dacă nu (Ws.Name = "Foaie de date") Atunci Ws.Visible = xlSheetVeryHideen End If Next Ws End Sub
Codul de mai sus ascunde toate foile de lucru, cu excepția foii de lucru „Fișă tehnică”.
Puteți utiliza acest cod VBA pentru a ascunde toate foile, cu excepția unei anumite foi, schimbând numele foii în numele foii dvs.
Ca și cum putem dezvălui și foile în Excel. Codul de mai jos va afișa toate foile, cu excepția numelui foii „Fișă tehnică”.
Cod:
Sub NOT_Example4 () Dim Ws Ca foaie de lucru pentru fiecare Ws în ActiveWorkbook.Foarte de lucru dacă nu (Ws.Name = "Foaie de date") Apoi Ws.Visible = xlSheetVisible End Dacă Next Ws End Sub
Codul de mai jos va afișa doar numele foii „Fișă tehnică”.
Cod:
Sub NOT_Example3 () Dim Ws Ca foaie de lucru pentru fiecare Ws din ActiveWorkbook.Foarte de lucru dacă nu (Ws.Name "Foaie de date") Atunci Ws.Visible = xlSheetVisible End Dacă următorul Ws End Sub
