Note: The other languages of the website are Google-translated. Back to English

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?

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2021 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

š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 aplikovat .

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno

Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Díky za skvělý návod na makro! Všiml jsem si však, že žádné věty za větou končící vykřičníkem nebyly velké. Jak to přidám do makra?
Tento komentář byl moderátorem webu minimalizován
Opravdu užitečné! Dík! :lol:
Tento komentář byl moderátorem webu minimalizován
Dobré makro, ale pomohlo by mít definované všechny proměnné.
Tento komentář byl moderátorem webu minimalizován
NEBO můžete jednoduše zkopírovat výběr do MS Word, změnit na velikost vět a zkopírovat zpět.
Tento komentář byl moderátorem webu minimalizován
Zde je jednoduchý způsob, jak převést jakýkoli text s více větami na velikost vět. Komentáře vpravo ukazují, jak se text v každém kroku mění. Soukromá funkce SentenceConvert(strText As String) As String strText = LCase(strText) 'JDU. šel jsem. --> jdu. šel jsem. strText = Nahradit(Nahradit(Nahradit(strText, ". ", ".~"), "? ", "?~"), "!", "!~") 'Jdu. šel jsem. --> jdu. ~ šel jsem. strText = Nahradit(strText, " ", "^") 'jdu.~šel jsem. --> jdu.~i jdu. strText = Nahradit(strText, "~", " ") 'i^go.~i^went. --> jdu. šel jsem. strText = StrConv(strText, vbProperCase) 'i^go. šel jsem. --> Jdu. Šel jsem. strText = Nahradit(strText, "^", " ") 'Jdu. Šel jsem. --> Jdu. Šel jsem. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL