使用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”）

使用

调用sub

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