Conas bosca téacs a fhormáidiú mar chéatadán in Excel?

San alt roimhe seo, phléamar modh VBA chun uimhir a fhormáidiú i mbosca téacs mar airgeadra in Excel. Anseo san alt seo, táimid chun labhairt faoi uimhir a fhormáidiú i mbosca téacs mar chéatadán in Excel le modh VBA freisin.

Formáidigh bosca téacs mar chéatadán le cód VBA

---

Formáidigh bosca téacs mar chéatadán le cód VBA

Déan mar a leanas le do thoil chun bosca téacs a fhormáidiú mar chéatadán le cód VBA.

1. cliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX) chun bosca téacs a chur isteach sa bhileog oibre. Féach an pictiúr:

2. Cliceáil ar dheis ar an mbosca téacs, ansin cliceáil Féach an cód ón roghchlár comhthéacs.

3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cuir an cód VBA thíos in ionad an chóid bhunaidh i bhfuinneog an Chóid.

Cód VBA: formáid bosca téacs mar chéatadán in 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

nótaí: Athraigh TextBox1 go dtí ainm an bhosca téacs bunaithe ar do riachtanas.

4. cliceáil uirlisí > tagairtí. Ansin seiceáil an Sloinn Rialta Microsoft VBScript bosca sa Tagairtí - VBAProject bosca dialóige, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

5. Brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

6. Nuair a fhilleann sé ar an mbileog oibre, cliceáil le do thoil Forbróir > Mód Dearaidh arís chun an Mód Dearaidh a mhúchadh.

As seo amach, agus uimhreacha á gcur isteach sa bhosca téacs agus an cúrsóir á aistriú amach as an mbosca téacs chun aon chill a chliceáil, déanfar na huimhreacha seo a fhormáidiú mar chéatadán go huathoibríoch.

---

Earraí gaolmhara:

• Conas bosca téacs a fhormáidiú mar airgeadra in Excel?
• Conas téacs bosca téacs a roghnú go huathoibríoch nuair a roghnaítear é in Excel?
• Conas bosca téacs a uathoibriú nuair a chlóscríobhann tú in Excel?
• Conas téacsanna ilchealla a thabhairt le chéile i mbosca téacs in Excel?
• Conas eagarthóireacht i mbosca téacs a dhíchumasú chun ionchur úsáideora in Excel a chosc?