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

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:

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

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:

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.

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:

• Jak formátovat textové pole jako měnu v aplikaci Excel?
• Jak automaticky vybrat text textového pole, když je vybrán v aplikaci Excel?
• Jak automaticky vyplnit textové pole při psaní v aplikaci Excel?
• Jak zřetězit texty více buněk do textového pole v aplikaci Excel?
• Jak zakázat úpravy v textovém poli, aby se zabránilo vstupu uživatele do aplikace Excel?