Piespiest pareizo, lielo vai mazo burtu automātiski - VBA koda piemēri

Vai pēc lietotāja ievadīšanas šūnu teksts ir automātiski jāmaina uz pareizo, lielo vai mazo burtu? Ir vairāki veidi, kā to paveikt, un ir iespējamas vairākas prasības. Šeit ir piemērs, kas automātiski maina visu pēc tam, kad tas ir ievadīts noteiktā slejā. Cerams, ka jūs varat veidot no šī piemēra!

1. Nospiediet ALT un F11, lai atvērtu koda logu

2. Veiciet dubultklikšķi uz lapas nosaukuma, kuru vēlaties automātiski

mainīt lietu

3. Ievietojiet šo kodu koda logā:

Mainīt tekstu uz pareizo reģistru

Kods priekš Pareiza lieta

Privāta apakšdarblapas_maiņa (ByVal mērķis kā Excel.Range) Application.EnableEvents = False If Target.Column = 5 Tad Target = StrConv (Target, vbProperCase) Beidzas, ja Application.EnableEvents = True End Sub

Mainīt tekstu uz lielajiem burtiem

Priekš Lielie burti tu vari mainīties

StrConv (mērķis, vbProperCase)

uz

Ucase (mērķis)

Mainiet tekstu uz mazajiem burtiem

Priekš Mazie burti tu vari mainīties

StrConv (mērķis, vbProperCase)

uz

Lcase (mērķis)