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
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!