Como formatar uma caixa de texto como porcentagem no Excel?

Em um artigo anterior, abordamos como formatar números em uma caixa de texto como moeda no Excel. Desta vez, exploraremos a formatação de números em uma caixa de texto como porcentagens. Usando o VBA, você pode garantir que qualquer número inserido na caixa de texto seja formatado automaticamente como uma porcentagem para apresentação de dados consistente.

Formatar entradas de caixa de texto como porcentagens com código VBA

Formatar entradas de caixa de texto como porcentagens com código VBA

Siga estas etapas para formatar uma caixa de texto como uma porcentagem usando o código VBA.

1. Clique Developer > inserção > Caixa de texto (controle ActiveX) para inserir uma caixa de texto na planilha. Veja a imagem:

2. Clique com o botão direito na caixa de texto e clique em Ver código no menu de contexto.

3. Na abertura Microsoft Visual Basic para Aplicações janela, substitua o código original na janela de código com o código VBA abaixo.

Código VBA: formate uma caixa de texto como porcentagem no 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

Note: Substituir Caixa de texto1 com o nome da caixa de texto que você está usando.

4. Clique Ferramentas > Referências. Em seguida, verifique o Expressões regulares do Microsoft VBScript caixa no Referências - VBAProject caixa de diálogo e clique no OK botão. Veja a imagem:

5. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela.

6. Quando retornar à planilha, clique em Developer > Modo de design novamente para desligar o Modo Design.

A partir de agora, quando você inserir números na caixa de texto e mover o cursor para fora dela para clicar em qualquer célula, os números serão formatados automaticamente como porcentagens.

Artigos relacionados:

• Como formatar uma caixa de texto como moeda no Excel?
• Como selecionar automaticamente o texto de uma caixa de texto quando ela é selecionada no Excel?
• Como autocompletar uma caixa de texto ao digitar no Excel?
• Como concatenar textos de várias células em uma caixa de texto no Excel?
• Como desabilitar a edição na caixa de texto para evitar a entrada do usuário no Excel?