使用 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错误，说"Application or object error"（这个是翻译的，原文："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

使用 VBA 向 excel 添加评论

Adding a comment to a excel using VBA

excel

vba

comments