Hoe laat u een berichtvenster verschijnen wanneer de celwaarde gelijk is aan „X” in Excel?
Een berichtvenster weergeven is uiterst handig bij het zoeken naar specifieke inhoud binnen een beperkt bereik. Stel bijvoorbeeld dat u zoekt naar een celwaarde van 50 in het bereik A1:C7 en u wilt dat er een berichtvenster verschijnt om duidelijk aan te geven of die waarde al dan niet voorkomt. De volgende twee methoden helpen u daarbij.
Berichtvenster weergeven als cel Waarde is gelijk aan „X” met VBA-code
Eenvoudig berichtvenster weergeven als cel Waarde is gelijk aan „X” met Kutools voor Excel
Berichtvenster weergeven als cel Waarde is gelijk aan „X” met VBA-code
Met de volgende VBA-code kunt u een berichtvenster weergeven zodra de opgegeven waarde voorkomt in het beperkte bereik. Volg hiervoor de onderstaande stappen.
1. Klik met de rechtermuisknop op de tabnaam van het werkblad waarin u waarden wilt controleren in Beperkt bereik en selecteer vervolgens Code weergeven in het contextmenu. Zie de schermafbeelding:
2. Plak in het venster Microsoft Visual Basic for Applications de volgende VBA-code in het codovenster.
VBA-code: berichtvenster weergeven als cel Waarde is gelijk 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 Sub3. Druk tegelijkertijd op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten en terug te keren naar het werkblad.
Vanaf nu verschijnt er, wanneer celwaarden in het bereik A1:C7 worden gewijzigd en een cel de waarde „50” bevat, een berichtvenster zoals hieronder op de schermafbeelding wordt getoond.
Daarnaast kunt u ook eenvoudig het bereik selecteren om een berichtvenster weer te geven zodra de celwaarde aanwezig is.
Opmerkingen:
Berichtvenster weergeven als cel Waarde is gelijk aan „X” met Kutools voor Excel
De Specifieke cellen selecteren-functie van Kutools voor Excel kan u eveneens helpen dit probleem op te lossen. Volg hiervoor de onderstaande stappen.
1. Selecteer het bereik waarin u wilt controleren of een celwaarde aanwezig is en klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren.
2. Selecteer in het dialoogvenster Specifieke cellen selecteren de optie Cel in het gedeelte Selecteer type, kies vervolgens Gelijk aan in de eerste keuzelijst Specificeer type en typ de celwaarde in het volgende tekstvak. Klik tot slot op de knop OK.
Als de celwaarde voorkomt in het beperkte bereik, verschijnt het volgende berichtvenster. Klik op de knop OK en de cel wordt geselecteerd.
Anders verschijnt het berichtvenster zoals hieronder op de schermafbeelding wordt weergegeven.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Gerelateerde artikelen:
- Hoe verwijdert u een gehele rij in Excel als een cel het getal nul bevat?
- Hoe telt u het aantal cellen met specifieke tekst binnen een geselecteerd bereik in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins