Strādājot VBA, jums bieži ir jāsalīdzina virknes. Pēc noklusējuma, VBA ir reģistrjutīgs, tādēļ, ja jūs salīdzināt divus vienādus tekstus un viens no tiem ir ar lielajiem burtiem, bet otrs - ar mazajiem burtiem, VBA tos uzskatīs par atšķirīgiem tekstiem. Šajā apmācībā jūs redzēsit, kā novērst to, ka VBA ir reģistrjutīga.
Padarīt VBA reģistrjutīgu
Lai VBA padarītu nejutīgu pret reģistriem, jums jāievieto Opcija Salīdzināt tekstu moduļa sākumā. Pirmkārt, mēs aplūkosim standarta VBA uzvedību bez šīs opciju kopas. Šis ir kods:
| 123456789 | Ja lapa1. Diapazons ("A1"). Vērtība = lapa1. Diapazons ("B1"). VērtībaMsgBox "Divi teksti ir vienādi"CitādiMsgBox "Divi teksti ir atšķirīgi"Beigas Ja |
Piemērā mēs vēlamies salīdzināt virknes no A1 un B1. Ja virknes ir vienādas, mēs atgriezīsim ziņojumu lodziņu ar ziņojumu “Divi teksti ir vienādi”. Ja tie nav vienādi, mēs atgriezīsim ziņu “Divi teksti ir atšķirīgi.
Attēls 1. Stīgu salīdzināšana bez opcijas Salīdzināt tekstu
Kā redzams attēlā, abi teksti ir vienādi, bet pirmais ir ar lielajiem burtiem, bet otrais - ar mazajiem burtiem. Tāpēc VBA uzskata viņus par atšķirīgiem un atdeva šo ziņu.
| 1234567891011 | Opcija Salīdzināt tekstuPublisks apakšpunktsSensitiveTest ()Ja lapa1. Diapazons ("A1"). Vērtība = lapa1. Diapazons ("B1"). VērtībaMsgBox "Divi teksti ir vienādi"CitādiMsgBox "Divi teksti ir atšķirīgi"Beigas JaBeigu apakš |
Tagad moduļa sākumā mēs pievienosim opciju Salīdzināt tekstu un redzēsim atšķirību. Šeit ir kods. Mēs izpildām kodu tajā pašā piemērā:
2. attēls. Stīgu salīdzināšana ar opciju Salīdzināt tekstu
Tagad, kad ir iestatīts opciju salīdzināšanas teksts, VBA kļūst nejutīgs pret mazajiem un mazajiem burtiem un uzskata, ka šie divi teksti ir vienādi.
Teksta salīdzināšana
Ja jūs nepaziņojat Opcija Salīdzināt tekstu, varat pārvērst virkņu reģistrus, lai salīdzinātu burtu reģistru. Tas ir iespējams, izmantojot UCase, LCase vai StrConv funkciju. Vairāk par to varat uzzināt šeit: VBA augšējā, apakšējā un pareizā gadījuma funkcijas
