Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe een pop-upberichtvenster te tonen als een cel groter of kleiner is dan een specifieke waarde in Excel?

Author Xiaoyang Last modified

Als een cel groter of kleiner is dan een andere cel, moet ik een pop-upberichtvenster weergeven om te waarschuwen in Excel. Hoe los ik dit probleem op in Excel? In dit artikel zal ik het hebben over enkele codes om dit probleem aan te pakken.

Toon een pop-upberichtvenster als de celwaarde in een kolom groter of kleiner is dan een andere cel.

Toon een pop-upberichtvenster als de celwaarde in een cel groter of kleiner is dan een andere cel.

Toon een pop-upberichtvenster als de celwaarde in een kolom groter of kleiner is dan een andere cel.

Stel dat ik een specifiek getal 100 heb in cel A1, nu moet er, wanneer het getal dat wordt ingevoerd in kolom D groter is dan 100 in cel A1, een pop-upberichtvenster verschijnen om de gebruiker te herinneren.

Hier kan de onderstaande VBA-code u helpen om dit te voltooien. Volg de volgende stappen:

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op het tabblad van het blad en selecteer Weergave Code in het contextmenu. Kopieer en plak in het geopende venster Microsoft Visual Basic for Applications de volgende code in het lege Module-venster, zie screenshot:

VBA-code: toon een pop-upberichtvenster 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 is de celwaarde waarmee u wilt vergelijken; D:D is de kolom die u wilt vergelijken met cel A1.

click View Code from right click menu arrow right paste the vba code into the module

3. Sla daarna het codevenster op en sluit het. Vanaf nu verschijnt er een pop-upberichtvenster wanneer u een getal invoert in kolom D dat groter is dan 100, zie screenshot:

pop up message box if cell greatern or less than a specific value

Toon een pop-upberichtvenster als de celwaarde in een cel groter of kleiner is dan een andere cel.

Als u wilt dat een pop-upberichtvenster verschijnt wanneer een celwaarde groter of kleiner is dan een andere cel, pas dan de onderstaande code toe:

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op het tabblad van het blad en selecteer Weergave Code in het contextmenu. Kopieer en plak in het geopende venster Microsoft Visual Basic for Applications de volgende code in het lege Module-venster, zie screenshot:

VBA-code: toon een pop-upberichtvenster 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 waarmee u wilt vergelijken.

3. Sla daarna het codevenster op en sluit het. Wanneer u een waarde invoert die kleiner is dan de waarde in cel A1, verschijnt er een pop-upberichtvenster zoals in de onderstaande afbeelding te zien is:

pop up message box if cell greatern or less than another cell value

Meer gerelateerde artikelen over pop-upberichtvensters:

  • Maak een Pop-upberichtvenster bij het Openen van een Excel-bestand.
  • In sommige gevallen wilt u misschien dat er altijd een pop-upberichtvenster verschijnt om u eraan te herinneren wat u eerst moet doen wanneer u een specifiek werkboek opent. Dit kan u helpen onthouden wat het belangrijkste is in uw dagelijkse werk. In dit artikel zal ik het hebben over hoe u een pop-upberichtvenster maakt bij het openen van een Excel-bestand.
  • Maak een Ja/Nee Berichtvenster Voor het Uitvoeren van een Macro in Excel.
  • In Excel kunt u direct een macro activeren door op de F5-toets te drukken of op de Uitvoeren-knop in het venster Microsoft Visual Basic for Applications te klikken. Maar soms wilt u misschien een berichtvenster maken dat de gebruiker vraagt of ze de macro willen uitvoeren. Als ja, ga dan verder met het uitvoeren van de code, als nee, stop dan met het uitvoeren van de code. In dit artikel zal ik het hebben over hoe u een ja/nee berichtvenster maakt voor het uitvoeren van een macro in Excel.
  • Maak een Timer voor een Berichtvenster Om Het Berichtvenster Automatisch Te Sluiten Na Een Bepaalde Tijd.
  • U gebruikt mogelijk vaak VBA-scripts om problemen op te lossen tijdens het gebruik van een Excel-werkboek. En er zullen berichtvensters verschijnen tijdens het uitvoeren van het script. In sommige gevallen wilt u dat bepaalde berichtvensters automatisch worden gesloten na een bepaalde tijd in plaats van handmatig te sluiten. In dit artikel laten we u een methode zien om een timer voor een berichtvenster te maken om het berichtvenster automatisch te sluiten na een bepaalde tijd in Excel.
  • Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslayout (lees en bewerk eenvoudig grote aantallen cellen); Plakken in gefilterd bereik...
  • Cellen/Rijen/Kolommen samenvoegen en gegevens behouden; Celinhoud splitsen; Dubbele rijen combineren en optellen/gemiddelde berekenen... Voorkom dubbele cellen; Bereiken vergelijken...
  • Selecteer dubbele of unieke rijen; Selecteer lege rijen (alle cellen zijn leeg); Super Zoeken en Fuzzy Zoeken in veel werkboeken; Willekeurige selectie...
  • Exacte kopie van meerdere cellen zonder formuleverwijzing te wijzigen; Automatisch verwijzingen naar meerdere werkbladen maken; Opsommingstekens, selectievakjes en meer invoegen...
  • Favoriete en snel formules, bereiken, grafieken en afbeeldingen invoegen; Cellen versleutelen met wachtwoord; Mailinglijst maken en e-mails versturen...
  • Tekst extraheren, Tekst toevoegen, Verwijder tekens op een specifieke positie, Spaties verwijderen; Maak en print statistieken per pagina; Converteer tussen celinhoud en opmerkingen...
  • Superfilter (filter schema's opslaan en toepassen op andere werkbladen); Geavanceerd sorteren op maand/week/dag, frequentie en meer; Speciaal filteren op vet, cursief...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere werkbladen; Batchconversie xls, xlsx en PDF...
  • Draaitabelgroepering op weeknummer, dag van de week en meer... Toon ontgrendelde, vergrendelde cellen met verschillende kleuren; Markeer cellen die een formule/naam bevatten...
kte tab 201905
  • Schakel tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project in.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab bottom