Hoe toon je een berichtvenster wanneer een cel groter of kleiner is dan een bepaalde waarde in Excel?

Als een cel groter of kleiner is dan een andere, wil ik in Excel een waarschuwingsbericht laten verschijnen. Hoe los ik dit op? In dit artikel bespreek ik enkele codes om dit probleem aan te pakken.

Laat een berichtvenster verschijnen als de celwaarde in een kolom groter of kleiner is dan een andere cel

Laat een berichtvenster verschijnen als de celwaarde in een cel groter of kleiner is dan een andere cel

---

Laat een berichtvenster verschijnen als de celwaarde in een kolom groter of kleiner is dan een andere cel

Stel dat u het getal 100 in cel A1 heeft staan. Wanneer er dan in kolom D een getal wordt ingevoerd dat groter is dan de waarde in cel A1, verschijnt er automatisch een berichtvenster om u te waarschuwen.

De onderstaande VBA-code ondersteunt u hierbij. Volg deze stappen:

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op het bladtabblad en kies Code weergeven in het contextmenu. Plak de volgende code in het lege modulevenster van het geopende Microsoft Visual Basic for Applications-venster, zoals te zien is op de schermafbeelding:

VBA-code: laat een berichtvenster verschijnen als de celwaarde in een kolom groter of kleiner is dan een cel

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

Opmerking: In de bovenstaande code is Sheet1 het werkblad dat u wilt gebruiken; A1 de celwaarde waarmee u wilt vergelijken; en D:D de kolom die u wilt vergelijken met cel A1.

3. Sluit het codevenster daarna met Opslaan en sluitenVanaf nu verschijnt er een berichtvenster zodra u in kolom D een getal invoert dat groter is dan 100 — zie de schermafbeelding:

---

---

Laat een berichtvenster verschijnen als de celwaarde in een cel groter of kleiner is dan een andere cel

Als u een berichtvenster wilt laten verschijnen wanneer een celwaarde groter of kleiner is dan een andere cel, past u de onderstaande code toe:

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op het bladtabblad en selecteer Code weergevenin het contextmenu. Plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in het lege modulevenster, zie schermafbeelding:

VBA-code: laat een berichtvenster verschijnen als de celwaarde groter of kleiner is dan een cel

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

Opmerking: In de bovenstaande code zijn A1 en D1 de twee cellen die u met elkaar wilt vergelijken.

3. Sluit het codevenster vervolgens met Opslaan en sluitenWanneer u een waarde invoert die kleiner is dan de waarde in cel A1, verschijnt er een berichtvenster zoals hieronder wordt weergegeven:

---

Meer gerelateerde artikelen over pop-upberichtvensters: