Jak sformatować pole tekstowe jako procent w programie Excel?

W poprzednim artykule omówiliśmy metodę VBA formatowania liczby w polu tekstowym jako waluty w programie Excel. W tym artykule porozmawiamy o formatowaniu liczby w polu tekstowym jako wartości procentowej w programie Excel z metodą VBA.

Sformatuj pole tekstowe jako procent za pomocą kodu VBA

---

Sformatuj pole tekstowe jako procent za pomocą kodu VBA

Wykonaj następujące czynności, aby sformatować pole tekstowe jako wartość procentową za pomocą kodu VBA.

1. kliknij Deweloper > wstawka > Pole tekstowe (formant ActiveX) wstawić pole tekstowe do arkusza. Zobacz zrzut ekranu:

2. Kliknij prawym przyciskiem pole tekstowe, a następnie kliknij Wyświetl kod z menu kontekstowego.

3. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na poniższy kod VBA.

Kod VBA: sformatuj pole tekstowe jako procent w programie 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

Uwagi: Zmień TextBox1 na nazwę pola tekstowego w zależności od potrzeb.

4. kliknij Narzędzia > Referencje. Następnie sprawdź Wyrażenia regularne Microsoft VBScript Okno w Referencje - VBAProject okno dialogowe i kliknij OK przycisk. Zobacz zrzut ekranu:

5. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.

6. Po powrocie do arkusza kliknij Deweloper > Tryb projektowania ponownie, aby wyłączyć tryb projektowania.

Odtąd podczas wprowadzania liczb do pola tekstowego i przesuwania kursora poza pole tekstowe, aby kliknąć dowolną komórkę, liczby te zostaną automatycznie sformatowane jako procent.

---

Podobne artykuły:

• Jak sformatować pole tekstowe jako walutę w programie Excel?
• Jak automatycznie zaznaczyć tekst pola tekstowego, gdy jest on wybrany w programie Excel?
• Jak automatycznie uzupełniać pole tekstowe podczas pisania w programie Excel?
• Jak połączyć teksty wielu komórek w pole tekstowe w programie Excel?
• Jak wyłączyć edycję w polu tekstowym, aby uniemożliwić wprowadzanie danych przez użytkownika w programie Excel?