[求助]检测单元格中是否有批注信息

qxnljx

有什么办法检测单元格中是否有批注信息？

BobPan

On Error Resume Next
If Selection.SpecialCells(xlCellTypeComments) Is Nothing Then _
MsgBox "选择区域没有批注", vbInformation

BobPan

单个单元使用格上面代码无效，使用下面代码
If ActiveCell.Comment Is Nothing Then

qxnljx

谢谢！

bright002

路过学习一下。

hhzjxss

谢谢了，可是第一句怎么出错呢？

hougq

呵呵，挺有帮助的，另外我在应用中遇到的问题，使用到的Comment相应方法贴一下。

 str = eo.Sheets(1).Cells(i + sStartRow - dStartRow, j).Value
                If ThisWorkbook.Sheets(1).Cells(i, j).Comment Is Nothing Then '不存在批注，则插入；存在则修改
                    ThisWorkbook.Sheets(1).Cells(i, j).AddComment (str)
                Else
                    ThisWorkbook.Sheets(1).Cells(i, j).Comment.Text (str)
                End If

yhdcxy

此贴使本人受益，谢谢发帖的朋友！

lyf63525

谢谢你！发帖的朋友。

820211639

{:soso_e100:}