📜  excel 在悬停时显示评论 - VBA 代码示例

📅  最后修改于: 2022-03-11 14:51:55.450000             🧑  作者: Mango

代码示例1
' Adds a comment, masks / shows all comments
Sub TestMe()
    With Worksheets(1).Range("e5").AddComment
        .Visible = False
        .Text "reviewed on " & Date '
    End With
  ' Hides all comments
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
  ' Shows all comments
    Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub