Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot formatar un quadre de text com a percentatge a Excel?

A l'article anterior, hem parlat sobre un mètode VBA de format de número en un quadre de text com a moneda en Excel. Aquí, en aquest article, anem a parlar sobre el número de format en un quadre de text com a percentatge d'Excel amb el mètode VBA també.

Formata un quadre de text com a percentatge amb el codi VBA


Formata un quadre de text com a percentatge amb el codi VBA


Feu el següent per formar un quadre de text com a percentatge amb el codi VBA.

1. clic Revelador > Insereix > Quadre de text (control ActiveX) per inserir una caixa de text en full de càlcul. Mostra la captura de pantalla:

2. Feu clic amb el botó dret a la casella de text i, a continuació, feu clic a Veure codi des del menú contextual.

3. A l'obertura Microsoft Visual Basic per a aplicacions finestra, substituïu el codi original a la finestra Codi amb codi VBA a sota.

Codi VBA: format un quadre de text com a percentatge a 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

Nota: Canvieu TextBox1 al nom del quadre de text segons la vostra necessitat.

4. clic instruments > referències. A continuació, comproveu el Expressions regulars de Microsoft VBScript caixa a la Referències - VBAProject quadre de diàleg i feu clic a la icona OK botó Mostra la captura de pantalla:

5. Premeu el botó Alt + Q claus per sortir del Microsoft Visual Basic per a aplicacions finestra.

6. Quan torneu al full de treball, feu clic a Revelador > Mode de disseny torna a apagar el mode de disseny.

A partir d'ara, quan introduïu números en el quadre de text i desplaceu el cursor cap a la casella de text per fer clic a qualsevol cel·la, aquests números es formataran com a percentatge automàticament.


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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.