我在向单元格添加评论时遇到了真正的困难。
我正在调用以下子
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")
我究竟做错了什么?
最好的
最佳答案
如果目标单元格不包含注释,您的代码应该可以工作。
您可以更改程序以首先清除现有评论:
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 - 使用 VBA 在 Excel 中添加注释,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28494788/