Thêm nhận xét vào excel bằng VBA

Question

Tôi đang gặp khó khăn thực khi thêm nhận xét vào ô.

Tôi gọi sau tiểu

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 

Nhưng tôi luôn luôn nhận được một lỗi 1004, nói rằng "Ứng dụng hoặc sai sót đối tượng" (điều này được dịch, thông báo ban đầu: "Anwendungs- oder objektdefinierter Fehler")

tiểu được gọi là sử dụng

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

tôi đang làm gì sai?

Tốt nhất

Answer 1

Mã của bạn nên hoạt động nếu ô đích không chứa nhận xét. Bạn có thể thay đổi các thủ tục để xóa bình luận hiện đầu tiên:

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