Hoe een berichtvenster weergeven als de celwaarde gelijk is aan "X" in Excel?
Het opduiken van een berichtvenster helpt veel bij het vinden van bepaalde inhoud binnen het opgegeven bereik. U vindt bijvoorbeeld een celwaarde die gelijk is aan 50 in een bereik A1: C7, en u moet een berichtvenster laten verschijnen om u te vertellen of de celwaarde bestaat of niet. De volgende twee methoden kunnen u helpen.
Pop-upberichtvenster als de celwaarde gelijk is aan "X" met VBA-code
Laat een berichtvenster gemakkelijk verschijnen als de celwaarde gelijk is aan "X" met Kutools voor Excel
Pop-upberichtvenster als de celwaarde gelijk is aan "X" met VBA-code
De volgende VBA-code kan helpen om een pop-upberichtvenster te maken wanneer de bepaalde waarde binnen het opgegeven bereik bestaat. Ga als volgt te werk.
1. In het werkblad moet u waarden in het opgegeven bereik controleren, klik met de rechtermuisknop op de tabbladnaam in de werkbladtabbalk en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:
2. In de Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende VBA-code in het codevenster.
VBA-code: pop-upberichtvenster als de 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 op anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster en ga terug naar het werkblad.
Vanaf nu, wanneer celwaarden worden gewijzigd in het bereik A1: C7 en de celwaarde gelijk is aan "50", krijgt u een berichtvenster zoals onderstaand screenshot.
Bovendien kunt u gewoon het bereik selecteren om het berichtvenster te openen als de celwaarde bestaat.
Opmerkingen:
Pop-upberichtvenster als de celwaarde gelijk is aan "X" met Kutools voor Excel
De Selecteer specifieke cellen nut van Kutools for Excel kan u ook helpen om dit probleem op te lossen. Ga als volgt te werk.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer het bereik waarin u wilt zoeken als de celwaarde aanwezig is en klik vervolgens op Kutools > kies > Selecteer specifieke cellen.
2. In de Selecteer specifieke cellen dialoogvenster, selecteert u het Cel optie in het Selectie type sectie en selecteer Is gelijk aan in de eerste Specifiek type vervolgkeuzelijst en typ de celwaarde in het volgende tekstvak en klik ten slotte op het OK knop.
Als de celwaarde binnen het opgegeven bereik bestaat, krijgt u het volgende berichtvenster: klik op het OK knop, wordt de cel geselecteerd.
Anders krijgt u het berichtvenster zoals hieronder afgebeeld.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Laat een berichtvenster gemakkelijk verschijnen als de celwaarde gelijk is aan "X" met Kutools voor Excel
Gerelateerde artikelen:
- Hoe de hele rij te verwijderen als de cel nul bevat in Excel?
- Hoe cellen met specifieke tekst in selectie in Excel te tellen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- 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!