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?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!