lior03
04-16-2006, 11:37 AM
hello
the aim of the following code is to present a date number in comment while presenting the date in cell.
Dim cm As Comment
Dim c As Range
For Each c In selection.Cells
c.clearcomments
If Not IsEmpty(c) And IsDate(c) Then
With c.AddComment
.Text Text:="day number is:" & c.Value
.Shape.TextFrame.AutoSize = True
End With
End If
Next c
is it possible to present information about a cell's content in a comment using a differnt number format?.
of instance - 21\11\2036 is day number 50000.
thanks
the aim of the following code is to present a date number in comment while presenting the date in cell.
Dim cm As Comment
Dim c As Range
For Each c In selection.Cells
c.clearcomments
If Not IsEmpty(c) And IsDate(c) Then
With c.AddComment
.Text Text:="day number is:" & c.Value
.Shape.TextFrame.AutoSize = True
End With
End If
Next c
is it possible to present information about a cell's content in a comment using a differnt number format?.
of instance - 21\11\2036 is day number 50000.
thanks