在 Excel Listobject table 中的 Listobject 的单元格中添加注释

Question

我在 excel 中有一个 table (listobject)，我想在其中的某些单元格中添加评论。

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 应用程序定义或对象定义的错误。

我检查了 Whosebug 中的几个帖子，其中我获得了 .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

在 Excel Listobject table 中的 Listobject 的单元格中添加注释

Add a comment to a cell of a Listobject in Excel Listobject table

excel

vba

listobject