[已解决]请教：判断单元格是否存在批注的代码怎么写？

lyf7276

请教：判断单元格是否存在批注的代码怎么写？

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-4 16:11

lyf7276 发表于 2013-6-4 16:02
帅老师，好像不行呀

1. Sub test()
   
2.     On Error GoTo 100
   
3.     S = Selection.Comment.Text
   
4.     MsgBox "有批注，批注内容是 " & S
   
5.     Exit Sub
   
6. 100:
   
7.     MsgBox "没有批注!"
   
8. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Sub test()
   
2. If Intersect(Selection, Cells.SpecialCells(xlCellTypeComments)) Is Nothing Then
   
3. MsgBox "没有批注!"
   
4. End If
   
5. End Sub

复制代码

lyf7276

帅老师，好像不行呀

lyf7276

Sub test()
If Range("f12").Comments Is Nothing Then
MsgBox "没有批注!"
End If
End Sub
这是度娘给的答案，好像也不行

那么的帅

lyf7276 发表于 2013-6-4 16:02
帅老师，好像不行呀

1. Sub test()
   
2.     On Error GoTo 100
   
3.     S = Selection.Comment.Text
   
4.     MsgBox "有批注，批注内容是 " & S
   
5.     Exit Sub
   
6. 100:
   
7.     MsgBox "没有批注!"
   
8. End Sub

复制代码

lyf7276

谢谢帅哥了。