对指定单元格自动添加批注功能

答：我写了一段代码来完成。功能如下：

1、依据H和I列的值来给指点单元格添加批注。

2、只给不为空的单元格添加批注，忽略空单元格

3、修改H或I列的值，则全部重新执行，添加批注或更新已有批注内容。

按ALT+F11，打开VB编辑器，插入一个模块，复制下方代码，按F5执行程序。

Sub AddComt()

    Dim Orng As Range

    Dim Drng As Range

    Set Orng = Range("H2")

    Do Until IsEmpty(Orng)

       Set Drng = Application.Evaluate(Orng.Value)

        If Not IsEmpty(Drng) Then

            If Drng.Comment Is Nothing Then

                Drng.AddComment Orng.Offset(0, 1).Value

            Else

                With Drng

                    .Comment.Delete

                    .AddComment Orng.Offset(0, 1).Value

                End With

            End If

        End If

        Set Orng = Orng.Offset(1, 0)

    Loop

End Sub

因为没有退出修订，所以修改后又会显示批注。

1、这是开启了修订模式。

2、点击工具栏中的审阅。

3、直接选择批注进行删除，或者把批注设置为无标记都可以。

4、删除标注后，再次点击一下修订退出修订模式。

5、退出修订模式后，修改Word就不会出现批注了。

​扩展资料：

Microsoft Office Word是微软公司的一个收费文字处理应用程序，是最流行的文字处理程序之一。 它最初是由Richard Brodie为了运行DOS的IBM计算机而在1983年编写，后来成为了Microsoft Office的一部分。 Word提供了许多易于使用的文档创建工具，同时也提供了丰富的功能集，供创建复杂的文档使用。

Word的较晚版本拥有比文字处理更多的功能。绘图工具可进行简单的桌面出版运作，如在文件中加设图像。近年来已增设Collaboration、文件校对、多语言支持与及其他功能。

1. 打开WPS文字，点击“视图”菜单，在d出菜单中点击“批注”，即可查看已有的批注；

2. 如果要关闭批注，点击“视图”菜单，在d出菜单中点击“隐藏批注”；

3. 再次打开时，重复步骤1，即可查看之前的批注。

---