Provozovatel VBA „nerovný“ Krok za krokem příklady VBA „nerovná se“

Obsah

Operátor „nerovný se“ ve VBA

Not Equal je operátor ve VBA, který lze také označit jako operátor negace, je to logická funkce, takže výstup vrácený touto funkcí je buď true, nebo false, víme, že rovný operátor je „=“ toto, ale ne rovné je „ ”Ve VBA, takže bez ohledu na hodnotu, kterou dostaneme od operátoru rovnosti, dostaneme přesně opačnou hodnotu pomocí operátoru Not Equal.

Operátor „nerovný se“ ve VBA

Obvykle provádíme logický test „zda se něco rovná ostatním věcem nebo ne“. V některých případech musíme provést také test „nerovnosti“ . Test nerovnosti není nic jiného než rovnocenný test. Obecně říkáme, jestli se něco rovná jiné věci nebo ne, pokud je to stejné, provede nějaký úkol, ne-li jiný. Podobně můžeme pomocí testu Nerovnosti provést nějaký druh operace. „NOT ROVNÝ“ ve VBA je reprezentován kombinací symbolů větších než a menších než. Pokud se oba tyto operátory spojí, stane se to nerovným symbolem, tj. „.“

Jak nerovná se práce v aplikaci Excel VBA?

VBA Není stejné funguje přesně opačně než logika rovné operátorovi. Rovno operátorovi vrátí TRUE, pokud je zadaný test splněn, není, vrátí FALSE. Například pokud řeknete 10 = 10, vrátí se PRAVDA nebo NEPRAVDA.

Na druhé straně funguje „Není rovno“ v opačném směru. Pokud zadaný logický test v aplikaci Excel není stejný, vrátí pouze hodnotu TRUE nebo FALSE.

Například pokud řeknete 10 10, vrátí FALSE, protože 10 se rovná 10. Abychom získali TRUE výsledek, neměla by se jedna hodnota rovnat druhé hodnotě.

Příklady nerovná se v aplikaci Excel VBA

Níže jsou uvedeny příklady, které se nerovnají operátoru v aplikaci Excel VBA.

Příklad č. 1

Nyní uvidíme, jak prakticky použít znak VBA Not Equal (). Podívejte se na níže uvedený kód.

Kód:

Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub

Zde testujeme, zda se číslo 100 nerovná číslu 100. Jistě víme, že číslo 100 se rovná 100, takže výsledek bude NEPRAVDA.

Nyní změním rovnici.

Kód:

Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub

Nyní je testováno, zda se číslo 100 nerovná 99. Takže výsledek bude PRAVDA.

Příklad č. 2

Nyní uvidíme, jak použít tento nerovný operátor v příkladech v reálném čase. Pro demonstraci jsem vytvořil několik dat.

Máme dvě hodnoty, „Hodnota 1“ a „Hodnota 2“.

Nyní je můj požadavek, pokud se hodnota 1 nerovná hodnotě 2, pak potřebuji výsledek jako „Jiný“, jinak potřebuji výsledek jako „Stejný“.

Krok 1: Definujte proměnnou jako celé číslo.

Kód:

Sub NotEqual_Example2 () Dim k As Integer End Sub

Krok 2: Otevřete FOR NEXT LOOP od 2 do 9.

Kód:

Sub NotEqual_Example2() Dim k As Integer For k = 2 To 9 Next k End Sub

Step 3: Inside the loop, we need to test whether value 1 is not equal to value 2. Since we need our own results, we need to use IF Condition.

Code:

Sub NotEqual_Example2() Dim k As Integer For k = 2 To 9 If Cells(k, 1) Cells(k, 2) Then Cells(k, 3).Value = "Different" Else Cells(k, 3).Value = "Same" End If Next k End Sub

Suppose condition tests whether the value 1 is not equal to value 2 or not. If not equal, it will return “Different.” If equal, it will return “Same.”

You can copy and paste the below VBA code.

Copy this code to your module and run using the F5 key or manually. This will return a result like this.

Hide and Unhide Sheets with Not Equal Sign

Různé způsoby použití nerovného zpívání jsou obrovské. Toto znamení můžeme použít k naplnění našich potřeb.

# 1 - Skrýt všechny listy kromě jednoho listu

Tuto situaci jsme viděli mnohokrát. Potřebovali jsme skrýt všechny listy kromě konkrétního listu.

Chcete-li například skrýt všechny listy kromě názvu listu „Údaje o zákazníkovi“, můžete použít tento kód.

Kód:

Sub Hide_All () Dim Ws jako list pro každou Ws v ActiveWorkbook.Worksheets Pokud Ws.Name "Údaje o zákazníkovi", pak Ws.Visible = xlSheetVeryHidden Konec Pokud Další Ws Konec Sub

Poznámka: Změňte název listu na název listu.

# 2 - Odkrýt všechny listy kromě jednoho listu

Podobně můžeme také zobrazit všechny listy kromě jednoho listu. K tomu použijte níže uvedený kód.

Kód:

Sub Unhide_All () Dim Ws jako pracovní list pro každou Ws v ActiveWorkbook.Worksheets Pokud Ws.Name "Údaje o zákazníkovi", pak Ws.Visible = xlSheetVisible Konec Pokud Další Ws Konec Sub