Hoe voeg je automatisch datum en tijd toe aan een opmerking in Excel?

Wanneer je een opmerking in een cel invoegt, wordt standaard automatisch een gebruikersnaam ingevoegd. Heb je je ooit afgevraagd of de huidige datum en tijd ook automatisch kunnen worden toegevoegd aan de opmerking? Dit helpt je om snel te zien wanneer je de opmerkingen hebt gemaakt. In dit artikel introduceer ik enkele trucs om dit probleem in Excel op te lossen.

Handmatig datum en tijd toevoegen aan opmerking met sneltoetsen

Automatisch datum en tijd toevoegen aan opmerking met VBA-code

Handmatig datum en tijd toevoegen aan opmerking met sneltoetsen

Zonder de datum en tijd in het opmerkingsvenster te typen, kun je deze sneltoetsen gebruiken om de datum en tijd snel en gemakkelijk in te voegen. Doe het volgende:

1. Klik op een cel waarin je een opmerking wilt invoegen met de huidige datum en tijd, en klik vervolgens met de rechtermuisknop om Opmerking invoegen te kiezen uit het contextmenu, zie screenshot:

2. Nadat je de opmerking hebt ingevoegd, druk in het opmerkingsvenster op Ctrl +; om de huidige datum in te voegen, typ een spatie, en druk vervolgens op Ctrl + Shift +; om de huidige tijd in te voegen. De huidige datum en tijd zijn nu meteen aan de opmerking toegevoegd, zie screenshot:

3. Vervolgens kun je je opmerking naar behoefte bewerken.

Automatisch datum en tijd toevoegen aan opmerking met VBA-code

Als je niet bekend bent met de sneltoetsen, maak je geen zorgen. Hier kan ik een VBA-code bespreken om je te helpen de datum en tijd automatisch in te voegen.

1. Selecteer de cel waarin je de opmerking wilt invoegen.

2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Automatisch datum en tijd toevoegen aan opmerking

Sub DatedComment()
'Update 20141110
Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True
End Sub

4. Druk vervolgens op de toets F5 om deze code uit te voeren, en er wordt een opmerking ingevoegd in de geselecteerde cel met automatisch de datum en tijd. Je kunt de opmerking naar behoefte bewerken, zie screenshot:

Tip: Deze VBA werkt niet als er al een opmerking in de geselecteerde cel is ingevoegd.

Gerelateerde artikelen:

Hoe reset je alle opmerkingsposities in Excel?

Hoe markeer je alle cellen met opmerkingen in Excel?