Ga naar hoofdinhoud

Hoe een berichtvenster weergeven als de cel groter of kleiner is dan een specifieke waarde in Excel?

Als een cel groter of kleiner is dan een andere cel, moet ik een berichtvenster openen om te waarschuwen in Excel. Hoe los ik dit probleem op in Excel? In dit artikel zal ik het hebben over enkele codes om ermee om te gaan.

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 in een andere cel


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

Stel dat ik een specifiek nummer 100 heb in cel A1, nu, wanneer het getal dat is ingevoerd in kolom D groter is dan 100 in cel A1, moet er een berichtvenster worden weergegeven om de gebruiker eraan te herinneren.

Hier kan de onderstaande VBA-code u helpen om het af te maken, voer de volgende stappen uit:

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in het lege modulevenster, zie screenshot:

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

Note: In de bovenstaande code, Sheet1 is uw 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.

3. Sla vervolgens het codevenster op en sluit het, vanaf nu verschijnt er een berichtvenster als u een getal invoert in kolom D dat groter is dan 100, zie screenshot:


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

Als u wilt dat een berichtvenster wordt weergegeven 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 de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in het lege modulevenster, zie screenshot:

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

Note: In de bovenstaande code, A1 en D1 zijn de twee cellen waarmee u wilt vergelijken.

3. Sla vervolgens het codevenster op en sluit het.Als u een waarde invoert die kleiner is dan de waarde in cel A1, wordt een berichtvenster weergegeven zoals onderstaand screenshot:


Meer relatieve pop-upberichtboxartikelen:

  • Maak een pop-upberichtvenster bij het openen van een Excel-bestand
  • In bepaalde gevallen wilt u misschien dat er altijd een pop-upvenster in een berichtvenster verschijnt om u eraan te herinneren wat u als eerste moet doen wanneer u een specifieke werkmap opent, dit kan u helpen herinneren dat u het belangrijkste moet doen in uw dagelijkse werk. En in dit artikel zal ik het hebben over het maken van een pop-upberichtvenster bij het openen van een Excel-bestand.
  • Maak een Ja Nee-berichtvenster voordat u een macro in Excel uitvoert
  • In Excel kunt u een macro direct activeren door op de F5-toets te drukken of op de knop Uitvoeren in het venster Microsoft Visual Basic for Applications te klikken. Maar soms wilt u misschien een berichtvenster maken waarin de gebruiker wordt gevraagd of hij de macro wil uitvoeren. Zo ja, ga dan door met het uitvoeren van de code, zo nee, stop met het uitvoeren van de code. In dit artikel zal ik het hebben over het maken van een ja-nee-berichtvak voordat een macro in Excel wordt uitgevoerd.
  • Maak een Message Box-timer om de berichtenbox na een bepaalde tijd automatisch te sluiten
  • U kunt VBA-script vaak gebruiken om problemen op te lossen tijdens het gebruik van een Excel-werkmap. En er zullen berichtvensters verschijnen tijdens het uitvoeren van het script. In sommige gevallen wilt u dat bepaalde opgegeven berichtvensters na een bepaalde tijd automatisch worden gesloten in plaats van ze handmatig te sluiten. In dit artikel laten we u zien hoe u een berichtvak-timer maakt om het berichtvak na een bepaalde tijd in Excel automatisch te sluiten.

  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • 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 onderkant
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