自定义新评论

Question

如何在未插入“作者：”的情况下创建新评论（vba）。 在插入应用程序作者“作者：”时创建了固有的新注释。通常可以使用替换作者姓名。 Application.Author =“Mr.Dud”然而要为不同的用途定制这个不同的     Activecell.AddComment 必须添加电话

Answer 1

Public Sub MyComment(strText as String)
' Creates comment applying "strText" to Text

        ActiveCell.AddComment.Text Text:=strText

End Sub

然后，创建＆amp;编辑新评论将此调用插入MyComment。 这个插入系统日期和换行符;

    If ActiveCell.Comment Is Nothing Then
        MyComment CStr(Date) & Chr(10)
    End If

    Application.SendKeys ("+{F2}") , True

或者，如果需要空白评论，可以调用MyComment“”。

快捷键打开注释进行编辑（而不是Mso：ReviewEditComment调用）。