Potrebujete automaticky zmeniť text bunky na správny, veľký alebo malý, keď ho používateľ zadá? Existuje niekoľko spôsobov, ako to dosiahnuť, a existuje niekoľko možných požiadaviek. Tu je príklad, ktorý všetko automaticky zmení po zadaní do konkrétneho stĺpca. Našťastie z tohto príkladu môžete stavať!
1. Stlačením klávesov ALT a F11 otvorte okno kódu
2. Dvakrát kliknite na názov hárka, ktorý chcete automaticky
zmeniť prípad
3. Vložte tento kód do okna kódu:
Zmeňte text na správny prípad
Kód pre Správny prípad
Súkromný čiastkový pracovný list_Zmeniť (ByVal Target ako Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub
Zmeniť text na veľké písmená
Pre Veľké písmená môžeš zmeniť
StrConv (Target, vbProperCase)
do
Ucase (cieľ)
Zmeňte text na malé písmená
Pre Malými písmenami môžeš zmeniť
StrConv (Target, vbProperCase)
do
Lcase (cieľ)