Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
HasComment?
Hi,
(My first posting to this group.) I want to examine the text of a cell comment but if I use a clause like If myCell.Comment.Text = "xyz" on a cell without a comment, I get an error message. I guess I could iterate through all comments in a specific range with For Each myComment In Range.Cells.Comments but as I already for other purposes am iterating through the cells in this range, It would be easier if I simply could check for the existence of any comment in the active cell. Is there a possibility to find out whether a cell has a comment or not? TIA Örjan Skoglösa |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
HasComment?
The easiest way is to use error trapping.
On error Resume Next x = Len(MyCell.Comment.Text) If Err.Number < 0 Then 'no comment Else 'do your thing here End If On Error Goto 0 On Sun, 24 Aug 2003 15:16:16 +0200, Örjan Skoglösa wrote: Hi, (My first posting to this group.) I want to examine the text of a cell comment but if I use a clause like If myCell.Comment.Text = "xyz" on a cell without a comment, I get an error message. I guess I could iterate through all comments in a specific range with For Each myComment In Range.Cells.Comments but as I already for other purposes am iterating through the cells in this range, It would be easier if I simply could check for the existence of any comment in the active cell. Is there a possibility to find out whether a cell has a comment or not? TIA Örjan Skoglösa |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
HasComment?
Thank you Orlando, Myrna and John.
Regards, Örjan On Mon, 25 Aug 2003 13:51:56 +1000, "John" wrote: Örjan Skoglösa How about this, plagiarised (by me) from an earlier suggestion by Bob Phillips:- Sub Macro1() If Not (Range("A1").Comment Is Nothing) Then Range("A1").Comment.Delete End If End Sub regards, John "Örjan Skoglösa" wrote in message .. . Hi, (My first posting to this group.) I want to examine the text of a cell comment but if I use a clause like If myCell.Comment.Text = "xyz" on a cell without a comment, I get an error message. I guess I could iterate through all comments in a specific range with For Each myComment In Range.Cells.Comments but as I already for other purposes am iterating through the cells in this range, It would be easier if I simply could check for the existence of any comment in the active cell. Is there a possibility to find out whether a cell has a comment or not? TIA Örjan Skoglösa |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HasComment ?!? | Excel Programming |