Preskoči na glavno vsebino

Kako vsiliti besedilni niz v velike / male / velike črke v Excelu?

V Excelu, ko v celice vnesete nekaj črk ali besed, želite besedilne nize prisiliti v velike črke, čeprav ste vnesli male ali ustrezne črke in obratno. Večina od nas lahko razmisli o funkciji preverjanja podatkov v Excelu, s to funkcijo pa bomo dobili opozorilo, če besedila ne vtipkamo pravilno. V tem članku bom predstavil nekaj zanimivih načinov, kako prisiliti besedilo v veliko, malo ali pravilno črko, kot jo potrebujete.

Pri preverjanju podatkov prisilite besedilne nize v velike / male / velike črke

Uporabite silo besedilnih nizov za velike / male / velike črke s kodo VBA

Spremenite besedilo v GLAVNO / malo / pravilno črko s programom Kutools za Excel dobra ideja3


Validacija podatkov je močno orodje v Excelu, lahko nam pomaga pri številnih operacijah, z njegovo pomočjo lahko med tipkanjem prisilimo tudi velike, male ali pravilne črke besedilnih nizov, naredite naslednje:

1. Pojdi na klik datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:

doc-force-velika črka-1

2. v Preverjanje podatkov pod pogovornim oknom Nastavitve Kliknite jeziček Dovoli spustni seznam in izberite po meri , nato v Formula vnesite to formulo = TOČNO (ZGORNJE (A1), A1)(A1 pomeni stolpec, v katerem boste uporabili to funkcijo, jo lahko spremenite po svoji potrebi), glejte posnetek zaslona:

doc-force-velika črka-1

3. Nato lahko ustvarite opozorilo, kot ga potrebujete, kliknite Opozorilo o napaki zavihek in izberite stop Iz Style spustni seznam v desnem kotu Obvestilo o napaki vnesite svoje opozorilno sporočilo, glejte posnetek zaslona:

doc-force-velika črka-1

4. In nato kliknite OK Če želite zapreti pogovorno okno, se bo zdaj, ko v stolpec A vnesete besedilni niz, ne z velikimi črkami, prikazalo opozorilno polje, ki vas bo opozorilo na vnos velikih črk.

doc-force-velika črka-1

Opomba:

Če morate besedilne nize vsiliti z malimi ali malimi črkami, uporabite naslednje formule v Preverjanje podatkov v koraku 2.

Sila do male črke: = TOČNO (LOWER (A1), A1);

Prisili v pravi primer: = TOČNO (PRAVILNO (A1), A1)


Ko vnesete male črke v celico z naslednjo kodo VBA, se bo malo besedilo samodejno spremenilo v velike črke.

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Nato na levi izberite uporabljeni delovni list Raziskovalec projektov, dvokliknite, da odprete Moduliin nato v prazen modul kopirajte in prilepite naslednjo kodo VBA:

Koda VBA: prisilite besedilni niz v velike črke

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

doc-force-velika črka-1

3. Nato shranite in zaprite to kodo, da se vrnete na delovni list, zdaj, ko vnesete besedilni niz, kadar koli je ta napisan z malimi ali malimi črkami, bo po pritisku na Vnesite tipko samodejno.

Opombe:

1. Ta koda se uporablja za celoten delovni list.

2. Če ne najdete P-japodokno Explorerja v oknu lahko kliknete Poglej > Raziskovalec projektov da ga odprete.

3. Če želite izgovoriti male ali male črke, lahko uporabite naslednjo kodo VBA: (Postopek je enak zgornjemu)

Koda VBA: prisilite besedilni niz v male črke

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

Koda VBA: vsilite besedilni niz v pravilno črko

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

Če želite spremeniti nekatera določena besedila v GLAVNA, mala ali pravilna črka, lahko uporabite Spremeni veliko črko uporabnost Kutools za Excel da ga hitro opravite.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite besedila, ki jih želite spremeniti, in kliknite Kutools > Besedilo > Spremeni veliko črko. Oglejte si posnetek zaslona:
sprememba dokumenta 6

2. V Ljubljani Spremeni veliko črko pogovorno okno, po potrebi preverite možnost delovanja in si lahko v predogledu ogledate rezultat predogled podokno. Oglejte si posnetek zaslona:
sprememba dokumenta 2

3. klik Ok or Uporabi in besedila so bila spremenjena.

 Preklopite na UPPERCASE  Spremeni v pravi primer  Spremeni se v primer stavka
 sprememba dokumenta 3  sprememba dokumenta 4 sprememba dokumenta 5 

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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