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 Sub

Observaçõ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 Sub

4. 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.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

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?