Question

我目前正在尝试编写一个宏，当用户在电子表格中选择一个单元格并单击该按钮时，会在所选单元格上添加注释。我该怎么做呢？我试过了range(A1).addcomment这样但它似乎不起作用，我不知道为什么，总会弹出一条错误信息并突出显示整行，但该信息根本没用。请帮忙

我在这里试过这段代码，但它似乎没有用，并给我一个错误信息

sub adding()
range(A1).addcomment
end sub

Answer 1

尝试：

Sub SetComment()
      With ActiveCell
         .AddComment
         .Comment.Text Text:="This is a comment"
      End With
   End Sub

Answer 2

答案如下。您必须添加注释，然后才能编辑注释文本。

Range("H13").Select
Range("H13").AddComment
Range("H13").Comment.Visible = False
Range("H13").Comment.Text Text:="Name:" & Chr(10) & "Test Comment" & Chr(10) & ""

Excel在单元格上添加注释

2 个答案: