Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een berichtvenster te laten verschijnen 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 dit probleem op te lossen in Excel? In dit artikel zal ik het hebben over enkele codes om ermee om te gaan.

Pop-up een berichtvenster als de celwaarde in een kolom groter of kleiner is dan een andere cel

Pop-up een berichtvenster als de celwaarde in een cel groter of kleiner is dan een andere cel


Pop-up een berichtvenster als de celwaarde in een kolom groter of kleiner is dan een andere cel

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

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

1. Ga naar het werkblad dat u wilt gebruiken.

2. Klik met de rechtermuisknop op het bladentabblad en selecteer Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in het lege module venster, zie screenshot:

VBA-code: pop-up een berichtvenster 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

Notes: 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 in kolom D invoert dat groter is dan 100, zie screenshot:


Pop-up een berichtvenster als de celwaarde in een cel groter of kleiner is dan een andere cel

Als u een berichtvak 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 bladentabblad en selecteer Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in het lege module venster, zie screenshot:

VBA-code: pop-up een berichtvenster 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

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

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


Meer relatieve pop-upberichtvakartikelen:

  • Maak een pop-up berichtvenster bij het openen van een Excel-bestand
  • In sommige gevallen wilt u misschien dat er altijd een pop-upvenster verschijnt om u eraan te herinneren wat u eerst moet doen wanneer u een specifieke werkmap opent. Dit kan u helpen herinneren aan het belangrijkste in uw dagelijkse werk. En dit artikel, ik zal het hebben over het maken van een pop-up berichtvenster bij het openen van een Excel-bestand.
  • Maak een Ja Nee Berichtenvak voordat u een macro in Excel uitvoert
  • In Excel kunt u direct een macro 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-berichtenvak voordat ik een macro in Excel uitvoer.
  • Maak een Message Box Timer om het Message Box na bepaalde tijd automatisch te sluiten
  • U kunt vaak VBA-script gebruiken om problemen op te lossen tijdens het gebruik van Excel-werkmap. En er zullen berichtendozen verschijnen tijdens het lopende script. In sommige gevallen wilt u dat bepaalde opgegeven berichtenblokken na een bepaalde tijd automatisch worden gesloten in plaats van deze handmatig te sluiten. In dit artikel laten we u de methode zien van het maken van een timer voor het berichtenvak om het berichtenvenster na bepaalde tijd in Excel automatisch te sluiten.


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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.