Srovnání VBA Operators: Nerovná se, Less než nebo Rovná se

Vidění každého operátoru aplikovaného na dvě proměnné usnadňuje předvídání vráceného výsledku.

Příklad zdrojového kódu

Rovné srovnání OperaTor

If 2 = 1 Then
    MsgBox "True", vbOKOnly, "Equal Operator"
Else
    MsgBox "False", vbOKOnly, "Equal Operator"
End If

TADY,

• „Pokud 2 = 1, pak… jinak… Konec, když“ používá příkaz if k vyhodnocení podmínky „2 = 1“
• "MsgBox... " Je vestavěná funkce, která zobrazuje okno se zprávou.
  • První parametr „True“ nebo „False“ je to, co se zobrazí v okně zprávy. V našem příkladu se 2 nerovná 1, proto se v poli msg zobrazí „false“.
  • Druhý parametr „vbOKOnly“ je tlačítko, které se zobrazí v okně zprávy
  • Třetí parametr „Equal Operator“ je název pole se zprávou.

Provedení výše uvedeného kódu poskytuje následující výsledky

Tento jediný test je nejjednodušší formou. Skutečná makra kombinují porovnání a větví se mezi několika výsledky.

Jak používat srovnání Operatorů v příkazu If

Porovnávací operátor je sám o sobě zřídka užitečný. Jeho výsledek True nebo False je předáván rozhodovací struktuře a příkaz If budete používat nejčastěji. Následující příklad ohodnotí skóre uložené v buňce A1 a výsledek zapíše vedle něj.

Sub GradeScore()
    Dim Score As Long

    Score = Sheet1.Range("A1").Value

    If Score >= 90 Then
        Sheet1.Range("B1").Value = "Distinction"
    ElseIf Score >= 50 Then
        Sheet1.Range("B1").Value = "Pass"
    ElseIf Score < 0 Then
        MsgBox "A score cannot be negative", vbCritical, "Invalid Entry"
    Else
        Sheet1.Range("B1").Value = "Fail"
    End If
End Sub

Makro jednou přečte skóre a poté ho postupně otestuje na tři podmínky. Čtyři body vysvětlují, proč se chová tak, jak se chová.

• Záleží na pořadí: VBA se zastaví na první větvi, která vrátí hodnotu True. Skóre >= 50 před Skóre >= 90 by označil každé vysoké skóre za úspěšné.
• Jinak je to univerzální: Jakákoli hodnota, která neprojde žádným předchozím testem, se přepíše na Else, takže žádný vstup nezůstane neošetřený.
• Žádné řetězení: VBA neumí číst 0 <= Skóre <= 100Napište Pokud Skóre >= 0 a Skóre <= 100, pak s použitím logických operátorů namísto.
• Stejný test, jiné struktury: Identická podmínka řídí operace Do While a Select Case, takže operátory se přenášejí do každé smyčky, kterou napíšete.

💡 Tip: Deklarujte proměnnou s číselným typem, jak je znázorněno na příkladu Dim Score tak dlouhoPokud hodnota zůstane variantou obsahující text, „9“ > „10“ vrací True, protože porovnání se provádí znak po znaku.

Porovnání textu a data ve VBA

Numbers porovnávejte přesně tak, jak naznačuje aritmetika, ale text a data se řídí vlastními pravidly a obojí překvapuje začátečníky.

Řetězce se porovnávají znak po znaku s použitím jejich pozice řazení, takže „Apple“ < „Banana“ vrací True. Ve výchozím nastavení se při porovnávání rozlišují velká a malá písmena, což znamená, že „guru99“ = „Guru99“ vrací False. Umístění Možnost Porovnat text v horní části modulu způsobí, že každé porovnání řetězců v daném modulu ignoruje případová inicializace. Pro jeden test bez změny modulu použijte StrComp s argumentem vbTextCompare.

Data jsou uložena jako pořadová čísla počítaná od 30. prosince 1899, takže se porovnávají přímo se stejnými šesti operátory. Pokud Datum_splatnosti < Datum, pak Funkce Date správně detekuje položku po splatnosti, protože Date vrací aktuální systémové datum ve stejném druhu sériového čísla. Jedinou chybou je datum uložené jako text: „01/02/2026“ přečtené z importovaného souboru je řetězec, nikoli datum, a porovnává se abecedně. Před testováním jej převeďte pomocí CDate.

Znalost pravidel pro každý typ odstraňuje většinu překvapení, ale několik chyb stále zaskočí zkušené vývojáře.

Časté chyby při porovnávání hodnot ve VBA

Níže uvedených pět problémů vysvětluje většinu porovnání, která vracejí neočekávaný výsledek.

• Úkol zaměněn za porovnání: Mimo podmínku, x = 5 ukládá 5 do x. Uvnitř operátoru If stejné symboly testují rovnost. VBA nemá samostatný operátor ==, proto si pečlivě přečtěte kontext.
• Testování Double hodnoty pro přesnou rovnost: Uložená přesnost znamená, že 0.1 + 0.2 = 0.3 vrátí hodnotu False. Porovnejte místo toho zaokrouhlený rozdíl, například Pokud Abs(a – b) < 0.000001, pak.
• Porovnání čehokoli s Null: Null se nerovná ničemu, ani jinému Null. Otestujte s IsNull místo = Nula.
• Porovnání textu s číslem: Buňka obsahující text „100“ se nerovná číslu 100. Před testem proveďte konverzi pomocí příkazu CLng nebo CDbl.
• Čtení .Text místo .Value: Vlastnost .Text vrací zobrazený obsah, který je zkrácen o šířku sloupce a formátování. Vždy porovnávejte .Value.

Stáhněte si výše uvedený Excel Code

Nejčastější dotazy