Como exibir uma caixa de mensagem quando uma 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 exibir uma caixa de mensagem no Excel para alertar. Como resolver esse problema? Neste artigo, apresento alguns códigos para lidar com essa situação.

Exibir uma caixa de mensagem se o valor de uma célula numa coluna for maior ou menor do que outra célula

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

---

Exibir uma caixa de mensagem se o valor de uma célula numa coluna for maior ou menor do que outra célula

Suponhamos que tem o número específico 100 na célula A1. Sempre que for introduzido na coluna D um valor superior a esse (ou seja, superior ao valor da célula A1), deverá surgir uma caixa de mensagem a alertar o utilizador.

O seguinte código VBA pode ajudá-lo a alcançar este objetivo. Siga os passos abaixo:

1. Aceda à folha de cálculo que pretende utilizar.

2. Clique com o botão direito no separador da folha e selecione Ver Código no menu de contexto. Na janela do Microsoft Visual Basic for Applications que surge, copie e cole o código seguinte na janela em branco do Módulo, conforme ilustrado na imagem:

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

Nota: No código acima, Folha1 é a sua folha de cálculo que pretende utilizar; A1 é o valor da célula com que pretende comparar; D:D é a coluna que pretende comparar com a célula A1.

3. Em seguida, guarde e feche a janela do código. A partir de agora, sempre que introduzir na coluna D um número superior a 100, será exibida uma caixa de mensagem, conforme ilustrado na imagem:

---

---

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

Se pretender que surja uma caixa de mensagem quando o valor de uma célula for maior ou menor do que o valor de outra célula, aplique o código abaixo:

1. Aceda à folha de cálculo que pretende utilizar.

2. Clique com o botão direito no separador da folha e selecione Ver Códigono menu de contexto. Na janela do Microsoft Visual Basic for Applicationsque surge, copie e cole o código seguinte na janela em branco do Módulo, conforme ilustrado na imagem:

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

Nota: No código acima, A1 e D1 são as duas células que pretende comparar.

3. Em seguida, guarde e feche a janela do código. Ao introduzir um valor inferior ao da célula A1, será exibida uma caixa de mensagem, conforme ilustrado na imagem:

---

Mais artigos relacionados com caixas de mensagem pop-up: