Kako oblikovati besedilno polje v odstotkih v Excelu?

V prejšnjem članku smo razpravljali o načinu oblikovanja številke VBA v besedilnem polju kot valuti v Excelu. V tem članku bomo govorili tudi o oblikovanju številke v besedilnem polju kot odstotka v Excelu z metodo VBA.

Oblikujte besedilno polje v odstotkih s kodo VBA

---

Oblikujte besedilno polje v odstotkih s kodo VBA

Naredite naslednje, če želite oblikovati besedilno polje v odstotkih s kodo VBA.

1. klik Razvojni > Vstavi > Besedilno polje (nadzor ActiveX) da vstavite polje z besedilom na delovni list. Oglejte si posnetek zaslona:

2. Z desno miškino tipko kliknite besedilno polje in nato kliknite Ogled kode iz kontekstnega menija.

3. Na odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo v oknu Code s spodnjo kodo VBA.

Koda VBA: oblikovanje besedilnega polja v odstotkih v Excelu

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

Opombe: Prosimo, spremenite TextBox1 v ime besedilnega polja glede na vaše potrebe.

4. klik Orodja > Reference. Nato preverite Regularni izrazi Microsoft VBScript polje v Reference - VBAProject pogovorno okno in kliknite OK . Oglejte si posnetek zaslona:

5. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.

6. Ko se vrne na delovni list, kliknite Razvojni > Način oblikovanja znova, da izklopite način oblikovanja.

Odslej bodo te številke pri vnašanju številk v besedilno polje in premikanju kazalca iz besedilnega polja, da kliknete poljubno celico, samodejno oblikovane v odstotkih.

---

Sorodni članki:

• Kako oblikovati besedilno polje kot valuto v Excelu?
• Kako samodejno izbrati besedilo v besedilnem polju, ko je izbrano v Excelu?
• Kako samodejno dokončati besedilno polje pri tipkanju v Excelu?
• Kako združiti besedila več celic v besedilno polje v Excelu?
• Kako onemogočiti urejanje v besedilnem polju, da preprečite vnos uporabnika v Excelu?