Como selecionar automaticamente o texto de uma caixa de texto quando ela é selecionada no Excel?
Para excluir textos em uma caixa de texto (Controle ActiveX), primeiro, você precisa selecionar todos os textos dentro da caixa de texto. Este artigo trata sobre a seleção automática de todos os textos de uma caixa de texto ao clicar na caixa de texto no Excel.
Seleção automática do texto de uma caixa de texto quando ela é selecionada com código VBA
Seleção automática do texto de uma caixa de texto quando ela é selecionada com código VBA
Por favor, aplique o seguinte código VBA para selecionar automaticamente todos os textos de uma caixa de texto ao selecionar a caixa de texto no Excel.
1. Para uma planilha que contém a caixa de texto cujos textos você deseja que sejam selecionados automaticamente, ative o Modo de Design clicando em Desenvolvedor > Modo de Design. Veja a captura de tela:
Ou você também pode inserir uma caixa de texto clicando em Desenvolvedor > Inserir > Caixa de Texto (Controle ActiveX). Veja a captura de tela:
2. Clique com o botão direito na caixa de texto e clique em Visualizar Código no menu de contexto. Veja a captura de tela:
3. Na janela Microsoft Visual Basic for Applications que abrir, substitua o código VBA original na Janela de Código pelo seguinte código VBA.
Código VBA: Selecionar automaticamente os textos 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 SubObservações:
1. No código, TextBox1 é o nome da caixa de texto da qual você limpará o conteúdo. Altere-o para o seu próprio nome.
2. Para selecionar automaticamente os textos de várias caixas de texto ao clicar nelas, adicione o seguinte código VBA entre as duas seções do código acima. E altere TextBox2 para o nome da sua caixa de texto necessária.
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. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
5. Desative o Modo de Design.
A partir de agora, ao clicar na caixa de texto, todos os textos dentro dela serão selecionados automaticamente.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como autocompletar uma caixa de texto ao digitar no Excel?
- Como limpar o conteúdo de uma caixa de texto ao clicar no Excel?
- Como concatenar textos de várias células em uma caixa de texto no Excel?
- Como desativar a edição em uma caixa de texto para evitar a entrada do usuário no Excel?
- Como formatar uma caixa de texto como porcentagem no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins