在VBA中，如何编写添加批注代码

本篇经验将通过实例和大家分享一下，在VBA中如何编写添加批注的代码。

1. 实例：为工作表中的单元格D列添加批注

在工作表中，点击菜单栏的【开发工具】，在其工具栏内，点击【Visual Basic】进入VBA编辑界面。

点击菜单栏的【插入】，在下拉菜单中选择【模块】，会弹出模块编辑窗口。

在代码编辑窗口输入以下代码：

Sub 添加批注()
    Set i  Cells(, "D").End(xlUp)
    For Each rng In Range(Range("D2"), i)
        With rng
            If .Comment Is Nothing Then
                .AddComment.Text "这是一个批注"
                  True
            End If
              False
        End With
    Next
End Sub

保存并关闭VBA编辑界面。

2. 使用表单按钮关联编写的添加批注代码

在工作表的【开发工具】菜单下，点击【插入】按钮，插入一个【表单】按钮，并与指定编写的添加批注代码关联，命名为【添加批注】。

点击【添加批注】按钮，工作表中的D列会瞬间加上批注。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。