Přejít k hlavnímu obsahu

Jak změnit textové řetězce na velká písmena v aplikaci Microsoft Excel?

Možná budete muset změnit textové řetězce na velká a malá písmena v aplikaci Microsoft Excel. Předpokládejme, že existují stovky textových řetězců psaných velkými nebo malými písmeny, a jejich ruční změna jeden po druhém není dobrá volba. Existují jednoduché triky, jak změnit textové řetězce na velká a malá písmena v aplikaci Microsoft Excel?


šipka modrá pravá bublina Změňte textové řetězce na velká písmena v aplikaci Excel pomocí VBA

Pokud máte zkušenosti s Microsoft Excel, je použití VBA dobrou volbou pro změnu textových řetězců na velká a malá písmena.

Krok 1: Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

Krok 2: Klepněte na tlačítko Vložit > Modula vložte následující makro do souboru Modul okno.

Sub SentenceCase()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

Krok 3: Stiskněte tlačítko F5 klíč ke spuštění tohoto makra, pak se na obrazovce objeví dialogové okno pro výběr rozsahu, viz screenshot:

doc-change-case7

Krok 4: Klepněte na tlačítko Oka můžete vidět výsledek, jak je znázorněno níže:


šipka modrá pravá bublina Změňte textové řetězce na velká písmena v aplikaci Excel pomocí programu Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

Makro VBA nemusí být pro začátečníky aplikace Microsoft Excel snadné. Prosím, nedělejte si s tím starosti. Kutools pro Excel's Změnit případ nástroj může rychle změnit všechny textové řetězce na malá a velká písmena.

Krok 1: Vyberte rozsah, ve kterém změníte textové řetězce na velká a malá písmena.

Krok 2: Klepněte na tlačítko Kutools > Textové nástroje > Změnit případ .... Viz snímek obrazovky:

Krok 3: V dialogovém okně Změnit velikost písmen zaškrtněte políčko Věta věty. Možnost a klikněte na OK or Podat žádost .

Poté uvidíte, že se ve výběru všechny druhy textových řetězců změní na malá a velká písmena. Viz následující obrázek:

Kutools pro Excel's Změnit případ nástroj může rychle změnit velká a malá písmena na VELKÁ, DOLNÍ, VHODNÁ, Věta na větu a tOGGLE cASE. Kliknutím se dozvíte více…


Relativní články:

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations