Samodejno vsiljevanje pravilnih, velikih ali malih črk - primeri kode VBA

Ali morate potem, ko ga uporabnik vnese, samodejno spremeniti besedilo celice v Pravilno, Zgornje ali Male črke? Za to obstaja več načinov in možnih je več zahtev. Tukaj je primer, ki samodejno spremeni vse, potem ko je vnesen v določen stolpec. Upajmo, da lahko iz tega primera gradite!

1. Pritisnite ALT in F11, da odprete okno za kodo

2. Dvokliknite ime lista, ki ga želite samodejno

menjava ohišja

3. V kodo vnesite to kodo:

Spremeni besedilo v prave črke

Koda za Primerno ohišje

Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Potem Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub

Spremeni besedilo v velike tiskane črke

Za Velike črke lahko spremenite

StrConv (Target, vbProperCase)

do

Ucase (tarča)

Spremeni besedilo v male črke

Za Spodnje črke lahko spremenite

StrConv (Target, vbProperCase)

do

Lcase (tarča)