Provozovatel VBA „nerovný“ Krok za krokem příklady VBA „nerovná se“
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á jiné věci 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 je něco stejné s jinou věcí, nebo ne, pokud je to stejné, provádí nějaký úkol, ne-li jiný. Podobně pomocí testu Nerovnosti můžeme také provést nějakou operaci. „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. Rovné operátorovi vrátí TRUE, pokud je zadaný test splněn, vrátí FALSE. Například pokud řeknete 10 = 10, vrátí hodnotu PRAVDA nebo NEPRAVDA.
Na druhou stranu „Not Equal“ funguje v opačném směru, pokud není dodaný logický test v aplikaci Excel stejný, vrátí pouze TRUE nebo FALSE.
Například pokud řeknete 10 10, vrátí FALSE, protože 10 se rovná 10. Abychom dostali PRAVÝ výsledek, jedna hodnota by se neměla 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. Určitě 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 test, 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í můj požadavek je, 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 Pro k = 2 až 9 Další k End Sub
Krok 3: Uvnitř smyčky musíme otestovat, zda se hodnota 1 nerovná hodnotě 2. Protože potřebujeme vlastní výsledky, musíme použít podmínku IF.
Kód:
Sub NotEqual_Example2 () Dim k As Integer Pro k = 2 až 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Stejné" Konec Pokud další k Konec Sub
Pokud podmínka testuje, zda se hodnota 1 nerovná hodnotě 2 nebo ne. Pokud se nerovná, vrátí „Jiný“, pokud se rovná, vrátí „Stejný“.
Níže uvedený kód VBA můžete zkopírovat a vložit.
Zkopírujte tento kód do svého modulu a spusťte pomocí klávesy F5 nebo ručně. Vrátí takový výsledek.
Skrýt a odkrýt listy s nerovným znaménkem
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
# 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
Tuto šablonu VBA Not Equal to Excel si můžete stáhnout zde - Šablona operátora VBA Not Equal
