Como formatar uma caixa de texto como porcentagem no Excel?
No artigo anterior, discutimos um método VBA de formatar números em uma caixa de texto como moeda no Excel. Aqui neste artigo, vamos falar sobre a formatação de número em uma caixa de texto como uma porcentagem no Excel com o método VBA também.
Formate uma caixa de texto como porcentagem com o código VBA
Formate uma caixa de texto como porcentagem com o código VBA
Faça o seguinte para formatar uma caixa de texto como uma porcentagem com 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: Por favor, altere TextBox1 para o nome da caixa de texto com base na sua necessidade.
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.
De agora em diante, ao inserir números na caixa de texto e deslocar o cursor para fora da caixa de texto para clicar em qualquer célula, esses números serão formatados como porcentagem automaticamente.
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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!