Mens du arbejder i VBA, skal du ofte sammenligne strenge. Som standard, VBA er store og små bogstaver, så hvis du sammenligner to samme tekster, og en af dem er i store og andre med små bogstaver, vil VBA betragte dem som forskellige tekster. I denne vejledning vil du se, hvordan du forhindrer VBA i at være store og små bogstaver.
Gør VBA -sag ufølsom
For at gøre VBA store og små bogstaver ufølsomme, skal du sætte Mulighed Sammenlign tekst i begyndelsen af modulet. Først vil vi se på standard VBA -adfærd uden dette valgmulighed. Dette er koden:
| 123456789 | Hvis Sheet1.Range ("A1"). Value = Sheet1.Range ("B1"). Value ThenMsgBox "To tekster er ens"AndetMsgBox "To tekster er forskellige"Afslut Hvis |
I eksemplet vil vi sammenligne strengene fra A1 og B1. Hvis strengene er ens, returnerer vi meddelelsesboksen med meddelelsen "To tekster er de samme". Hvis de ikke er ens, sender vi beskeden tilbage ”To tekster er forskellige.
Billede 1. Sammenligning af strengene uden mulighed for sammenligning af tekst
Som du kan se på billedet, er begge tekster de samme, men den første er i store bogstaver, mens den anden er med små bogstaver. På grund af det anser VBA dem for forskellige og returnerede denne besked.
| 1234567891011 | Mulighed Sammenlign tekstPublic Sub CaseSensitiveTest ()Hvis Sheet1.Range ("A1"). Value = Sheet1.Range ("B1"). Value ThenMsgBox "To tekster er ens"AndetMsgBox "To tekster er forskellige"Afslut HvisAfslut Sub |
Nu tilføjer vi Option Compare Text i begyndelsen af modulet og ser forskellen. Her er koden. Vi kører koden på det samme eksempel:
Billede 2. Sammenligning af strengene med Alternativet Sammenlign tekst
Nu, når Option Compare Text er indstillet, bliver VBA'et ufølsomt for store og små bogstaver og betragter disse to tekster som de samme.
Sammenligning af tekst
Hvis du ikke erklærer Mulighed Sammenlign tekst, kan du konvertere strengsager for at foretage store og små ufølsomme sammenligninger. Dette er muligt ved UCase, LCase eller StrConv funktion. Du kan finde ud af mere om dette her: VBA øvre, nedre og korrekte kasse - kabinetfunktioner
