Como formatar números numa caixa de texto como moeda no Excel?
Normalmente, o Excel não inclui uma função incorporada para alterar o formato de texto numa caixa de texto ActiveX. No entanto, se precisar de formatar os números introduzidos nessa caixa como moeda para fins específicos, pode fazê-lo facilmente com um método simples em VBA. Este artigo oferece instruções passo a passo para o guiar ao longo do processo.
Formatar números numa caixa de texto como moeda com código VBA
Formatar uma caixa de texto como moeda com código VBA
O código VBA abaixo permite-lhe formatar facilmente os números na caixa de texto como moeda no Excel. Siga os passos seguintes.
1. Clique em Programador > Inserir > Caixa de Texto (Controlo ActiveX) para inserir uma caixa de texto na folha de cálculo. Veja a imagem:
2. Clique com o botão direito na caixa de texto e, em seguida, clique em Ver Código no menu de contexto.
3. Na janela do Microsoft Visual Basic para Aplicações que se abre, substitua o código original na janela de código pelo seguinte código VBA.
Código VBA: formatar caixa de texto como moeda no Excel
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "$###,##")
End SubNota: No código, TextBox1 é o nome da caixa de texto cujos números pretende formatar como moeda. Substitua-o pelo nome da sua caixa de texto.
4. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic para Aplicações.
5. Desative o Modo de Estrutura.
A partir de agora, ao introduzir um número na caixa de texto, este será automaticamente formatado como moeda, tal como ilustrado na imagem seguinte.
Artigos relacionados:
- Como selecionar automaticamente o texto de uma caixa de texto quando esta é clicada no Excel?
- Como ativar o preenchimento automático numa caixa de texto ao digitar no Excel?
- Como formatar uma caixa de texto como percentagem no Excel?
- Como concatenar texto de várias células numa caixa de texto no Excel?
- Como desativar a edição numa caixa de texto para impedir que o utilizador introduza dados no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos