Přejít k hlavnímu obsahu

Jak formátovat textové pole jako procento v aplikaci Excel?

Autor: Siluvia Naposledy změněno: 2025-04-18

V předchozím článku jsme se zabývali tím, jak formátovat čísla v textovém poli jako měnu v Excelu. Tentokrát prozkoumáme formátování čísel v textovém poli jako procenta. Pomocí VBA můžete zajistit, že jakékoli číslo zadané do textového pole bude automaticky naformátováno jako procento pro konzistentní prezentaci dat.

Formátujte položky textového pole jako procenta pomocí kódu VBA


Formátujte položky textového pole jako procenta pomocí kódu VBA

Při formátování textového pole jako procenta pomocí kódu VBA postupujte podle těchto kroků.

1. Kliknutím na „Vývojář“ > „Vložit“ > „Textové pole (ovládací prvek ActiveX)“ vložte textové pole do listu. Viz snímek obrazovky:

Snímek obrazovky ukazující, jak vložit textové pole (ovládací prvek ActiveX) do aplikace Excel

2. Klepněte pravým tlačítkem myši na textové pole a poté v kontextové nabídce klepněte na "Zobrazit kód".

Snímek obrazovky kontextové nabídky s vybraným kódem zobrazení pro textové pole v Excelu

3. V otevíracím okně "Microsoft Visual Basic for Applications" nahraďte prosím původní kód v okně Kód níže uvedeným kódem VBA.

Kód VBA: formátování textového pole v procentech v aplikaci Excel

Private Sub TextBox1_LostFocus()
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xText As String
    Dim xReplace As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xText = Me.TextBox1.Text
    xText = Replace(xText, "%", "")
    With xReg
        .Global = True
        .Pattern = "([^0-9]+\d+)|(\d{1,})"
        Set xMatches = .Execute(xText)
        For Each xMatch In xMatches
            xReplace = xReplace & xMatch.Value & "%"
        Next
    End With
    xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
    Me.TextBox1.Text = xText
    Application.ScreenUpdating = True
End Sub

Poznámka: Nahraďte "TextBox1" názvem textového pole, které používáte.

4. Klikněte na "Nástroje" > "Odkazy". Poté zaškrtněte políčko "Microsoft VBScript Regular Expressions" v dialogovém okně "Reference – VBAProject" a klikněte na tlačítko "OK". Viz snímek obrazovky:

Snímek obrazovky dialogového okna Reference ve VBA s vybranými regulárními výrazy Microsoft VBScript

5. Stisknutím kláves "Alt" + "Q" ukončete okno "Microsoft Visual Basic for Applications".

6. Až se vrátí do listu, klikněte znovu na "Vývojář" > "Režim návrhu" a vypněte režim návrhu.

Snímek obrazovky zobrazující možnost Režim návrhu na kartě Vývojář v Excelu

Od této chvíle, když do textového pole zadáte čísla a přesunete z něj kurzor, abyste klikli na libovolnou buňku, budou čísla automaticky formátována jako procenta.


Související č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  |  vzývat Kutools Funkce...
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
Použijte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Vylepšete si své excelové dovednosti s Kutools for Excela 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...


Office Tab Přináší do Office rozhraní s kartami a výrazně vám usnadňuje 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!