Hoe een meldingsvenster te openen als de celwaarde gelijk is aan “X” in Excel?

Het openen van een meldingsvenster helpt enorm bij het vinden van bepaalde inhoud in een gespecificeerd bereik. Bijvoorbeeld, je zoekt naar een celwaarde die gelijk is aan 50 in een bereik A1:C7, en je hebt een meldingsvenster nodig dat verschijnt om je te vertellen of de celwaarde bestaat of niet. De volgende twee methoden kunnen je helpen.

Open een meldingsvenster als de celwaarde gelijk is aan “X” met VBA-code
Eenvoudig een meldingsvenster openen als de celwaarde gelijk is aan “X” met Kutools voor Excel

Open een meldingsvenster als de celwaarde gelijk is aan “X” met VBA-code

De volgende VBA-code kan helpen om een meldingsvenster te maken wanneer een bepaalde waarde bestaat in een gespecificeerd bereik. Volg de onderstaande stappen.

1. In het werkblad waarin je waarden in een gespecificeerd bereik wilt controleren, klik met de rechtermuisknop op de tabnaam in de tabbalk, en klik vervolgens op Weergave Code in het rechtermuisknopmenu. Zie screenshot:

2. Plak de volgende VBA-code in het Code-venster in het Microsoft Visual Basic for Applications-venster.

VBA-code: meldingsvenster openen als celwaarde gelijk is aan “X”

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Druk tegelijkertijd op Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten en terug te keren naar het werkblad.

Vanaf nu, wanneer celwaarden worden gewijzigd in het bereik A1:C7 en er is een celwaarde gelijk aan “50”, krijg je een meldingsvenster zoals in de onderstaande screenshot te zien is.

Daarnaast kun je gewoon het bereik selecteren om het meldingsvenster te openen als de celwaarde bestaat.

Opmerkingen:

Open een meldingsvenster als celwaarde gelijk is aan “X” met Kutools voor Excel

De functie Specifieke Cellen Selecteren van Kutools voor Excel kan je ook helpen dit probleem op te lossen. Volg de onderstaande stappen.

1. Selecteer het bereik waarin je wilt zoeken of de celwaarde bestaat, klik dan op Kutools > Selecteren > Specifieke Cellen Selecteren. 

2. Selecteer in het Specifieke Cellen Selecteren dialoogvenster de Cel optie in de Selecteer type sectie, selecteer vervolgens Is gelijk aan in de eerste keuzelijst Specificeer type en typ de celwaarde in het volgende tekstvak, en klik ten slotte op de OK-knop.

Als de celwaarde bestaat in het gespecificeerde bereik, krijg je het volgende meldingsvenster, klik op de OK-knop, de cel zal worden geselecteerd.

Anders krijg je het meldingsvenster zoals in de onderstaande screenshot te zien is.

Gerelateerde artikelen:

• Hoe een hele rij te verwijderen als een cel nul bevat in Excel?
• Hoe cellen met specifieke tekst in een selectie te tellen in Excel?