Forceer juiste, hoofdletters of kleine letters automatisch - VBA-codevoorbeelden

Moet u de tekst van een cel automatisch wijzigen in Juiste, Hoofdletters of Kleine letters nadat de gebruiker deze heeft ingevoerd? Er zijn meerdere manieren om dit te bereiken en er zijn meerdere vereisten mogelijk. Hier is een voorbeeld dat alles automatisch verandert nadat het in een bepaalde kolom is ingevoerd. Hopelijk kun je bouwen vanuit dit voorbeeld!

1. Druk op ALT en F11 om het codevenster te openen

2. Dubbelklik op de bladnaam die u automatisch wilt

verander zaak

3. Zet deze code in het codevenster:

Tekst wijzigen in juiste hoofdletters

Code voor Juiste zaak

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

Tekst wijzigen in hoofdletters

Voor hoofdletters je kan veranderen

StrConv (doel, vbProperCase)

tot

Ucase (Doel)

Tekst wijzigen in kleine letters

Voor kleine letters je kan veranderen

StrConv (doel, vbProperCase)

tot

Lcase (Doel)