无法使用VBA向单元格添加注释

Question

我有一个股票电子表格来跟踪股息。由于我的跟踪表有几列，我想在另一张表上添加有关我正在做的研究的注释，然后我可以将其显示为将鼠标悬停在股票符号单元格中的评论上。 我已经研究了如何在这个板上和其他板上创建这个子。

Sub AddComments()
    Dim rCell As Range, rEnd As Range, strNote As String, rLookupTable As Range
    Dim wsPortolio As Worksheet, wsTracker As Worksheet
    
    Set wsPortolio = Worksheets("Stock List")
    Set wsTracker = Worksheets("Tracking")
    Set rLookupTable = wsPortolio.Range("A3:H100")
    With wsTracker.Range("A3:A100")
        Set rEnd = .Find(What:="End", LookIn:=xlValues)
    End With
    For Each rCell In wsTracker.Range("A3:A" & rEnd.Row - 1)
        With rCell
            strNote = Application.VLookup(rCell, rLookupTable, 8, False)
            If Not .Comment Is Nothing Then .Comment.Delete
            On Error GoTo 0
            .AddComment
            .Comment.Text Text:=strNote
        End With
    Next
    Set rCell = Nothing
End Sub

当我运行代码时，它确实会用预期值填充

strNote

，并且似乎向所有股票行情指示器单元格添加注释。但评论小箭头是红色的。当我查看“审阅”选项卡/“显示评论”时，除了我在另一列中手动输入的测试评论之外，没有任何评论。 （对于我手动添加的注释，箭头为紫色，鼠标悬停时会显示注释。）

Answer 1

M365中有不同的对象。

Sub Macro1()
    Range("G1").AddCommentThreaded ("Comment: test")
    Range("K1").AddComment
    Range("K1").Comment.Visible = False
    Range("K1").Comment.Text Text:="Note: test"
End Sub