Přejít k hlavnímu obsahu

Jak vynutit textový řetězec na velká / malá / správná velikost v aplikaci Excel?

Autor: Xiaoyang Naposledy změněno: 2020-05-08

Když v aplikaci Excel zadáte do buněk některá písmena nebo slova, chcete vynutit textové řetězce na velká písmena, i když jste zadali malá nebo správná velká písmena a naopak. Většina z nás může zvážit funkci Ověření dat v aplikaci Excel, s touto funkcí se zobrazí varování, když nezadáte správný velikost textu. V tomto článku představím několik zajímavých způsobů, jak vynutit, aby text psal velká, malá nebo správná písmena, jak potřebujete.

Vynutit textové řetězce na velká / malá / správná velká písmena pomocí Ověření dat

Vynutit textové řetězce na velká / malá / správná velká písmena pomocí kódu VBA

Změňte text na VELKÉ / malá / správná písmena pomocí Kutools pro Excel dobrý nápad3

Ověření dat je mocný nástroj v aplikaci Excel, může nám pomoci provádět mnoho operací, s jeho pomocí můžeme při psaní vynutit také velká, malá nebo správná velká písmena textových řetězců, postupujte takto:

1. Přejít na kliknutí Data > Ověření dat > Ověření dat, viz screenshot:

doc-force-velká písmena-1

2. V Ověření dat dialogové okno pod Nastavení klepněte na kartu povolit rozevírací seznam a vyberte Zvyk možnost, pak v Vzorec do textového pole zadejte tento vzorec = PŘESNÉ (HORNÍ (A1), A1), (A1 znamená sloupec, na který použijete tuto funkci, můžete ji změnit podle svých potřeb), viz screenshot:

doc-force-velká písmena-1

3. Poté můžete podle potřeby vytvořit upozornění, klikněte prosím Chybové upozornění Záložka a zvolte Stop z Styl rozevírací seznam v pravém rohu okna Chybová zpráva textové pole, zadejte vlastní varovnou zprávu, viz screenshot:

doc-force-velká písmena-1

4. A pak klikněte na tlačítko OK zavřete dialogové okno, nyní když zadáte textový řetězec, který není ve sloupci A psán velkými písmeny, vyskočí výstražné pole, které vám připomene zadávání velkých písmen.

doc-force-velká písmena-1

Poznámka:

Pokud potřebujete vynutit, aby textové řetězce používaly malá nebo velká písmena, použijte následující vzorce do Ověření dat v kroku 2.

Síla psaná malými písmeny: = PŘESNÁ (NÍZKÁ (A1), A1);

Síla do správného případu: = PŘESNÁ (VHODNÁ (A1), A1)

Když v následujícím kódu VBA zadáte malá slova do buňky, text malých písmen se automaticky změní na velká písmena.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2. Poté vyberte použitý list zleva Průzkumník projektupoklepáním otevřete soubor Modula poté zkopírujte a vložte následující kód VBA do prázdného modulu:

Kód VBA: Vynucení textového řetězce na velká písmena

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

doc-force-velká písmena-1

3. Poté tento kód uložte a zavřete, abyste se vrátili do listu, nyní, když zadáte textový řetězec, kdykoli je malá nebo správná velikost, po klepnutí na vstoupit klíč automaticky.

Poznámky:

1. Tento kód se použije na celý list.

2. Pokud nemůžete najít PPodokno Průzkumník roject v okně můžete kliknout Pohled > Průzkumník projektu otevřít.

3. Chcete-li slova vynutit malými nebo správnými písmeny, můžete použít následující kód VBA: (Postup je stejný jako výše)

Kód VBA: Vynutí textový řetězec na malá písmena

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

Kód VBA: Vynutí textový řetězec na správná velikost písmen

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

Pokud chcete jen změnit některé konkrétní texty na VELKÉ, malé nebo vlastní, můžete použít Změnit případ užitečnost Kutools pro Excel rychle to dokončit.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 
Stažení zdarma
zdarma plně funkční do 30 dnů

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte texty, u kterých chcete změnit velká a malá písmena, a klikněte na Kutools > Text > Změnit případ. Viz snímek obrazovky:
případ změny dokumentu 6

2. V Změnit případ V dialogovém okně zaškrtněte možnost operace podle potřeby a můžete zobrazit náhled výsledku v souboru Náhled podokno. Viz screenshot:
případ změny dokumentu 2

3. cvaknutí Ok or Podat žádost a texty byly změněny.

 Změňte na VELKOU  Změnit na správný případ  Změnit na Věta
 případ změny dokumentu 3  případ změny dokumentu 4 případ změny dokumentu 5 

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
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.
Reply
0
0
skyyang
skyyang     DS
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!
Reply
Report
0
0
Spencer
Spencer
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
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
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?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
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!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
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?
Reply
0
0
Sunny
Sunny     Russ Maurer
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?
Reply
Report
0
0
Patrick
Patrick
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!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations