Como selecionar automaticamente o texto de uma caixa de texto quando esta é clicada no Excel?
Para eliminar texto numa caixa de texto (controlo ActiveX), comece por selecionar todo o conteúdo da caixa. Este artigo mostra-lhe como configurar a caixa de texto no Excel para que, ao clicar nela, todo o texto seja automaticamente selecionado.
Seleção Automática o texto de uma caixa de texto quando esta é selecionada com código VBA
Seleção Automática o texto de uma caixa de texto quando esta é selecionada com código VBA
Aplique o código VBA abaixo para selecionar automaticamente todo o texto de uma caixa de texto assim que esta for selecionada no Excel.
1. Para uma folha de cálculo que contém a caixa de texto cujo texto pretende selecionar automaticamente, ative o Modo de Estrutura clicando em Programador > Modo de Estrutura. Veja a imagem:
Ou pode inserir uma caixa de texto clicando em Programador > Inserir > Caixa de Texto (Controlo ActiveX). Veja a imagem:
2. Clique com o botão direito na caixa de texto e selecione Ver Código no menu de contexto. Veja a imagem:
3. Na janela do Microsoft Visual Basic para Aplicações que se abre, substitua o código VBA original na janela de código pelo seguinte código VBA.
Código VBA: Selecionar automaticamente o texto de uma caixa de texto ao clicar nela
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox1.Object)
End Sub
Sub SelTextBox(xTextBox As Object)
With xTextBox
.SelStart = 0
.SelLength = Len(.Text)
End With
End SubNotas:
1. No código, TextBox1 é o nome da caixa de texto cujo conteúdo será limpo. Substitua-o pelo nome da sua caixa.
2. Para selecionar automaticamente o texto de várias caixas de texto ao clicar nelas, insira o seguinte código VBA entre as duas secções do código acima. Substitua «TextBox2» pelo nome da caixa de texto desejada.
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox2.Object)
End Sub4. Prima 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 clicar na caixa de texto, todo o seu conteúdo será automaticamente selecionado.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como preencher automaticamente uma caixa de texto ao digitar no Excel?
- Como limpar automaticamente o conteúdo de uma caixa de texto ao clicar nela 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?
- Como formatar uma caixa de texto como percentagem 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