VBA usporedba Operatorovi: Nije jednako, Less nego ili Jednako

Primjena svakog operatora na dvije varijable olakšava predviđanje vraćenog rezultata.

Primjer izvornog koda

Jednaka usporedba Operahumka

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

OVDJE,

• "Ako je 2 = 1 onda... Inače... Kraj ako" koristi if naredbu za procjenu uvjeta "2 = 1"
• “MsgBox...” To je ugrađena funkcija koja prikazuje okvir s porukom.
  • Prvi parametar "True" ili "False" je ono što će biti prikazano u okviru s porukom. U našem primjeru, 2 nije jednako 1, stoga će se prikazati "false" u okviru poruke.
  • Drugi parametar “vbOKOnly” je gumb koji se prikazuje u okviru s porukom
  • Treći parametar “Equal Operator” je naslov okvira s porukom.

Izvršenje gornjeg koda daje sljedeće rezultate

Taj pojedinačni test je najjednostavniji oblik. Pravi makroi kombiniraju usporedbe i granaju se između nekoliko ishoda.

Kako koristiti usporedbu Operatori u IF naredbi

Operator usporedbe rijetko je koristan sam po sebi. Njegov rezultat True ili False unosi se u strukturu odlučivanja, a naredba If je ona koju ćete najčešće koristiti. Primjer u nastavku ocjenjuje rezultat koji se nalazi u ćeliji A1 i zapisuje rezultat pored njega.

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 jednom čita rezultat, a zatim ga redom testira u odnosu na tri uvjeta. Četiri točke objašnjavaju zašto se ponaša onako kako se ponaša.

• Redoslijed je važan: VBA se zaustavlja na prvoj grani koja vraća True. Rezultat >= 50 prije Rezultat >= 90 svaki bi visoki rezultat označio kao prolaz.
• Inače je sve u redu: Svaka vrijednost koja ne prođe nijedan prethodni test prelazi na Else, tako da nijedan ulaz ne ostaje neobrađen.
• Bez lančanog povezivanja: VBA ne može čitati 0 <= Rezultat <= 100Napiši Ako je rezultat >= 0 i rezultat <= 100, onda pomoću logički operatori umjesto.
• Isti test, druge strukture: Identičan uvjet pokreće Do While i Select Case, pa se operatori prenose u svaku petlju koju napišete.

💡 Savjet: Deklarirajte varijablu numeričkog tipa, kao što je prikazano na Dim Score sve dokAko vrijednost ostane Varianta koja sadrži tekst, „9“ > „10“ vraća True jer se usporedba vrši znak po znak.

Uspoređivanje teksta i datuma u VBA

Numbers uspoređujte točno onako kako aritmetika sugerira, ali tekst i datumi slijede svoja pravila i oboje iznenađuje početnike.

Nizovi se uspoređuju znak po znak koristeći njihov položaj sortiranja, pa "Apple" < "Banana" vraća True. Prema zadanim postavkama, usporedba razlikuje velika i mala slova, što znači "guru99" = "Guru99” vraća False. Postavljanje Opcija Usporedi tekst na vrhu modula čini da svaka usporedba stringova u tom modulu ignorira velika i mala slova. Za jedan test bez promjene modula, koristite StrComp s argumentom vbTextCompare.

Datumi se pohranjuju kao serijski brojevi od 30. prosinca 1899., tako da se izravno uspoređuju s istih šest operatora. Pisanje Ako je DatumDospijeća < DatumOnda ispravno detektira dospjelu stavku jer Date vraća trenutni sistemski datum kao istu vrstu serijskog broja. Jedina zamka je datum koji se čuva kao tekst: "01/02/2026" pročitan iz uvezene datoteke je niz znakova, a ne datum, i uspoređuje se abecednim redom. Pretvorite ga s CDate prije testiranja.

Poznavanje pravila za svaku vrstu uklanja većinu iznenađenja, ali nekoliko pogrešaka ipak može uhvatiti iskusne programere.

Uobičajene pogreške pri usporedbi vrijednosti u VBA-i

Pet problema u nastavku objašnjava većinu usporedbi koje vraćaju neočekivani rezultat.

• Zadatak pogrešno odabran za usporedbu: Izvan uvjeta, x = 5 pohranjuje 5 u x. Unutar If-a, isti simboli provjeravaju jednakost. VBA nema zaseban operator ==, stoga pažljivo pročitajte kontekst.
• Ispitivanje Double vrijednosti za točnu jednakost: Pohranjena preciznost znači da 0.1 + 0.2 = 0.3 vraća False. Umjesto toga, usporedite zaokruženu razliku, na primjer. Ako je Abs(a – b) < 0.000001, tada.
• Uspoređivanje bilo čega s Null-om: Null nije jednak ničemu, čak ni drugom Nullu. Testirajte s IsNull umjesto = Nula.
• Uspoređivanje teksta s brojem: Ćelija koja sadrži tekst "100" nije jednaka broju 100. Pretvorite s CLng ili CDbl prije testa.
• Čitanje .Text umjesto .Value: Svojstvo .Text vraća ono što je prikazano, što je skraćeno za širinu stupca i formatiranje. Uvijek usporedi .Value.

Preuzmite gornji Excel Code

Pitanja i odgovori