Tving automatisk, store eller små bogstaver automatisk - eksempler på VBA -kode

Skal du automatisk ændre en celletekst til Korrekt, Store eller Små bogstaver, efter at brugeren har indtastet den? Der er flere måder at opnå dette på, og flere krav er mulige. Her er et eksempel, der automatisk ændrer alt, efter at det er indtastet i en bestemt kolonne. Forhåbentlig kan du bygge ud fra dette eksempel!

1. Tryk på ALT og F11 for at åbne kodevinduet

2. Dobbeltklik på det arknavn, du vil automatisk

skifte sag

3. Indsæt denne kode i kodevinduet:

Skift tekst til korrekt sag

Kode for Korrekt sag

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

Skift tekst til store bogstaver

Til Store bogstaver du kan ændre

StrConv (Target, vbProperCase)

til

Ucase (mål)

Skift tekst til små bogstaver

Til Små bogstaver du kan ændre

StrConv (Target, vbProperCase)

til

Lcase (mål)