相应代码:
Function HasComment(rng As Range) If rng.Cells(1).Comment Is Not HasComment = False Else
HasComment = True End If End Function
请选中一个单元格后,执行代码
ion HasComment(rng As Range) As Booleanf rng.Cells(1).Comment Is Nothing Then HasComment = False
HasComment = True
因篇幅问题不能全部显示，请点此查看更多更全内容