Creating a comment note in excel using vba 1

[meridian99]

I'm using VBA within excel97 and trying to create a comment box with text that is wcreated using vba code. I'd like to write data into 1/more cells then automatically create a comment for that cell so users can see the data and a few other details if needed.

Is this possible in vba?

thanks

 

[xlbo]

From excel97 VBA help:
Represents a cell comment. The Comment object is a member of the Comments collection.

Using the Comment Object

Use the Comment property to return a Comment object. The following example changes the text in the comment in cell E5.

Worksheets(1).Range("E5&quot.Comment.Text "reviewed on " & Date

Use Comments(index), where index is the comment number, to return a single comment from the Comments collection. The following example hides comment two on worksheet one.

Worksheets(1).Comments(2).Visible = False

Use the AddComment method to add a comment to a range. The following example adds a comment to cell E5 on worksheet one.

With Worksheets(1).Range("e5&quot.AddComment
.Visible = False
.Text "reviewed on " & Date
End With

HTH Rgds
~Geoff~

 

[meridian99]

Hi XLBO, is there a function to read data from a comment box that is attached to a excel97 cell ? Like to add a comment then read it & save to a variable.

many thanks

----------------------------------------

Using the Comment Object

Use the Comment property to return a Comment object. The following example changes the text in the comment in cell E5.

Worksheets(1).Range("E5&quot.Comment.Text "reviewed on " & Date

Use Comments(index), where index is the comment number, to return a single comment from the Comments collection. The following example hides comment two on worksheet one.

Worksheets(1).Comments(2).Visible = False

Use the AddComment method to add a comment to a range. The following example adds a comment to cell E5 on worksheet one.

With Worksheets(1).Range("e5&quot.AddComment
.Visible = False
.Text "reviewed on " & Date
End With

 

[xlbo]

Try something like this:
Sub GetCommentText()
For Each c In ActiveSheet.Comments
ComText = c.Text
Next

HTH Rgds
~Geoff~