Question

如何在Excel工作表上自动执行评论？是否有公式创建"= Comment("etc")"之类的注释？

例如，在一列关于每一行的简短介绍中，我认为在每个单元格中添加注释要好于长文本。

也欢迎其他选择。

Answer 1

使用VBA的一个简单答案是创建这样的VBA函数：

Option Explicit

Function InsertComment(Stringincell As String, StrinComment As String)
   Application.Caller.ClearComments
   Application.Caller.AddComment StrinComment
   InsertComment = Stringincell
End Function

现在，您使用常规的excel并在单元格中输入函数/公式以获取文本作为注释：

=Comment("String to see in the cell","String you want to see in the comment")

Answer 2

要将每个单元格的内容添加到与该单元格相关的注释中，可以在VBA中使用AddComment方法：

Sub comment()

Dim ws As Worksheet
Dim rng As Range

Set ws = Worksheets(1)
Set rng = ws.UsedRange

    For Each c In rng.Cells
        c.AddComment.Text c.Formula
    Next c


End Sub

这还将显示非公式单元格内容。如果要确定这是否是实际公式，可以将if的{{1}}语句与布尔值一起使用。

希望有帮助。

添加评论作为公式

2 个答案: