Hogyan formázzuk a szövegmezőt százalékban az Excelben?

Az előző cikkben tárgyaltunk egy VBA módszert, amely szerint az Excelben pénznemként formázza a számot egy szövegmezőben. Itt ebben a cikkben arról is beszélni fogunk, hogy a szövegmezőben hány százalékos formázás történik az Excelben VBA módszerrel.

Formázza a szövegmezőt százalékban, VBA kóddal

---

Formázza a szövegmezőt százalékban, VBA kóddal

Kérjük, tegye a következőket, hogy a szövegdobozt százalékban formázza VBA kóddal.

1. kettyenés Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő) szövegmező beszúrása a munkalapba. Lásd a képernyőképet:

2. Kattintson a jobb gombbal a szövegmezőre, majd kattintson a gombra Kód megtekintése a helyi menüből.

3. A nyílásban Microsoft Visual Basic for Applications ablakban, kérjük, cserélje ki az eredeti kódot a Kód ablakban az alábbi VBA kódra.

VBA kód: formázza a szövegdobozt százalékban az Excelben

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

Megjegyzések: Kérjük, az igényeinek megfelelően módosítsa a TextBox1 szöveget a szövegdoboz nevére.

4. kettyenés Eszközök > Referenciák. Ezután ellenőrizze a Microsoft VBScript rendszeres kifejezések doboz a Referenciák - VBAProject kattintson a gombra OK gomb. Lásd a képernyőképet:

5. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.

6. Amikor visszatér a munkalapra, kattintson a gombra Fejlesztő > Tervezési mód ismét a Design Mode kikapcsolásához.

Mostantól kezdve, amikor beírja a számokat a szövegmezőbe, és eltolja a kurzort a szövegmezőből, hogy bármely cellára kattinthasson, ezek a számok automatikusan százalékos formátumba kerülnek.

---

Kapcsolódó cikkek:

• Hogyan formázzunk egy szövegdobozt pénznemként az Excelben?
• Hogyan válasszuk ki automatikusan a szövegdoboz szövegét, ha az Excelben van kiválasztva?
• Hogyan tölthetünk be automatikusan egy szövegdobozt, amikor Excelbe gépelünk?
• Hogyan lehet összefűzni több cella szövegét egy szövegdobozba az Excelben?
• Hogyan lehet letiltani a szövegmezőben történő szerkesztést, hogy megakadályozzuk a felhasználók Excel-be történő bevitelét?