Hoe kun je de celwaarde laten pop-uppen bij het klikken in Excel?

Heb je ooit geprobeerd om de celwaarde in een pop-upbericht te plaatsen terwijl je klikt in Excel? Eigenlijk is deze taak onmogelijk. Maar we kunnen de celwaarde in een opmerking plaatsen om een pop-upbericht na te bootsen, zoals in onderstaande schermafbeelding te zien is.

Pop-up celwaarde bij klikken met toevoegen van opmerking via VBA

Pop-up celwaarde met waarde toevoegen aan opmerking via Kutools

Pop-up celwaarde bij klikken met toevoegen van opmerking via VBA

Hier is een macrocode die automatisch de waarde aan de opmerking kan toevoegen wanneer je op de cel klikt.

1. Klik met de rechtermuisknop op het werkbladtabblad dat je gebruikt en selecteer Bekijk Code uit het contextmenu. Zie onderstaande schermafbeelding:

2. Plak in het pop-upvenster van Microsoft Visual Basic for Applications onderstaande code in het script.

VBA: Voeg opmerking toe tijdens het klikken

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20170928
    Application.ScreenUpdating = False
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Target.ClearComments
    Target.AddComment Target.Value
    Application.ScreenUpdating = True
End Sub

3. Sla vervolgens de code op en ga terug naar het werkblad; de celwaarde wordt toegevoegd aan de opmerking wanneer je op de cel klikt.

Opmerking: Deze VBA kan geen opmerkingen toevoegen aan alle soorten getalcellen, zoals getallen, valuta's, datums, enz.

Pop-up celwaarde met waarde toevoegen aan opmerking via Kutools

Als je elke celwaarde van een bereik wilt toevoegen aan de bijbehorende opmerking, kun je het hulpprogramma Conversie tussen opmerkingen en cellen van Kutools voor Excel gebruiken.

1. Selecteer de cellen waarvan je de waarden wilt laten pop-uppen en klik op Kutools > Meer > Conversie tussen opmerkingen en celZie onderstaande schermafbeelding:

2. In de Conversie tussen opmerkingen en cellen dialoogvenster, vink aan Celinhoud toevoegen aan opmerking optie. Zie onderstaande schermafbeelding:

3. Klik op Ok. Nu is elke celwaarde toegevoegd aan de bijbehorende opmerking.

Demo