Excel通过按钮实现一键添加/删除批注技巧

    经由过程VBA实现点击按钮添加批注和删除批注的功能，具体的操作流程就看下文。

工具/原料

• Excel（教程以Excel2013为例，此法同样合用于Excel其他版本）

方式/步骤

1. 1

   新建一个Excel文档，后缀名为.xlsx，然后另存为 Excel启用宏的工作簿，后缀名为.xlsm。

   
2. 2

   绘制操控按钮，本教程是经由过程插入外形，设置其格局来实现的。

   
3. 3

   进入VBA窗口，不清晰的可以参考以下链接；

   10Excel2007打开VBA的三种方式！

   
4. 4

   新建模块以便放置代码，在菜单栏”插入“项中选择”模块“。

   
5. 5

   再模块中，输入代码：

   Sub pizhu()   ’添加批注

   Dim rng As Range

   Set rng = Selection

   i = rng.Row

   j = rng.Column

       With Sheet1.Cells(i, j).AddComment

           .Visible = True

           .Text""

       End With

   End Sub

   Sub shanchu()   ‘删除批注

   On Error Resume Next

       Selection.Comment.Shape.Select True

       Selection.Delete

   End Sub

   
6. 6

   给两个按钮别离指定分歧的宏，具体操作如图所示：

   1.”添加批注“按钮指定pingzhu；

   2.”删除批注“按钮指定shanchu。

   
7. 7

   回到Excel窗口，肆意选择单位格，单击”添加批注“按钮即可添加批注。

   
8. 8

   选择已有批注的单位格，点击”删除批注“按钮即可删除批注。

   PS：或选中批注，点击Delete键删除亦可。

   

注重事项

• 若是对您有点帮忙，请撑持一下，感谢！