Como exibir uma caixa de mensagem se a célula for maior ou menor que um valor específico no Excel?
Se uma célula for maior ou menor que outra célula, preciso exibir uma caixa de mensagem para alertar no Excel. Como resolver esse problema no Excel? Neste artigo, vou falar sobre alguns códigos para lidar com isso.
Exibir uma caixa de mensagem se o valor da célula em uma coluna for maior ou menor que outra célula.
Exibir uma caixa de mensagem se o valor da célula em uma célula for maior ou menor que outra célula.
Exibir uma caixa de mensagem se o valor da célula em uma coluna for maior ou menor que outra célula.
Suponha que eu tenha um número específico 100 na célula A1; agora, quando o número inserido na coluna D for maior que 100 na célula A1, uma caixa de mensagem deve ser exibida para lembrar o usuário.
Aqui, o código VBA abaixo pode ajudá-lo a concluir isso; por favor, siga as etapas a seguir:
1. Vá para a planilha que deseja usar.
2. Clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto; na janela Microsoft Visual Basic for Applications que apareceu, copie e cole o seguinte código na janela Módulo em branco; veja a captura de tela:
Código VBA: exibir uma caixa de mensagem se o valor da célula em uma coluna for maior ou menor que uma célula.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
xNum = (Sheets(xWSName).Range(xA).Value)
If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
End If
End Sub
Observação: No código acima, Planilha1 é a sua planilha que você deseja usar; A1 é o valor da célula que você deseja comparar; D:D é a coluna que você deseja comparar com a célula A1.
 |  |  |
3. Em seguida, salve e feche a janela de código; a partir de agora, uma caixa de mensagem será exibida se você inserir um número na coluna D que seja maior que 100; veja a captura de tela:
Exibir uma caixa de mensagem se o valor da célula em uma célula for maior ou menor que outra célula.
Se você deseja que uma caixa de mensagem seja exibida quando o valor de uma célula for maior ou menor que outra célula, aplique o código abaixo:
1. Vá para a planilha que deseja usar.
2. Clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto; na janela Microsoft Visual Basic for Applications que apareceu, copie e cole o seguinte código na janela Módulo em branco; veja a captura de tela:
Código VBA: exibir uma caixa de mensagem se o valor da célula for maior ou menor que uma célula.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
Observação: No código acima, A1 e D1 são as duas células que você deseja comparar.
3. Em seguida, salve e feche a janela de código; ao inserir um valor que seja menor que o valor na célula A1, uma caixa de mensagem será exibida conforme mostrado na captura de tela abaixo:
Mais artigos relacionados à caixa de mensagem pop-up:
- Criar Caixa de Mensagem Pop-Up ao Abrir um Arquivo do Excel.
- Em determinados casos, você pode querer que uma caixa de mensagem sempre apareça para lembrá-lo do que precisa fazer primeiro ao abrir uma pasta de trabalho específica, o que pode ajudá-lo a lembrar de fazer a coisa mais importante no seu trabalho diário. E neste artigo, vou falar sobre como criar uma caixa de mensagem pop-up ao abrir um arquivo do Excel.
- Exibir Caixa de Mensagem Pop-Up Se o Valor da Célula Mudar Dentro de um Intervalo no Excel.
- Às vezes, você precisa se lembrar das mudanças dentro de um intervalo em uma determinada planilha. Assim, uma caixa de mensagem pop-up será útil se o valor da célula tiver mudado em um determinado intervalo. Você pode alcançar isso com um método VBA neste artigo.
- Exibir Caixa de Mensagem Pop-Up ao Clicar em uma Célula Específica no Excel.
- Este artigo tem como objetivo mostrar o método de exibir uma caixa de mensagem pop-up ao clicar em uma célula específica no Excel.
- Criar Uma Caixa de Mensagem Sim/Não Antes de Executar uma Macro no Excel.
- No Excel, você pode acionar diretamente uma macro pressionando a tecla F5 ou clicando no botão Executar na janela Microsoft Visual Basic for Applications. Mas, às vezes, você pode querer criar uma caixa de mensagem que perguntará ao usuário se ele deseja executar a macro. Se sim, continue executando o código; se não, pare de executar o código. Este artigo, vou falar sobre como criar uma caixa de mensagem sim/não antes de executar uma macro no Excel.
- Criar Um Temporizador de Caixa de Mensagem Para Fechar Automaticamente a Caixa de Mensagem Após Um Determinado Tempo.
- Você pode usar frequentemente scripts VBA para resolver problemas enquanto usa a pasta de trabalho do Excel. E haverá caixas de mensagem que aparecerão durante a execução do script. Em alguns casos, você gostaria que algumas caixas de mensagem específicas fossem fechadas automaticamente após um certo tempo, em vez de fechá-las manualmente. Neste artigo, mostraremos o método de criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após um determinado tempo no Excel.
As Melhores Ferramentas de Produtividade para o Office
Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
- Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
- Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
- Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
- Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
- Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
- Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
- Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
- Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...
- Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!
