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áid bosca téacs mar chéatadán le cód VBA
Formáid 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í an t-ainm textbox 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, nuair a chuirtear uimhreacha isteach sa bhosca téacs agus nuair a bhogtar an cúrsóir amach as an mbosca téacs chun cliceáil ar aon chill, 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?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!