Prevádzkovateľ VBA „nerovný“ Krok za krokom príklady VBA „nerovná sa“

Obsah

Operátor „nerovný sa“ vo VBA

Not Equal je operátor vo VBA, ktorý sa dá nazvať aj ako operátor negácie, je to logická funkcia, takže výstup vrátený touto funkciou je pravdivý alebo nepravdivý, vieme, že rovný operátor je „=“ toto, ale nie rovné je „ ”Vo VBA, takže nech už dostaneme akúkoľvek hodnotu od rovnakého operátora, pomocou operátora Not Equal dostaneme presne opačnú hodnotu.

Operátor „nerovný sa“ vo VBA

Spravidla robíme logický test „či sa niečo rovná iným veciam alebo nie.“ V niektorých prípadoch musíme urobiť aj test „nerovnosti“ . Test nerovnosti nie je nič iné ako test rovnosti. Spravidla hovoríme, či sa niečo rovná inej veci alebo nie, ak je to rovnaké, vykonáva nejaký druh úlohy, ak nie inú. Podobne pomocou testu nerovnosti môžeme urobiť aj nejaký druh operácie. „NIE JE ROVNÉ“ vo VBA predstavuje kombinácia symbolov väčších a menších ako. Ak sa spoja obidva tieto operátory, potom sa nestane rovnakým symbolom, tj. „.“

Ako nerovná sa práca v programe Excel VBA?

VBA nerovná sa funguje presne oproti logike rovnej operátorovi. Rovnaké ako operátor vráti TRUE, ak je dodaný test presvedčený, že nie, vráti FALSE. Napríklad, ak poviete 10 = 10, vráti sa TRUE alebo FALSE.

Na druhej strane funguje slovo „nerovná sa“ opačným smerom. Ak zadaný logický test v programe Excel nie je rovnaký, vráti iba hodnotu TRUE alebo FALSE.

Napríklad, ak poviete 10 10, vráti FALSE, pretože 10 sa rovná 10. Ak chcete získať skutočný výsledok, jedna hodnota by sa nemala rovnať druhej hodnote.

Príklady nerovnakých v programe Excel VBA

Nižšie uvádzame príklady nerovnakých operátorov v Exceli VBA.

Príklad č

Teraz uvidíme, ako prakticky použiť znak VBA Not Equal (). Pozrite sa na nasledujúcu časť kódu.

Kód:

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

Tu testujeme, či sa číslo 100 nerovná číslu 100. Pre istotu vieme, že číslo 100 sa rovná 100, takže výsledok bude NEPRAVDA.

Teraz zmením rovnicu.

Kód:

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

Teraz je testom, či sa číslo 100 nerovná 99. Takže výsledok bude PRAVDA.

Príklad č

Teraz uvidíme, ako použiť tento nerovný operátor v príkladoch v reálnom čase. Pre demonštráciu som vytvoril niekoľko údajov.

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

Teraz je mojou požiadavkou, ak sa hodnota 1 nerovná hodnote 2, potom potrebujem výsledok ako „Iný“, inak potrebujem výsledok ako „Rovnaký“.

Krok 1: Definujte premennú ako celé číslo.

Kód:

Sub NotEqual_Example2 () Dim k ako celočíselný koncový sub

Krok 2: Otvorte FOR NEXT LOOP od 2 do 9.

Kód:

Sub NotEqual_Example2 () Dim k As Integer Pre k = 2 až 9 Ďalej k End Sub

Krok 3: Vo vnútri slučky musíme vyskúšať, či sa hodnota 1 nerovná hodnote 2. Pretože potrebujeme vlastné výsledky, musíme použiť podmienku IF.

Kód:

Sub NotEqual_Example2 () Dim k ako celé číslo pre k = 2 až 9 Ak bunky (k, 1) bunky (k, 2), potom bunky (k, 3). Hodnota = "Rôzne" iné bunky (k, 3). Hodnota = „Rovnaké“ Koniec Ak Ďalej k Koniec Sub

Predpokladajme, že testuje podmienku, či sa hodnota 1 nerovná hodnote 2 alebo nie. Ak nie je rovnaké, vráti sa hodnota „Rôzne“. Ak je rovnaké, vráti sa „Rovnaké“.

Nižšie uvedený kód VBA môžete skopírovať a vložiť.

Skopírujte tento kód do svojho modulu a spustite ho pomocou klávesu F5 alebo ručne. Takto sa vráti takýto výsledok.

Skryť a odkryť listy s znakom nerovnosti

Rôzne spôsoby použitia nerovného spevu sú obrovské. Toto znamenie môžeme použiť na splnenie našich potrieb.

# 1 - Skryť všetky listy okrem jedného

Takúto situáciu sme videli mnohokrát. Potrebovali sme skryť všetky listy okrem konkrétneho listu.

Napríklad ak chcete skryť všetky hárky okrem názvu hárku „Údaje o zákazníkovi“, môžete použiť tento kód.

Kód:

Sub Hide_All () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets Ak Ws.Name "Údaje o zákazníkovi", potom Ws.Visible = xlSheetVeryHidden Koniec Ak Ďalej Ws End Sub

Poznámka: Zmeňte názov hárka na názov hárka.

# 2 - Skryť všetky hárky okrem jedného hárku

Podobne môžeme tiež odkryť všetky listy okrem jedného. Použite na to nižšie uvedený kód.

Kód:

Sub Unhide_All () Dim Ws ako pracovný hárok pre každú Ws v ActiveWorkbook.Worksheets Ak Ws.Name "Údaje o zákazníkovi", potom Ws.Visible = xlSheetVisible Koniec Ak Nasledujúci Ws Koniec Sub