用VBA来给单元格添加、删除批注！

要求1：

给A6单元格添加批注，批注内容：

当前时间 市场部 姓名 工资增加200元

例如：

2018/6/6 21:37:05

市场部A005

工资加200

注意换行

代码：

Sub pz()

Range('a6').AddComment

Range('a6').Comment.Text (Now & '' & Chr(10) & '市场部' _

& [b6].Value & Chr(10) & '工资加200')

End Sub

知识点：

1、添加批注

Range().AddComment

2、指定批注的内容

Range().Comment.Text（内容）

当然添加、指定批注内容也可以合并为一句代码：

range().addcomment.Text（内容）

3、批注中text里面的内容数据类型为string，所以不能把当前日期用函数直接写进去，函数后面连接一个双引号就把函数的值的数据类型转换为了字符型。

4、显示内容换行用chr函数，chr（10）为换行

5、一段代码太长了，想换到下一行来写，应该先输入 _ ，然后输入空格，再回车。（以前讲过）

要求2:

显示\隐藏A6单元格的批注

代码：

Sub pz()

Range('a6').Comment.Visible = True\false

End Sub

这句就不解释了，太简单了。

要求3:

删除A6单元格的批注

Sub pz()

Range('a6').Comment.Delete

End Sub

这句也太简单了，不解释。

要求4:

删除A6、A7两个单元中的批注

Sub pz()

Range('a6:a7').ClearComments

End Sub