Excel VBA nie działa
Funkcje logiczne są przydatne w obliczeniach, które wymagają wielu warunków lub kryteriów do przetestowania. We wcześniejszych artykułach widzieliśmy warunki „VBA IF”, „VBA OR” oraz „VBA AND”. W tym artykule omówimy „VBA NIE” z funkcją JEŻELI w programie Excel. Aby najpierw to zrozumieć, musimy przyjrzeć się funkcji „VBA NOT”.
Przykłady
Przykład 1
Funkcja NIE jest dostępna również w VBA i działa dokładnie tak samo, jak funkcja programu Excel. Na przykład spójrz na poniższy zestaw kodu VBA.
Kod:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
W powyższym kodzie zadeklarowaliśmy zmienną „k” jako łańcuch.
Dim k As String
Następnie przypisaliśmy wartość za pomocą funkcji NOT. Czy funkcja NIE mówi, czy liczba 45 jest równa 45, czy nie?
k = Nie (45 = 45)
Następnie przypisaliśmy wartość zwracaną przez funkcję NOT zmiennej „k” w oknie komunikatu.
MsgBox k
Uruchom kod i zobacz, jaki jest wynik.
Przykład # 2 - NIE z funkcją IF
Jak powiedziałem w jednym z wcześniejszych artykułów, „JEŻELI z innymi funkcjami logicznymi to najlepsze pary w programie Excel”.
Podobnie, NIE z JEŻELI jest użyteczne na wiele sposobów. Dzięki JEŻELI możemy mieć własne wyniki zamiast domyślnych wyników PRAWDA lub FAŁSZ.
Weź ten sam przykładowy kod z góry, a zastosujemy NIE z funkcją IF.
Kod:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Then k = "Wynik testu jest PRAWDA" W przeciwnym razie k = "Wynik testu jest FALSE" End If MsgBox k End Sub
W powyższym kodzie zmieniliśmy domyślne wyniki z „Wynik testu to FALSE” i „Wynik testu to TRUE”. Jeśli dostarczony test logiczny ma wartość prawda, zwróci „Wynik testu to FALSE”, a jeśli dostarczony test logiczny jest fałszywy, zwróci. „Wynik testu to PRAWDA”.
W powyższym kodzie mamy wartość 45 = 45, więc otrzymamy odpowiedź w następujący sposób.
Przykład # 3 - Zaawansowane NIE
Funkcji NIE najlepiej używać z funkcją JEŻELI. Możemy użyć tej funkcji, aby ukryć wszystkie arkusze z wyjątkiem jednego konkretnego arkusza.
W naszym programie Excel mamy różne arkusze.
Poniżej znajduje się przykładowy kod do ukrycia wszystkich arkuszy z wyjątkiem jednego konkretnego arkusza.
Kod:
Sub NOT_Example3 () Dim Ws As Worksheet For each Ws in ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Visible = xlSheetVeryHideen End If Next Ws End Sub
Powyższy kod ukrywa wszystkie arkusze oprócz arkusza „Arkusz danych”.
Możesz użyć tego kodu VBA, aby ukryć wszystkie arkusze z wyjątkiem jednego konkretnego arkusza, zmieniając nazwę arkusza na nazwę arkusza.
Na przykład, w jaki sposób możemy również odkryć arkusze w programie Excel. Poniższy kod pokaże wszystkie arkusze z wyjątkiem nazwy arkusza „Arkusz danych”.
Kod:
Sub NOT_Example4 () Dim Ws As Worksheet For each Ws in ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
Poniższy kod pokaże tylko nazwę arkusza „Arkusz danych”.
Kod:
Sub NOT_Example3 () Dim Ws As Worksheet For each Ws in ActiveWorkbook.Worksheets If Not (Ws.Name "Data Sheet") Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
