Potřebujete automaticky změnit text buňky na správný, velká nebo malá písmena poté, co jej uživatel zadá? Existuje několik způsobů, jak toho dosáhnout, a je možné více požadavků. Zde je příklad, který vše automaticky změní po zadání do konkrétního sloupce. Naštěstí z tohoto příkladu můžete stavět!
1. Stisknutím ALT a F11 otevřete okno kódu
2. Poklepejte na název listu, který chcete automaticky
změnit případ
3. Vložte tento kód do okna kódu:
Změňte text na správný případ
Kód pro Správný případ
Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub
Změnit text na velká písmena
Pro Velká písmena můžete změnit
StrConv (Target, vbProperCase)
na
Ucase (cíl)
Změňte text na malá písmena
Pro Malá písmena můžete změnit
StrConv (Target, vbProperCase)
na
Lcase (cíl)
