VBA另类方式添加批注

文:Kael.Z

批注

平时操作EXCEL时需要给单元格数据添加一些批注什么的方便记忆!一般的操作是:插入》批注或者像我这种懒人直接按住ALT+I+M来添加批注。但是有些人感觉这样操作麻烦!

那我就给大家个另类的方法,VBA代码实现吧。

有2个元素要涉及。一个是按钮控件,一个是VBA代码。

第一步在表格的适当区域建立2个控件按钮。(视图》工具栏》控件工具箱)插入2个按钮!分别命名为添加批注和删除批注。

第二步分别在第一个按钮插入代码

Private Sub 添加批注_Click()
On Error Resume Next
Dim PZ As String
PZ = InputBox("★请输入批注:")
ActiveCell.AddComment.Text (PZ)
ActiveCell.Comment.Visible = False
End Sub

在第二个按钮再插入如下代码:

Private Sub 删除批注_Click()
ActiveCell.ClearComments
End Sub

将上面的代码弄好后,保存退出设计模式!

第三步测试!

来看看效果吧!

效果

哈哈,是不是很方便呢?至少不用点那么多地方了!

分享到: