Not Equal to operator w VBA, który można również określić jako operator negacji, jest to funkcja logiczna, więc wynik zwracany przez tę funkcję jest albo prawdziwy, albo fałszywy, wiemy, że operator równości to „=” to, ale nie równe jest „ ”W VBA, więc niezależnie od wartości, którą otrzymamy od operatora równości, uzyskamy dokładnie odwrotną wartość za pomocą operatora nierówności.
Operator „Nie równe” w języku VBA
Zwykle wykonujemy test logiczny „czy coś jest równe czemuś, czy nie”. W niektórych przypadkach musimy również wykonać test „nierówności” . Test nierówności to nic innego jak test równości. Generalnie mówimy, że jeśli coś jest równe lub nie, jeśli jest równe, wykonuje jakieś zadanie, jeśli nie inne. Podobnie, używając testu nierówności, możemy również wykonać jakąś operację. „NIE RÓWNE” w języku VBA jest reprezentowane przez kombinację symboli większych niż i mniejszych. Jeśli oba te operatory połączą się, nie stanie się równym symbolem, tj. „” .
Jak nie równe działa w Excel VBA?
VBA Nie równe działa dokładnie odwrotnie do logiki operatora równości. Operator równy zwraca TRUE, jeśli podany test jest spełniony, czy nie, zwróci FALSE. Na przykład, jeśli powiesz 10 = 10, zwróci TRUE lub FALSE.
Z drugiej strony „Not Equal” działa w przeciwnym kierunku, jeśli dostarczony test logiczny w programie Excel nie jest równy, wtedy tylko zwróci TRUE lub FALSE.
Na przykład, jeśli powiesz 10 10, zwróci FALSE, ponieważ 10 równa się 10. Aby otrzymać wynik PRAWDA, jedna wartość nie powinna być równa drugiej wartości.
Przykłady nierównych w Excel VBA
Poniżej znajdują się przykłady operatora nierównego w Excel VBA.
Przykład 1
Teraz zobaczymy, jak praktycznie używać znaku VBA Not Equal (). Spójrz na poniższy fragment kodu.
Kod:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Tutaj sprawdzamy, czy liczba 100 nie jest równa liczbie 100. Na pewno wiemy, że liczba 100 jest równa 100, więc wynik będzie FAŁSZ.
Teraz zmienię równanie.
Kod:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Teraz test sprawdza, czy liczba 100 nie jest równa 99. Zatem wynik będzie PRAWDZIWY.
Przykład nr 2
Teraz zobaczymy, jak używać tego operatora nierównego w przykładach czasu rzeczywistego. Na potrzeby demonstracji utworzyłem pewne dane.
Mamy dwie wartości: „Wartość 1” i „Wartość 2”.
Teraz moim wymaganiem jest to, że jeśli wartość 1 nie jest równa wartości 2, to potrzebuję wyniku jako „inny” albo jako „taki sam”.
Krok 1: Zdefiniuj zmienną jako liczbę całkowitą.
Kod:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Krok 2: Otwórz NASTĘPNĄ PĘTLI od 2 do 9.
Kod:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub
Krok 3: Wewnątrz pętli musimy sprawdzić, czy wartość 1 nie jest równa wartości 2. Ponieważ potrzebujemy własnych wyników, musimy użyć warunku IF.
Kod:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 do 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Different" Else Cells (k, 3) .Value = „Taki sam” koniec, jeśli następny k Koniec Sub
Jeśli warunek sprawdza, czy wartość 1 nie jest równa wartości 2, czy nie. Jeśli nie jest równe, zwróci „Różne”, jeśli równe, zwróci „Takie same”.
Możesz skopiować i wkleić poniższy kod VBA.
Skopiuj ten kod do swojego modułu i uruchom za pomocą klawisza F5 lub ręcznie. To zwróci taki wynik.
Ukryj i odkryj arkusze ze znakiem nierówności
Różne sposoby używania nierównych śpiewów są ogromne. Możemy wykorzystać ten znak do spełnienia naszych potrzeb.
# 1 - Ukryj wszystkie arkusze z wyjątkiem jednego arkusza
Wielokrotnie widzieliśmy tego typu sytuację. Musieliśmy ukryć wszystkie arkusze z wyjątkiem konkretnego arkusza.
Na przykład, jeśli chcesz ukryć wszystkie arkusze z wyjątkiem nazwy arkusza „Dane klienta”, możesz użyć tego kodu.
Kod:
Sub Hide_All () Dim Ws As Worksheet For each Ws in ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Odkryj wszystkie arkusze z wyjątkiem jednego arkusza
Podobnie możemy również odkryć wszystkie arkusze oprócz jednego arkusza. Użyj poniższego kodu, aby to zrobić.
Kod:
Sub Unhide_All () Dim Ws As Worksheet For each Ws in ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
Możesz pobrać ten szablon VBA nie równy Excelowi tutaj - szablon operatora VBA nie równy
