Zet kleine letters om in hoofdletters voor sommige kolommen

Kleine letters converteren naar hoofdletters voor enkele kolommen met VBA in Microsoft Excel

In dit artikel zullen we leren hoe u tekst in hoofdletters in specifieke kolommen (niet alle cellen) kunt converteren met VBA-code.

Vraag): Ik wil code die de tekst vervangt die in kleine letters in hoofdletters wordt ingevoerd in sommige kolommen (niet allemaal).

Stel dat ik niet wil dat de code wordt uitgevoerd op kolommen 4, 6, 9, 12 en 13, d.w.z. als er tekst in deze kolommen wordt ingevoerd, wordt de code niet geactiveerd.

Om de hoofdletters te krijgen terwijl u in kleine letters typt; we moeten de onderstaande stappen volgen om VB-editor te starten

Klik op het tabblad Ontwikkelaar
Selecteer in de codegroep Visual Basic

Kopieer de volgende code in de bladmodule:

Private Sub Worksheet_Change (ByVal-doel als Excel.Range)

Als doelkolom = 4 of doelkolom = 6 of doelkolom = 9 _

Of Target.Column = 12 Of Target.Column = 13 Sluit vervolgens Sub af

Bij fout Ga naar ErrHandler

Application.EnableEvents = False

Doel.Formule = UCase(Doel.Formule)

ErrHandler:

Application.EnableEvents = True

Einde sub

De code werkt alleen in blad1 als de code wordt ingevoerd in blad1
De code vervangt automatisch de kleine letter die per ongeluk of in onwetendheid is getypt, onmiddellijk in hoofdletters in alle kolommen behalve 4, 6, 9, 12 en 13.

Op deze manier kunnen we tekst converteren naar hoofdletters in specifieke kolommen met behulp van VBA-code.