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, vamos explorar a formatação de números em uma caixa de texto como porcentagens. Usando VBA, você pode garantir que qualquer número inserido na caixa de texto seja automaticamente formatado como uma porcentagem para uma apresentação consistente dos dados.

Formate as entradas da caixa de texto como porcentagens com código VBA

Formate as entradas da caixa de texto como porcentagens com código VBA

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

1. Clique em "Desenvolvedor" > "Inserir" > "Caixa de Texto (Controle ActiveX)" para inserir uma caixa de texto na planilha. Veja a captura de tela:

2. Clique com o botão direito do mouse na caixa de texto e, em seguida, clique em "Visualizar Código" no menu de contexto.

3. Na janela "Microsoft Visual Basic for Applications" que se abre, substitua o código original na janela de Código pelo seguinte código VBA.

Código VBA: formatar 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

Observação: Substitua "TextBox1" pelo nome da caixa de texto que você está usando.

4. Clique em "Ferramentas" > "Referências". Em seguida, marque a caixa "Microsoft VBScript Regular Expressions" na caixa de diálogo "Referências – VBAProject" e clique no botão "OK". Veja a captura de tela:

5. Pressione as teclas "Alt" + "Q" para sair da janela "Microsoft Visual Basic for Applications".

6. Quando voltar para a planilha, clique novamente em "Desenvolvedor" > "Modo de Design" para desativar o Modo de Design.

A partir de agora, quando você inserir números na caixa de texto e mover o cursor para fora dela ao clicar em qualquer célula, os números serão automaticamente formatados 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 em uma caixa de texto para evitar a entrada do usuário no Excel?