+ -
当前位置:首页 → 问答吧 → 代码ClearComments求完善

代码ClearComments求完善

时间:2011-08-12

来源:互联网

大家好,如何在删除单元格内容时,同时删除单元格的批注。
我只会用下面这段代码:
Sub 删除批注()
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Cells.Select
Selection.ClearComments
End Sub
感觉不怎么好,请各位老师给指点一下。

作者: lingyi123456   发布时间: 2011-08-12

宏是最好的老师
Selection.ClearContents
  Selection.ClearComments

作者: dsmch   发布时间: 2011-08-12

cells.clear

作者: adong.1111   发布时间: 2011-08-12

引用:
原帖由 lingyi123456 于 2011-8-12 11:35 发表
大家好,如何在删除单元格内容时,同时删除单元格的批注。
我只会用下面这段代码:
Sub 删除批注()
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Cells.Select
Selection.ClearComments
End Sub
感觉 ...
复制内容到剪贴板
代码:
Sub 删除批注()
ActiveCell.Clear
ActiveCell.ClearComments
End Sub

作者: ly   发布时间: 2011-08-12