Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako formatirati besedilni polji kot odstotek v Excelu?

V prejšnjem članku smo razpravljali o metodi VBA za številko oblikovanja v besedilnem polju kot valuti v Excelu. Tukaj bomo v tem članku govorili o številu formatiranja v besedilnem polju kot odstotku v Excelu z metodo VBA.

Formatiraj besedilni polji kot odstotek s kodo VBA


Formatiraj besedilni polji kot odstotek s kodo VBA


Prosimo, naredite, kot sledi, da formatirate besedilni polji kot odstotek s kodo VBA.

1. klik Razvojni > Vstavi > Text Box (nadzor ActiveX) da v okvirček vstavite besedilni okvir. Prikaz slike:

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

3. V odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvorno kodo v oknu Code z spodnjo kodo VBA.

VBA koda: formatiraj besedilni polji kot odstotek 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 besedila, ki temelji na vaši potrebi.

4. klik Orodja > Reference. Potem preverite Redni izrazi Microsoft VBScript polje v Reference - VBAProjekt pogovorno okno in kliknite na OK gumb. Prikaz slike:

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 še enkrat, da izklopite načrtovalni način.

Od zdaj naprej, ko vnesete številke v polje z besedilom in premaknete kazalko iz besedila v poljubno celico, bodo te številke formatirane kot odstotek samodejno.


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.