Hvordan formateres en tekstboks i procent i Excel?

I den forrige artikel har vi diskuteret en VBA-metode til formatering af nummer i en tekstboks som valuta i Excel. Her i denne artikel vil vi også tale om formateringsnummer i en tekstboks i procent i Excel med VBA-metode.

Formater en tekstboks i procent med VBA-kode

---

Formater en tekstboks i procent med VBA-kode

Gør følgende for at formatere en tekstboks i procent med VBA-kode.

1. klik Udvikler > indsatte > Tekstboks (ActiveX-kontrol) for at indsætte en tekstboks i regnearket. Se skærmbillede:

2. Højreklik på tekstboksen, og klik derefter på Vis kode fra kontekstmenuen.

3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i kodevinduet med nedenstående VBA-kode.

VBA-kode: formater en tekstboks i procent i 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

Bemærk: Skift TextBox1 til tekstboksnavnet baseret på dit behov.

4. klik Værktøj > Referencer. Kontroller derefter Microsoft VBScript regulære udtryk boks i Referencer - VBAProject dialogboksen, og klik på OK knap. Se skærmbillede:

5. Tryk på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.

6. Når det vender tilbage til regnearket, skal du klikke Udvikler > Design Mode igen for at slukke for designtilstand.

Fra nu af, når du indtaster tal i tekstboksen og flytter markøren ud af tekstboksen for at klikke på en hvilken som helst celle, formateres disse tal automatisk i procent.

---

Relaterede artikler:

• Hvordan formateres en tekstboks som valuta i Excel?
• Hvordan vælges tekst automatisk i en tekstboks, når den er valgt i Excel?
• Hvordan udfyldes en tekstboks automatisk, når du skriver i Excel?
• Hvordan sammenkædes tekster fra flere celler i en tekstboks i Excel?
• Hvordan deaktiveres redigering i tekstboks for at forhindre brugerinput i Excel?