Innholdsfortegnelse
Må du automatisk endre en celletekst til riktig, stor eller liten bokstav etter at brukeren har skrevet den? Det er flere måter å oppnå dette på, og flere krav er mulige. Her er et eksempel som automatisk endrer alt etter at det er lagt inn i en bestemt kolonne. Forhåpentligvis kan du bygge fra dette eksemplet!
1. Trykk ALT og F11 for å åpne kodevinduet
2. Dobbeltklikk på arkenavnet du vil automatisk
bytte sak
3. Sett denne koden i kodevinduet:
Endre tekst til riktig sak
Kode for Riktig sak
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
Endre tekst til store bokstaver
Til Stor bokstav du kan endre
StrConv (Target, vbProperCase)
til
Ucase (mål)
Endre tekst til små bokstaver
Til Små bokstaver du kan endre
StrConv (Target, vbProperCase)
til
Lcase (mål)
