Excel在单元格中添加注释

我目前正试图编写一个宏，当用户在电子表格中选择一个单元格并单击该按钮时，将在该选定单元格上添加注释。我会怎么做呢？我试过range(A1).addcomment等，但它似乎没有工作，我不知道为什么，总是弹出一条错误消息，并突出显示整条线，但消息根本没有帮助。请帮助Excel在单元格中添加注释

我在这里尝试这种代码，但它似乎没有工作，给了我一个错误信息

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

来源

2014-03-26 HumanlyRespectable

尝试：

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

来源

2014-03-26 15:22:35 Gudgip

谢谢斯泰恩迪斯 – HumanlyRespectable

你也应该加上'.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) & ""

来源

2014-03-26 15:26:41

Excel在单元格中添加注释

回答

相关问题