Ako previesť malé písmená na veľké písmená pre niekoľko stĺpcov pomocou VBA v programe Microsoft Excel
V tomto článku sa naučíme, ako pomocou kódu VBA prevádzať text na veľké písmena v konkrétnych stĺpcoch (nie vo všetkých bunkách).
Otázka): Chcem kód, ktorý v niektorých stĺpcoch (nie vo všetkých) nahradí text zadávaný malými písmenami veľkými písmenami.
Povedzme, že nechcem, aby sa kód spustil v stĺpcoch 4, 6, 9, 12 a 13, t.j. ak je do týchto stĺpcov zadaný nejaký text, kód sa nespustí.
Aby ste pri písaní malých písmen dostali veľké písmená; na spustenie editora VB musíme postupovať podľa nižšie uvedených krokov
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
Skopírujte nasledujúci kód do modulu Tabuľka
Súkromný čiastkový pracovný list_Zmeniť (cieľ ByVal ako Excel.Range)
If Target.Column = 4 Or Target.Column = 6 Or Target.Column = 9 _
Alebo Target.Column = 12 Alebo Target.Column = 13 Potom ukončite podč
Pri chybe GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase (Target.Formula)
ErrHandler:
Application.EnableEvents = Pravda
Koniec pod
- Kód bude fungovať iba v hárku 1, pretože kód je zadaný v hárku 1
- Kód automaticky nahradí malé písmeno zadané omylom alebo v nevedomosti okamžite veľkými písmenami vo všetkých stĺpcoch okrem 4, 6, 9, 12 a 13.
Týmto spôsobom môžeme pomocou kódu VBA prevádzať text na veľké písmená v konkrétnych stĺpcoch.
Stiahnutie - Ako previesť malé písmená na veľké písmená - xlsm