Como limpar o conteúdo da caixa de texto quando clicado no Excel?
Normalmente, para limpar o conteúdo antigo de uma caixa de texto (Controle ActiveX), você deve entrar na caixa de texto, selecionar todo o conteúdo e, em seguida, pressionar a tecla Backspace ou Delete. Como limpar todo o conteúdo rapidamente em uma caixa de texto? Este artigo mostrará um método VBA para limpar rapidamente o conteúdo de uma caixa de texto ao clicar duas vezes nela.
Limpa o conteúdo da caixa de texto quando clicado com o código VBA
Limpa o conteúdo da caixa de texto quando clicado com o código VBA
O código VBA a seguir pode ajudá-lo a limpar rapidamente o conteúdo de uma caixa de texto ao clicar duas vezes nela. Faça o seguinte.
1. Se uma caixa de texto já existia na planilha, por favor, ative o Modo Design clicando em Developer > Modo de design. Veja a imagem:
Ou você também pode inserir uma caixa de texto clicando em Developer > inserção > Caixa de texto (controle ActiveX). Veja a imagem:
2. Clique com o botão direito na caixa de texto e clique em Ver código no menu de contexto. Veja a imagem:
3. Na abertura Microsoft Visual Basic para Aplicações janela, substitua o código VBA original na janela Código com o código VBA abaixo.
Código VBA: limpe o conteúdo de uma caixa de texto ao clicar duas vezes nela
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Not iGblInhibitTextBoxEvents Then
TextBox1.Value = ""
End If
End Sub
Note: No código, TextBox1 é o nome da caixa de texto da qual você limpará o conteúdo. Por favor, mude para o seu próprio.
4. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela.
5. Desative o Modo Design.
A partir de agora, ao clicar duas vezes em uma caixa de texto, seu conteúdo será apagado imediatamente.
Artigos relacionados:
- 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?
- Como formatar uma caixa de texto como porcentagem 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!