Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como abrir a 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, 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 outra célula

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


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

Supondo que eu tenha um número específico 100 na célula A1, agora, quando o número digitado na coluna D for maior que 100 na célula A1, uma caixa de mensagem deverá ser exibida para lembrar o usuário.

Aqui, o código VBA abaixo pode ajudá-lo a finalizá-lo, siga as etapas abaixo:

1. Vá para a planilha que deseja usar.

2. Clique com o botão direito na guia Folha e selecione Ver código no menu de contexto, no surgido 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

notas: No código acima, Sheet1 é sua 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ê digitar um número na coluna D maior que o 100, veja a captura de tela:


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

Se você deseja que uma caixa de mensagem seja exibida quando um valor de 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 na guia Folha e selecione Ver código no menu de contexto, no surgido 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 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

notas: 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 menor que o valor na célula A1, uma caixa de mensagem será exibida conforme a captura de tela abaixo:


Mais artigos relativos à caixa de mensagem pop-up:

  • Criar caixa de mensagem pop-up ao abrir um arquivo do Excel
  • Em certos casos, você pode querer que uma caixa de mensagem sempre apareça para lembrar o que você precisa fazer primeiro quando abre um caderno de trabalho específico, isso pode ajudá-lo a se lembrar de fazer o mais importante no seu trabalho diário. E este artigo, vou falar sobre como criar uma caixa de mensagem pop-up ao abrir um arquivo do Excel.
  • Criar uma caixa de mensagem Sim Não antes de executar uma macro no Excel
  • No Excel, você pode disparar diretamente uma macro pressionando a tecla F5 ou clique no botão Executar na janela Microsoft Visual Basic for Applications. Mas, às vezes, convém 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. Neste artigo, falarei sobre como criar uma caixa de mensagem sim não antes de executar uma macro no Excel.
  • Criar um timer 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 surgidas durante o roteiro em execução. Em alguns casos, você gostaria que algumas caixas de mensagens especificadas fossem fechadas automaticamente após um certo horário em vez de fechá-la 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 certo horário no Excel.


  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas e mantendo dados; Conteúdo das células divididas; Combinar Linhas Duplicadas e Soma / Média... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas de inserção favorita e rápida, Escalas, gráficos e imagens; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Agrupamento de tabelas dinâmicas por número da semana, dia da semana e mais ... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destaque as células que têm fórmula / nome...
kte tab 201905
  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.