vba - 使用 VBA 在 Excel 中添加注释

Question

我在向单元格添加评论时遇到了真正的困难。

我正在调用以下子

Sub ValidationError(row As Long, column As Integer, ErrorLine As String)

Tabelle1.Cells(row, column).Interior.Color = vbYellow
Tabelle1.Cells(row, column).AddComment ErrorLine

End Sub

但是我总是得到一个 1004 错误，说“应用程序或对象错误”(这是翻译的，原始消息:“Anwendungs-oder objektdefinierter Fehler”)

子被称为使用

Call ValidationError(8, 9, "Text string")

我究竟做错了什么？

最好的

Answer 1

如果目标单元格不包含注释，您的代码应该可以工作。
您可以更改程序以首先清除现有评论:

Sub ValidationError(row As Long, column As Integer, ErrorLine As String)

Tabelle1.Cells(row, column).Interior.Color = vbYellow
Tabelle1.Cells(row, column).ClearComments
Tabelle1.Cells(row, column).AddComment ErrorLine

End Sub