vba - Excel2010 VBA：获取行的所有评论

Question

有没有机会将单行的所有评论作为一个数组？所以，我想要的只是一种在消息框中显示所有评论的便捷方式，如下所示：

Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
    MsgBox cmt.Text, vbOKOnly
Next cmt

但我找不到任何关于如何处理单行的提示。:(

谢谢 ：）

Answer 1

你们非常非常亲近……

如果您想单独显示所有评论MsgBox(es)（在下面的代码中 - 对于第 6 行），您可以这样做：

Sub test()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
    'check row in this way...- using if statement-:
    If cmt.Parent.Row = 6 Then
        MsgBox cmt.Text, vbOKOnly
    End If
Next cmt
End Sub