[已解决]如何用代码判断a1单元格里是否有批注？谢谢!

yqdfd

如何用代码判断a1单元格里是否有批注？谢谢!

最佳答案

月排行榜 / 总排行榜

xdwy81129

2011-1-19 18:43

回复 yqdfd 的帖子

请几天我问过的，借花献佛了：

• Sub test()
• If Intersect([A1], Cells.SpecialCells(xlCellTypeComments)) Is Nothing Then
• MsgBox "没有批注!"
• End If
• End Sub
  

跳转到最佳答案楼层

htcaiwuke

Selection.SpecialCells(xlCellTypeComments).Select  用录制宏的方法。定位-批注

xdwy81129

回复 yqdfd 的帖子

请几天我问过的，借花献佛了：

• Sub test()
• If Intersect([A1], Cells.SpecialCells(xlCellTypeComments)) Is Nothing Then
• MsgBox "没有批注!"
• End If
• End Sub
  

mn860429

周星弛

Sub test()

If Not Range("a1").Comment Is Nothing Then

MsgBox "有批注"
Else

MsgBox "没有批注"
End If

End Sub

yqdfd

谢谢，楼上几位