作者:背着蜗牛过子mz | 来源:互联网 | 2023-05-22 10:38
我在向单元格添加注释时遇到了实际困难.
我打电话给以下子
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")
我究竟做错了什么?
最好
1> BrakNicku..:
如果目标单元格不包含注释,则代码应该有效.您可以先更改过程以清除现有注释:
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