Ir para o conteúdo principal

Como abrir uma caixa de mensagem ao clicar em uma determinada célula no Excel?

Este artigo tem como objetivo mostrar o método de exibição de caixa de mensagem ao clicar em uma determinada célula no Excel.

Uma caixa de mensagem pop-up ao clicar em uma determinada célula com código VBA


seta azul bolha direita Uma caixa de mensagem pop-up ao clicar em uma determinada célula com código VBA

Faça o seguinte para abrir uma caixa de mensagem ao clicar em uma determinada célula na planilha.

1. Shift para abrir a planilha com determinada célula de que você precisa para exibir a caixa de mensagem ao clicar nela. Clique com o botão direito na guia da planilha e selecione Ver código no menu do botão direito.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo na janela Código.

Código VBA: caixa de mensagem pop-up ao clicar em uma determinada célula

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

Notas:

1). No código, “A1: B10” significa que uma caixa de mensagem aparecerá ao clicar em qualquer célula deste intervalo.

2). “Você selecionou uma célula” e “Insira os dados” são o conteúdo exibido da caixa de mensagem.

Altere-os conforme necessário.

3. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.

A partir de agora, ao clicar em qualquer célula do intervalo A1: B10, você obterá uma caixa de mensagem conforme a imagem mostrada abaixo.


seta azul bolha direitaArtigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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

Descrição


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I enter more ranges? thank you very much
This comment was minimized by the moderator on the site
Hi,
Please apply the below code. Hope I can help. thank you for your comment.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xStrRg As String
xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub
This comment was minimized by the moderator on the site
typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
This comment was minimized by the moderator on the site
I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations