Sut i fformatio blwch testun fel canran yn Excel?
Yn yr erthygl flaenorol, rydym wedi trafod dull VBA o fformatio rhif mewn blwch testun fel arian cyfred yn Excel. Yma yn yr erthygl hon, rydyn ni'n mynd i siarad am fformatio rhif mewn blwch testun fel canran yn Excel gyda dull VBA hefyd.
Fformatiwch flwch testun fel canran â chod VBA
Fformatiwch flwch testun fel canran â chod VBA
Gwnewch fel a ganlyn i fformatio blwch testun fel canran gyda chod VBA.
1. Cliciwch Datblygwr > Mewnosod > Blwch Testun (Rheoli ActiveX) i fewnosod blwch testun yn y daflen waith. Gweler y screenshot:
2. De-gliciwch y blwch testun, yna cliciwch Gweld y Cod o'r ddewislen cyd-destun.
3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol yn ffenestr y Cod gyda chod VBA islaw.
Cod VBA: fformatiwch flwch testun fel canran yn 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 SubNodyn: Newid TextBox1 i enw'r blwch testun yn seiliedig ar eich angen.
4. Cliciwch offer > cyfeiriadau. Yna gwiriwch y Mynegiadau Rheolaidd Microsoft VBScript blwch yn y Cyfeiriadau - VBAProject blwch deialog, a chliciwch ar y OK botwm. Gweler y screenshot:
5. Gwasgwch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
6. Pan fydd yn dychwelyd i'r daflen waith, cliciwch Datblygwr > Modd Dylunio eto i ddiffodd y Modd Dylunio.
O hyn ymlaen, wrth nodi rhifau yn y blwch testun a symud y cyrchwr allan o'r blwch testun i glicio unrhyw gell, bydd y rhifau hyn yn cael eu fformatio fel canran yn awtomatig.
Erthyglau cysylltiedig:
- Sut i fformatio blwch testun fel arian cyfred yn Excel?
- Sut i ddewis testun blwch testun yn awtomatig pan fydd yn cael ei ddewis yn Excel?
- Sut i awtocomplete blwch testun wrth deipio Excel?
- Sut i gyd-fynd â thestunau celloedd lluosog i mewn i flwch testun yn Excel?
- Sut i analluogi golygu mewn blwch testun i atal defnyddwyr rhag mewnbynnu yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
