Kā pārvērst mazos burtus lielajos burtos dažām kolonnām, izmantojot Microsoft Excel VBA
Šajā rakstā mēs uzzināsim, kā konvertēt tekstu lielos burtos noteiktās kolonnās (ne visās šūnās), izmantojot VBA kodu.
Jautājums): Es vēlos kodu, kas dažās kolonnās (ne visās) aizstās tekstu, kas ar maziem burtiem ievadīts lielajos burtos.
Pieņemsim, ka nevēlos, lai kods darbotos 4., 6., 9., 12. un 13. slejā, t.i., ja šajās slejās tiek ievadīts teksts, kods netiks aktivizēts.
Lai rakstīšanas laikā ar mazajiem burtiem iegūtu lielos burtus; mums ir jāveic šādas darbības, lai palaistu VB redaktoru
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Lapas modulī nokopējiet šādu kodu
Privāta apakšdarblapas maiņa (ByVal Target kā Excel.Range)
Ja Target.Column = 4 vai Target.Column = 6 Vai Target.Column = 9 _
Vai Target.Column = 12 Vai Target.Column = 13 Tad iziet no apakšsadaļas
Par kļūdu GoTo ErrHandler
Application.EnableEvents = Nepareizi
Target.Formula = UCase (Target.Formula)
ErrHandler:
Application.EnableEvents = Patiess
Beigt apakš
- Kods darbosies 1. lapā, jo kods ir ievadīts 1. lapā
- Kods automātiski aizstās mazo burtu, kas kļūdaini vai neziņā ierakstīts lielajos burtos visās kolonnās, izņemot 4, 6, 9, 12 un 13.
Tādā veidā mēs varam pārvērst tekstu par burtiem noteiktās slejās, izmantojot VBA kodu.
Lejupielādēt - Kā pārvērst mazos burtus lielajos burtos - xlsm