Šī apmācība parādīs, kā izmantot aizstājējzīmes VBA.
Aizstājējzīmes tiek izmantotas visās programmēšanas valodās un datu bāzes lietojumprogrammās, piemēram, SQL Server. Aizstājējzīmi var definēt kā simbolu, ko izmanto, lai aizstātu vienu vai vairākas rakstzīmes teksta virknē. Piemēram, šī teksta virkne - “mo*” - atradīs vārdus mamma, pele, aļņi, mamma utt .; kamēr šī teksta virkne “mo?” vai atradīsit tikai vārdu mamma kā aizstājējzīmi? aizstāj tikai vienu rakstzīmi.
Mēs izmantojam aizstājējzīmes ar līdzīgu operatoru, kas ir vienkāršāka alternatīva VBA Regex.
Izmantojot Asterix (*) aizstājējzīmi VBA
Asterix aizstājējzīme aizstāj vienu vai vairākas rakstzīmes VBA virknē.
Apskatīsim šādu šūnu diapazonu programmā Excel:
Izmantojot VBA kodā Asterix aizstājējzīmi, mēs varam atrast visus vārdus, kas sākas ar “M”, un mainīt teksta krāsu uz sarkanu.
| 12345678 | Sub CheckForM ()Dim x kā vesels skaitlisAttiecībā uz x = 3 līdz 8Ja diapazons ("B" un x) .Vērtība Tāpat kā "M*" TadDiapazons ("B" & x) .Fonts.Krāsa = vbSarkansBeigas JaNākamais xBeigu apakš |
Tāpēc mēs esam veikuši diapazonu un atraduši visus vārdus, kas sākas ar burtu M, jo mūsu aizstājējzīmes virkne ir “M*”
Iepriekš redzamā koda palaišanas rezultāts ir parādīts zemāk.
Ja mēs izmantotu aizstājējzīmes virkni “Ma*” - tad mainītos tikai vārdi B3 un B4.
Izmantojot jautājuma zīmes (?) Aizstājējzīmi VBA
Jautājuma zīme aizstās vienu rakstzīmi VBA virknē.
Apsveriet šādus datus:
Mēs varam izmantot aizstājējzīmes virkni “? Im”, lai atrastu visus vārdus, kas beidzas ar “im”
| 12345678 | Sub CheckForIM ()Dim x kā vesels skaitlisAttiecībā uz x = 3 līdz 8Ja diapazons ("B" & x) .Vērtība Patīk "? Im" TadDiapazons ("B" & x) .Fonts.Krāsa = vbSarkansBeigas JaNākamais xBeigu apakš |
Šī koda izpildes rezultāts ir parādīts zemāk:
Izmantojot [rakstzīmju sarakstu] kā aizstājējzīmi
Iepriekš minēto piemēru var nedaudz mainīt, lai ļautu mums izmantot jautājuma zīmi papildus atļauto rakstzīmju sarakstam. Tāpēc aizstājējzīmes virkni var mainīt uz “? [E-i] m”, kur pirmā rakstzīme var būt jebkas, otrajai rakstzīmei jābūt rakstzīmei starp e un i, bet pēdējai-“m”. Ir atļautas tikai 3 rakstzīmes.
| 12345678 | Sub CharListTest ()Dim x kā vesels skaitlisAttiecībā uz x = 3 līdz 8Ja diapazons ("B" & x) .Vērtība Patīk "? [E-i] m" TadDiapazons ("B" & x) .Fonts.Krāsa = vbSarkansBeigas JaNākamais xBeigu apakš |
Šī koda rezultāts būtu šāds:
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Izmantojot hash (#) aizstājējzīmi VBA
Hash (#) aizstājējzīme aizstāj vienu ciparu VBA virknē. Mēs varam sakrist no 0 līdz 9.
| 12345678910 | Sub CheckForNumber ()Izmērs x kā vesels skaitlis, y kā vesels skaitlisAttiecībā uz x = 3 līdz 8Ja y = 2 līdz 5Ja ActiveSheet.Cells (x, y) Like "##" TadActiveSheet. Šūnas (x, y). Fonts. Krāsa = vbSarkanaBeigas JaNākamais gNākamais xBeigu apakš |
Iepriekš minētais kods pārvietosies pa visām diapazona šūnām (“B3: E8”) un mainīs šūnā esošā teksta krāsu uz RED, ja šajā šūnā tiks atrasts divciparu skaitlis.
Tālāk redzamajā piemērā kods mainīs numuru tikai tad, ja pēdējais skaitlis ir 9.
| 12345678910 | Sub CheckFor9 ()Izmērs x kā vesels skaitlis, y kā vesels skaitlisAttiecībā uz x = 3 līdz 8Ja y = 2 līdz 5Ja ActiveSheet.Cells (x, y) Like "#9" TadActiveSheet. Šūnas (x, y). Fonts. Krāsa = vbSarkanaBeigas JaNākamais gNākamais xBeigu apakš |
