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

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

第三步测试！

来看看效果吧！

哈哈，是不是很方便呢？至少不用点那么多地方了！