Ir para o conteúdo principal

Como abrir 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 do que outra, preciso abrir 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.

Abre uma caixa de mensagem se o valor da célula em uma coluna for maior ou menor que o de outra célula

Abre uma caixa de mensagem se o valor da célula em uma célula for maior ou menor que o de outra célula


Abre uma caixa de mensagem se o valor da célula em uma coluna for maior ou menor que o de outra célula

Supondo 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 finalizá-lo, execute as seguintes etapas:

1. Vá para a planilha que deseja usar.

2. Clique com o botão direito na guia da planilha e selecione Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código na janela do módulo em branco, veja a captura de tela:

Código VBA: abre 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

Note: No código acima, Sheet1 é a planilha que você deseja usar; A1 é o valor da célula com o qual 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 imagem:


Abre uma caixa de mensagem se o valor da célula em uma célula for maior ou menor que o de outra célula

Se você quiser que uma caixa de mensagem seja exibida quando o valor de uma célula for maior ou menor do que outra célula, aplique o código a seguir:

1. Vá para a planilha que deseja usar.

2. Clique com o botão direito na guia da planilha e selecione Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código na janela do módulo em branco, veja a captura de tela:

Código VBA: abre uma caixa de mensagem se o valor da célula for maior ou menor do 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

Note: No código acima, A1 e D1 são as duas células com as quais 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 a imagem mostrada abaixo:


Mais artigos relativos à caixa de mensagem pop-up:

  • Crie uma caixa de mensagem pop-up ao abrir um arquivo Excel
  • Em certos casos, você pode querer uma caixa de mensagem sempre pop-up para lembrá-lo do que você precisa fazer primeiro ao abrir uma pasta de trabalho específica. Isso pode ajudá-lo a se lembrar de fazer a coisa mais importante em seu trabalho diário. E neste artigo, vou falar sobre como criar uma caixa de mensagem pop-up ao abrir um arquivo do Excel.
  • Crie uma caixa de mensagem Sim Não antes de executar uma macro no Excel
  • No Excel, você pode acionar uma macro diretamente 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 deseja executar a macro. Se sim, continue executando o código; se não, pare de executar o código. Neste artigo, falarei sobre como criar uma caixa de mensagem sim não antes de executar uma macro no Excel.
  • Crie um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo
  • Você pode usar o script VBA com freqüência para resolver problemas ao usar a pasta de trabalho do Excel. E haverá caixas de mensagens surgindo durante a execução do script. Em alguns casos, você gostaria que algumas caixas de mensagens especificadas fossem fechadas automaticamente após um certo tempo, em vez de fechá-las manualmente. Neste artigo, mostraremos o método de criação de um cronômetro de caixa de mensagem para fechar automaticamente a caixa de mensagem após um determinado tempo no Excel.

  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; 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 possuem fórmula / nome...
guia kte 201905
  • 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!
parte inferior da aba do escritório
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations