vba - 使用 VBA 向单元格添加注释

Question

有没有办法通过将鼠标悬停在单元格上来激活对单元格的评论？我有一系列单元格，当将它们悬停在每个单元格上时，我想从另一张纸中提取相应的注释。悬停事件将从另一个工作表中各自的单元格中提取注释。

注释是字符串值。基本上，我在工作表 1 中有一系列单元格，比如说 A1:A5，当我将鼠标悬停在它们上方并从工作表 2 范围 B1:B5 中提取时，我需要弹出注释。我不会手动执行的原因是因为 Sheet 2 的内容每天都在变化。这就是为什么我想看看是否有 VBA 解决方案。

Answer 1

将鼠标悬停在包含评论的任何单元格上，会显示该单元格的评论

这是向单元格添加评论以及更新评论文本的方式

Sub aaa()
    With Range("E6")
        If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment "this is a comment"
        .Comment.Text "abc123" 'No need the assignment sign "=" after .Comment.Text             
    End With
End Sub