Excel在单元格中添加注释

我目前正在尝试编写一个宏，当用户在电子表格中选择一个单元格并单击按钮时，将在该选定单元格上添加注释。我该怎么做呢？我尝试了

range（A1）.addcomment

等，但似乎不起作用，我不知道为什么，总是会弹出一条错误消息并突出显示整行内容，但该消息根本没有帮助。请帮忙

我在这里尝试过这段代码，但它似乎不起作用，并给我一条错误消息

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

尝试：

---

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

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

---

您还应该添加

.Comment.Delete

以删除以前的注释，因为如果活动单元格已经有注释，则会出现运行时错误1004

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