Med delom v VBA morate pogosto primerjati nize. Privzeto, VBA razlikuje velike in male črke, tako da če primerjate dve isti besedili in je eno od velikih črk, drugo pa z malimi črkami, jih bo VBA obravnaval kot različna besedila. V tej vadnici boste videli, kako preprečiti, da bi VBA razlikoval med velikimi in malimi črkami.
Učinkovitost velikih in malih črk VBA
Če želite VBA razlikovati med velikimi in malimi črkami, morate vnesti Možnost Primerjaj besedilo na začetku modula. Najprej bomo pogledali standardno vedenje VBA brez te nastavljene možnosti. To je koda:
| 123456789 | Če Sheet1.Range ("A1"). Vrednost = Sheet1.Range ("B1"). Vrednost NatoMsgBox "Dva besedila sta enaka"Sicer paMsgBox "Dva besedila sta različna"Konec Če |
V primeru želimo primerjati nize iz A1 in B1. Če so nize enake, bomo vrnili okno s sporočilom »Dva besedila sta enaka«. Če nista enaki, bomo vrnili sporočilo »Dva besedila sta različna.
Slika 1. Primerjava nizov brez možnosti Primerjaj besedilo
Kot lahko vidite na sliki, sta obe besedili enaki, vendar je prvo napisano z velikimi črkami, drugo pa z malimi. Zaradi tega jih VBA obravnava kot drugačne in je vrnilo to sporočilo.
| 1234567891011 | Možnost Primerjaj besediloJavni pododbor CaseSensitiveTest ()Če Sheet1.Range ("A1"). Vrednost = Sheet1.Range ("B1"). Vrednost NatoMsgBox "Dva besedila sta enaka"Sicer paMsgBox "Dva besedila sta različna"Konec ČeEnd Sub |
Zdaj bomo dodali možnost Primerjaj besedilo na začetku modula in videli bomo razliko. Tukaj je koda. Kodo izvedemo na istem primeru:
Slika 2. Primerjava nizov z možnostjo Primerjaj besedilo
Zdaj, ko je nastavljena možnost Primerjaj besedilo, VBA postane neobčutljiv na velike in male črke in meni, da sta ti dve besedili enaki.
Primerjava besedila
Če ne izjavite Možnost Primerjaj besedilo, lahko pretvorite velike in male črke, da naredite primerjave, ki niso občutljive na velike in male črke. To je mogoče s funkcijami UCase, LCase ali StrConv. Več o tem lahko izveste tukaj: VBA Zgornja, Spodnja in Primerna ohišja - Funkcije ohišja
