Konvertera små bokstäver till stora bokstäver för vissa kolumner

Hur man konverterar små bokstäver till stora bokstäver för några kolumner med VBA i Microsoft Excel

I den här artikeln lär vi oss hur man konverterar text till stora bokstäver i specifika kolumner (inte alla celler) med VBA -kod.

Fråga): Jag vill ha kod som ersätter texten med små bokstäver till stora bokstäver i vissa kolumner (inte alla).

Säg att jag inte vill att koden ska köras på kolumnerna 4, 6, 9, 12 och 13, dvs om någon text skrivs in i dessa kolumner kommer koden inte att utlösas.

För att få stora bokstäver när du skriver med små bokstäver; vi måste följa stegen nedan för att starta VB -editor

Klicka på fliken Utvecklare
Välj Visual Basic i kodgruppen

Kopiera följande kod i Sheet -modulen

Private Sub Worksheet_Change (ByVal Target As Excel.Range)

Om Target.Column = 4 Eller Target.Column = 6 Eller Target.Column = 9 _

Eller Target.Column = 12 Eller Target.Column = 13 Avsluta sedan Sub

Vid fel GoTo ErrHandler

Application.EnableEvents = Falskt

Target.Formula = UCase (Target.Formula)

ErrHandler:

Application.EnableEvents = True

Avsluta Sub

Koden fungerar bara i blad 1 när koden anges i blad1
Koden kommer automatiskt att ersätta den lilla bokstaven som skrivs av misstag eller i okunnighet omedelbart till stora bokstäver i alla kolumner utom 4, 6, 9, 12 och 13.

På så sätt kan vi konvertera text till versaler i specifika kolumner med VBA -kod.