Como exibir uma caixa de mensagem se o valor da célula for igual a «X» no Excel?
Exibir uma caixa de mensagem é extremamente útil ao procurar um conteúdo específico num intervalo limitado. Por exemplo, imagine que pretende encontrar um valor de célula igual a 50 no intervalo A1:C7 e precisa que uma caixa de mensagem indique se esse valor existe ou não. Os dois métodos seguintes podem ajudá-lo.
Exibir caixa de mensagem se a célula Valor Igual «X» com código VBA
Exibir facilmente caixa de mensagem se a célula Valor Igual «X» com Kutools para Excel
Exibir caixa de mensagem se a célula Valor Igual «X» com código VBA
O seguinte código VBA permite exibir uma caixa de mensagem sempre que o valor pretendido for encontrado no intervalo definido. Proceda da seguinte forma.
1. Na folha de cálculo onde pretende verificar valores no intervalo limitado, clique com o botão direito do rato no nome do separador na barra de guias e, em seguida, clique em Ver Código no menu de contexto. Veja a captura de ecrã:
2. Na janela Microsoft Visual Basic para Aplicações, copie e cole o seguinte código VBA na janela de código.
Código VBA: exibir caixa de mensagem se a célula Valor Igual «X»
Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:C7"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "50" Then
MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
Exit Sub
End If
Next
End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:C7"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "50" Then
MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
Exit Sub
End If
Next
End If
End Sub3. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic para Aplicações e regressar à folha de cálculo.
A partir de agora, sempre que os valores das células no intervalo A1:C7 forem alterados e existir uma célula com o valor igual a «50», será exibida uma caixa de mensagem, tal como ilustrado na seguinte captura de ecrã.
Além disso, pode simplesmente selecionar o intervalo para exibir a caixa de mensagem se o valor da célula existir.
Notas:
Exibir caixa de mensagem se a célula Valor Igual «X» com Kutools para Excel
A utilidade Selecionar células específicas do Kutools para Excel também o pode ajudar a resolver este problema. Proceda da seguinte forma.
1. Selecione o intervalo onde pretende verificar se existe o valor da célula e, em seguida, clique em Kutools > Selecionar > Selecionar células específicas.
2. Na caixa de diálogo Selecionar células específicas, selecione a opção Célula na secção Selecionar tipo, depois escolha Igual na primeira lista pendente Especificar tipo e introduza o valor da célula na caixa de texto seguinte. Por fim, clique no botão OK.
Se o valor da célula existir no intervalo limitado, surgirá a seguinte caixa de mensagem; clique no botão OK e a célula será selecionada.
Caso contrário, aparecerá a caixa de mensagem mostrada na seguinte captura de ecrã.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Artigos relacionados:
- Como eliminar uma linha inteira se a célula contiver zero no Excel?
- Como contar células que contêm um texto específico na seleção no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos