U některých sloupců převeďte malá písmena na velká písmena

Anonim

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