Innehållsförteckning
Behöver du automatiskt ändra en celltext till korrekt, versal eller gemener efter att användaren har angett den? Det finns flera sätt att uppnå detta, och flera krav är möjliga. Här är ett exempel som automatiskt ändrar allt efter att det har angetts i en viss kolumn. Förhoppningsvis kan du bygga på detta exempel!
1. Tryck på ALT och F11 för att öppna kodfönstret
2. Dubbelklicka på det bladnamn du vill automatiskt
byta fall
3. Lägg den här koden i kodfönstret:
Ändra text till rätt bokstav
Kod för Rätt fall
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
Ändra text till versaler
För Versaler du kan förändra
StrConv (Target, vbProperCase)
till
Ucase (mål)
Ändra text till gemener
För Små bokstäver du kan förändra
StrConv (Target, vbProperCase)
till
Lcase (mål)