Tip singkat berikut ini mungkin bermanfaat bagi anda untuk mencatat riwayat pengisian nilai/data ke dalam suatu sel berdasarkan waktu dan tanggal pembaharuannya.


Cara ini memungkinkan anda untuk lebih efisien dalam memperbaharui isi kotak komentar tanpa harus menambahkan komentar baru pada sel tersebut atau tanpa mengeditnya lagi. Dalam contoh worksheet yang ditunjukkan pada gambar di atas, sel yang diperbaharui adalah sel B2.

Adapun kode macro berikut ini disusun pada module worksheet:

Private Sub Worksheet_Change(ByVal Sel As Range)
With Sel
If .Address <> "$B$2" Then Exit Sub
If IsEmpty(Sel) Then Exit Sub
Dim strNewText$, strCommentOld$, strCommentNew$
strNewText = .Text
If Not .Comment Is Nothing Then
strCommentOld = .Comment.Text & Chr(10) & Chr(10)
Else
strCommentOld = ""
End If
On Error Resume Next
.Comment.Delete
Err.Clear
.AddComment
.Comment.Visible = False
.Comment.Text Text:=strCommentOld & _
Format(VBA.Now, "DD-MM-YYYY at hh:MM:ss AM/PM") & Chr(10) & strNewText
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub