Jak převést malá písmena na velká písmena pro několik sloupců pomocí VBA v aplikaci Microsoft Excel
V tomto článku se naučíme, jak převést text na velká písmena v konkrétních sloupcích (ne ve všech buňkách) pomocí kódu VBA.
Otázka): Chci kód, který v některých sloupcích (ne ve všech) nahradí zadávání textu malými písmeny velkými písmeny.
Řekněme, že nechci, aby se kód spustil ve sloupcích 4, 6, 9, 12 a 13, tj. Pokud je do těchto sloupců zadán jakýkoli text, pak se kód nespustí.
Chcete -li získat velká písmena při psaní malými písmeny; pro spuštění VB editoru musíme postupovat podle níže uvedených kroků
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Zkopírujte následující kód do modulu List
Private Sub Worksheet_Change (ByVal Target As Excel.Range)
If Target.Column = 4 Or Target.Column = 6 Or Target.Column = 9 _
Nebo Target.Column = 12 Nebo Target.Column = 13 Potom Exit Sub
Při chybě GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase (Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
- Kód bude fungovat pouze v listu1, protože kód je zadán v listu1
- Kód automaticky nahradí malá písmena zadaná omylem nebo v nevědomosti okamžitě velkými písmeny ve všech sloupcích kromě 4, 6, 9, 12 a 13.
Tímto způsobem můžeme převést text na velká písmena v konkrétních sloupcích pomocí kódu VBA.
Stáhnout - Jak převést malá písmena na velká písmena - xlsm