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

V předchozím článku jsme diskutovali metodu VBA formátování čísla v textovém poli jako měnu v aplikaci Excel. Tady v tomto článku budeme hovořit o formátování čísla v textovém poli jako procento v aplikaci Excel také pomocí metody VBA.

Formátujte textové pole jako procento pomocí kódu VBA

---

Formátujte textové pole jako procento pomocí kódu VBA

Při formátování textového pole v procentech pomocí kódu VBA postupujte takto.

1. cvaknutí Vývojka > Vložit > Textové pole (ovládací prvek ActiveX) pro vložení textového pole do listu. Viz snímek obrazovky:

2. Klikněte pravým tlačítkem na textové pole a poté klikněte na Zobrazit kód z kontextové nabídky.

3. V otvoru Microsoft Visual Basic pro aplikace v okně Kód prosím nahraďte 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: Podle potřeby změňte TextBox1 na název textového pole.

4. cvaknutí Tools > Reference. Poté zkontrolujte Pravidelné výrazy Microsoft VBScript pole v Reference - VBAProject dialogové okno a klikněte na OK knoflík. Viz screenshot:

5. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

6. Po návratu do listu klikněte, prosím Vývojka > Režim návrhu znovu vypnete režim návrhu.

Od nynějška budou při zadávání čísel do textového pole a posunutí kurzoru mimo textové pole na libovolnou buňku tato čí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?