Como exibir uma caixa de mensagem ao clicar em uma célula específica no Excel?
Este artigo tem como objetivo mostrar o método para exibir uma caixa de mensagem ao clicar em uma célula específica no Excel.
Exibir caixa de mensagem ao clicar em uma célula específica com código VBA
Exibir caixa de mensagem ao clicar em uma célula específica com código VBA
Por favor, siga os passos abaixo para exibir uma caixa de mensagem ao clicar em uma célula específica na planilha.
1. Alterne para abrir a planilha com a célula específica onde deseja exibir a caixa de mensagem ao clicar nela. Clique com o botão direito na guia da planilha e selecione Visualizar Código no menu de contexto.
2. Na janela Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela de Código.
Código VBA: Exibir caixa de mensagem ao clicar em uma célula específica
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
Observações:
1). No código, “A1:B10” significa que a caixa de mensagem será exibida ao clicar em qualquer célula desse intervalo.
2). “Você selecionou a célula ” e “Por favor, insira dados” são os conteúdos exibidos na caixa de mensagem.
Altere-os conforme necessário.
3. Pressione simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
A partir de agora, ao clicar em qualquer célula do intervalo A1:B10, você verá uma caixa de mensagem conforme mostrado na captura de tela abaixo.
Artigos relacionados:
- Como criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo no Excel?
- Como copiar texto de uma caixa de mensagem no Excel?
- Como exibir uma caixa de mensagem ao ativar/abrir uma planilha específica no Excel?
- Como exibir uma caixa de mensagem para mostrar um intervalo de células ou valores de células no Excel?
- Como exibir uma caixa de mensagem se o valor da célula mudar dentro de um intervalo 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