Como abrir uma caixa de mensagem se o valor da célula for igual a “X” no Excel?
Popping up message box ajuda muito ao encontrar determinado conteúdo em um intervalo especificado. Por exemplo, você está encontrando o valor da célula que é igual a 50 em um intervalo A1: C7 e precisa de uma caixa de mensagem aparecendo para informar se o valor da célula existe ou não. Os dois métodos a seguir podem ajudá-lo.
Caixa de mensagem pop-up se o valor da célula for igual a “X” com o código VBA
Abra facilmente uma caixa de mensagem se o valor da célula for igual a “X” com o Kutools para Excel
Caixa de mensagem pop-up se o valor da célula for igual a “X” com o código VBA
O código VBA a seguir pode ajudar a criar uma caixa de mensagem pop-up quando determinado valor existe no intervalo especificado. Faça o seguinte.
1. Na planilha, você precisa verificar os valores no intervalo especificado, clique com o botão direito do mouse no nome da guia na barra de guias da planilha e clique em Ver código no menu do botão direito. Veja a imagem:
2. No Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código VBA na janela de código.
Código VBA: caixa de mensagem pop-up 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 Sub
3. Pressione outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela e volte 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 a imagem mostrada abaixo.
Além disso, você pode apenas selecionar o intervalo para exibir a caixa de mensagem se o valor da célula existir.
Notas:
Caixa de mensagem pop-up se o valor da célula for igual a “X” com Kutools para Excel
A Selecione células específicas utilidade de Kutools for Excel também pode ajudá-lo a resolver este problema. Faça o seguinte.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione o intervalo em que deseja descobrir se o valor da célula existe e clique em Kutools > Selecionar > Selecione células específicas.
2. No Selecione células específicas caixa de diálogo, selecione o Célula opção no Tipo de seleção seção e selecione É igual a em primeiro Tipo específico lista suspensa e digite o valor da célula na próxima caixa de texto e, finalmente, clique no OK botão.
Se o valor da célula existir no intervalo especificado, você receberá a seguinte caixa de mensagem, clique no OK botão, a célula será selecionada.
Caso contrário, você receberá a caixa de mensagem conforme a imagem mostrada abaixo.
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Abra facilmente uma caixa de mensagem se o valor da célula for igual a “X” com o Kutools para Excel
Artigos relacionados:
- Como excluir uma linha inteira se a célula contém zero no Excel?
- Como contar células com texto específico na seleção no Excel?
Melhores ferramentas de produtividade de escritório
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...
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!