Como exibir uma caixa de mensagem se o valor da célula for igual a “X” no Excel?
Exibir uma caixa de mensagem ajuda muito ao procurar determinado conteúdo em um intervalo específico. Por exemplo, você está procurando um valor de célula igual a 50 em um intervalo A1:C7 e precisa que uma caixa de mensagem apareça para informá-lo se o valor da célula existe ou não. Os dois métodos a seguir podem ajudá-lo.
Exibir uma caixa de mensagem se o valor da célula for igual a “X” com código VBA
Exiba facilmente uma caixa de mensagem se o valor da célula for igual a “X” com o Kutools para Excel
Exibir uma caixa de mensagem se o valor da célula for igual a “X” com código VBA
O seguinte código VBA pode ajudar a criar uma caixa de mensagem pop-up quando um determinado valor existir em um intervalo específico. Por favor, siga os passos abaixo.
1. Na planilha onde você precisa verificar valores em um intervalo específico, clique com o botão direito no nome da aba na barra de abas da planilha e, em seguida, clique em Visualizar Código no menu de clique direito. Veja a captura de tela:
2. Na janela Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela Código.
Código VBA: exibir uma caixa de mensagem se o valor da célula for igual a “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. Pressione simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications e voltar para a planilha.
A partir de agora, quando os valores das células forem alterados no intervalo A1:C7 e houver um valor de célula igual a “50”, você receberá uma caixa de mensagem conforme mostrado na captura de tela abaixo.
Além disso, você pode simplesmente selecionar o intervalo para exibir a caixa de mensagem se o valor da célula existir.
Notas:
Exibir uma caixa de mensagem se o valor da célula for igual a “X” com o Kutools para Excel
O utilitário Selecionar Células Específicas do Kutools para Excel também pode ajudá-lo a resolver esse problema. Por favor, siga os passos abaixo.
1. Selecione o intervalo onde deseja encontrar se o valor da célula existe, depois 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 seção Tipo de Seleção, depois selecione Igual a na primeira lista suspensa Tipo Específico e digite o valor da célula na próxima caixa de texto, e finalmente clique no botão OK.
Se o valor da célula existir no intervalo especificado, você receberá a seguinte caixa de mensagem, clique no botão OK, a célula será selecionada.
Caso contrário, você receberá a caixa de mensagem conforme mostrado na captura de tela abaixo.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Artigos relacionados:
- Como excluir a linha inteira se a célula contiver zero no Excel?
- Como contar células com texto específico na seleção 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