Salt la conținutul principal

Cum se forțează șirul de text să scrie majuscule / mici / majuscule în Excel?

În Excel, atunci când introduceți câteva litere sau cuvinte în celule, doriți să forțați șirurile de text cu majuscule, chiar dacă ați introdus literele mici sau minuscule și invers și invers. Cei mai mulți dintre noi ar putea lua în considerare caracteristica de validare a datelor în Excel, cu această funcție, vom primi un avertisment atunci când nu tastăm cazul corect al textului. În acest articol, voi introduce câteva modalități interesante de a forța textul să scrie majuscule, mici sau minuscule după cum aveți nevoie.

Forțați șirurile de text la majuscule / minuscule / minuscule cu validarea datelor

Forțați șirurile de text să scrie majuscule / mici / minuscule cu codul VBA

Schimbați textul cu majuscule / minuscule / minuscule cu Kutools pentru Excel idee bună3


Validarea datelor este un instrument puternic în Excel, ne poate ajuta să facem multe operații, cu ajutorul său, putem forța majuscule, minuscule sau majuscule ale șirurilor de text atunci când tastați, faceți următoarele:

1. Accesați clic Date > Data validarii > Data validarii, vezi captura de ecran:

doc-forță-majuscule-1

2. În Data validarii dialog, sub setări cont , faceți clic pe Permite derulează lista și alege pachet personalizat opțiune, apoi în Formulă caseta de text, introduceți această formulă = EXACT (SUPERIOR (A1), A1), (A1 înseamnă o coloană pe care o veți aplica această caracteristică, o puteți schimba după nevoile dvs.), vedeți captura de ecran:

doc-forță-majuscule-1

3. Apoi puteți crea o alertă după cum aveți nevoie, faceți clic pe Alertă de eroare fila, și selectați Stop de la Stil lista derulantă, în colțul din dreapta al Mesaj de eroare caseta de text, introduceți propriul mesaj de avertizare, vedeți captura de ecran:

doc-forță-majuscule-1

4. Apoi faceți clic pe OK pentru a închide dialogul, acum când introduceți șirul de text nu cu majuscule în coloana A, va apărea o casetă de avertizare pentru a vă reaminti introducerea literelor majuscule.

doc-forță-majuscule-1

Notă:

Dacă trebuie să forțați șirurile de text să fie minuscule sau minuscule, vă rugăm să aplicați următoarele formule în Data validarii la pasul 2.

Forța la minuscule: = EXACT (LOWER (A1), A1);

Forța la caz adecvat: = EXACT (PROPER (A1), A1)


Cu următorul cod VBA, atunci când introduceți cuvintele minuscule într-o celulă, textul minuscul va fi schimbat automat cu literele mari.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Apoi alegeți foaia de lucru utilizată din stânga Explorator de proiecte, faceți dublu clic pe acesta pentru a deschide fișierul Module, apoi copiați și lipiți următorul cod VBA în modulul gol:

Cod VBA: forțează șirul de text cu majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-forță-majuscule-1

3. Apoi, salvați și închideți acest cod pentru a reveni la foaia de lucru, acum când introduceți șirul de text ori de câte ori este cu litere mici sau minuscule, acesta va deveni majuscule după ce ați apăsat pe Intrați tasta automat.

note:

1. Acest cod este aplicat întregii foi de lucru.

2. Dacă nu găsiți Ppanoul de explorare a proiectelor în fereastră, puteți face clic Vizualizare > Explorator de proiecte să o deschidă.

3. Pentru a forța cuvintele minuscule sau minuscule, puteți aplica următorul cod VBA: (Procedura este aceeași cu cea de mai sus)

Cod VBA: forțează șirul de text la litere mici

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

Cod VBA: forțează șirul de text la majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Dacă doriți doar să schimbați anumite texte specifice în MAJUSCULE, minuscule sau minuscule, puteți aplica Schimbă cazul utilitatea Kutools pentru Excel pentru a o face rapid.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați textele pe care doriți să le schimbați cu majuscule și clicuri Kutools > Text > Schimbă cazul. Vedeți captura de ecran:
doc schimbare caz 6

2. În Schimbă cazul , verificați opțiunea de operare după cum aveți nevoie și puteți previzualiza rezultatul în Anunţ panou. Vedeți captura de ecran:
doc schimbare caz 2

3. clic Ok or Aplică iar textele au fost schimbate.

 Treceți la majuscule  Treceți la cazul adecvat  Treceți la caz de sentință
 doc schimbare caz 3  doc schimbare caz 4 doc schimbare caz 5 

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations