Priversti tinkamai, didžiosios arba mažosios raidės automatiškai - VBA kodo pavyzdžiai

Ar vartotojui įvedus reikia automatiškai pakeisti langelio tekstą į tinkamą, didžiosios ar mažosios raidės? Yra keli būdai tai padaryti ir galimi keli reikalavimai. Štai pavyzdys, kuris automatiškai keičia viską, kai jis įvedamas į tam tikrą stulpelį. Tikimės, kad galėsite kurti iš šio pavyzdžio!

1. Paspauskite ALT ir F11, kad atidarytumėte kodo langą

2. Dukart spustelėkite lapo pavadinimą, kurį norite automatiškai

pakeisti atvejį

3. Įdėkite šį kodą į kodo langą:

Pakeiskite tekstą į tinkamą raidę

Kodas skirtas Tinkamas atvejis

Privatus antrinis darbalapio keitimas („ByVal Target“ kaip „Excel.Range“) Application.EnableEvents = False if Target.Column = 5 Tada Target = StrConv (Target, vbProperCase) Pasibaigti Application.EnableEvents = True End Sub

Pakeiskite tekstą į didžiąsias raides

Dėl Didžiosios raidės tu gali pasikeisti

„StrConv“ („Target“, „vbProperCase“)

į

„Ucase“ (tikslinis)

Pakeiskite tekstą į mažąsias raides

Dėl Mažosios raidės tu gali pasikeisti

„StrConv“ („Target“, „vbProperCase“)

į

Lcase (tikslinis)