Добавление комментария к ячейке объекта Listobject в таблице Excel Listobject

Question

У меня есть таблица (listobject) в Excel, где я хочу добавить комментарии в некоторые ячейки.

Dim infotbl As listobject
Set infotbl = ThisWorkbook.Sheets("index").ListObjects("infotbl")
Dim myString As String
myString = "Whatever"

' this line of code works:
infotbl.ListColumns(2).DataBodyRange.item(1).Interior.color = vbGreen

' one of the next two lines of code does not work:
infotbl.ListColumns(2).DataBodyRange.item(1).AddComment
infotbl.ListColumns(2).DataBodyRange.item(1).Comment.Text Text:=myString

Ошибка: ошибка запуска 1004, определенная приложением или объектная ошибка.

Я проверил несколько сообщений в stackoverflow, где я получил методы .AddComment и .comment.Text, но они не будут работать.

некоторая помощь?

спасибо

Answer 1

У меня работает следующий код:

Sub TestTableComment()
    Dim infotbl As ListObject: Set infotbl = ThisWorkbook.Sheets("index").ListObjects("infotbl")
    Dim myString As String: myString = "Whatever"

    With infotbl.ListColumns(2).DataBodyRange
        .Item(1).Interior.Color = vbGreen
        .Item(1).ClearComments
        .Item(1).AddComment myString
    End With
End Sub