Kaip konvertuoti mažas raides į didžiąsias raides keliems stulpeliams naudojant „Microsoft Excel“ VBA
Šiame straipsnyje sužinosime, kaip konvertuoti tekstą į didžiąsias raides tam tikruose stulpeliuose (ne visuose langeliuose) naudojant VBA kodą.
Klausimas): Noriu kodo, kuris pakeistų įvestą tekstą mažosiomis raidėmis į didžiąsias raides kai kuriuose stulpeliuose (ne visuose).
Tarkime, kad nenoriu, kad kodas būtų paleistas 4, 6, 9, 12 ir 13 stulpeliuose, t. Y. Jei į šiuos stulpelius įvedamas bet koks tekstas, kodas nebus suaktyvintas.
Norėdami įvesti didžiąsias raides rašydami mažomis raidėmis; norėdami paleisti VB redaktorių, turime atlikti toliau nurodytus veiksmus
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Nukopijuokite šį kodą lapo modulyje
Privatus antrinis darbalapio keitimas („ByVal Target“ kaip „Excel.Range“)
Jei Target.Column = 4 arba Target.Column = 6 Ar Target.Column = 9 _
Arba Target.Column = 12 arba Target.Column = 13 Tada išeikite iš Sub
Dėl klaidos „GoTo ErrHandler“
Application.EnableEvents = Netiesa
Target.Formula = UCase (Target.Formula)
ErrHandler:
Application.EnableEvents = Tiesa
Pabaiga Sub
- Kodas veiks 1 lape tik tada, kai kodas bus įvestas 1 lape
- Kodas automatiškai pakeis mažąją raidę, įvestą per klaidą arba nežinant, iškart į didžiąsias raides visuose stulpeliuose, išskyrus 4, 6, 9, 12 ir 13.
Tokiu būdu mes galime konvertuoti tekstą į didžiųjų raidžių skiltis naudodami VBA kodą.
Parsisiųsti - Kaip konvertuoti mažas raides į didžiąsias raides - xlsm