Excel 365 VBA如何创建线程评论并直接打开其编辑框？

线程评论（Threaded Comment）属于CommentThreaded对象，确实没有普通评论（Comment）的Visible属性，但可以通过以下两种方法直接触发编辑状态，避免用户手动点击铅笔图标：

方法1：调用功能区命令（推荐，稳定性高） #

使用ExecuteMso调用Excel内置的「编辑线程评论」功能区命令，该方法不依赖界面布局或快捷键，兼容Excel 365及支持线程评论的版本：

Sub AddAndEditThreadedComment()
    Dim targetCell As Range
    Set targetCell = ActiveSheet.Range("A1") ' 替换为你的目标单元格
    
    ' 创建线程评论，自动添加用户名前缀
    Dim threadComment As CommentThreaded
    Set threadComment = targetCell.AddCommentThreaded(Application.UserName & ":" & vbLf)
    
    ' 设置用户名加粗（和普通评论格式保持一致）
    With threadComment.Shape.TextFrame2.TextRange
        .Characters(1, Len(Application.UserName) + 1).Font.Bold = True ' 包含冒号
    End With
    
    ' 选中目标单元格确保焦点
    targetCell.Select
    
    ' 直接触发线程评论编辑状态
    On Error Resume Next ' 兼容不支持线程评论的Excel版本
    Application.CommandBars.ExecuteMso "ThreadedCommentEdit"
    On Error GoTo 0
End Sub

方法2：使用SendKeys模拟操作（兼容性稍差） #

如果因版本限制无法使用ExecuteMso，可以通过SendKeys模拟快捷键打开评论面板并进入编辑：

Sub AddAndEditThreadedComment_Alt()
    Dim targetCell As Range
    Set targetCell = ActiveSheet.Range("A1")
    
    ' 创建线程评论并设置格式
    Dim threadComment As CommentThreaded
    Set threadComment = targetCell.AddCommentThreaded(Application.UserName & ":" & vbLf)
    
    With threadComment.Shape.TextFrame2.TextRange
        .Characters(1, Len(Application.UserName) + 1).Font.Bold = True
    End With
    
    targetCell.Select
    
    ' 模拟Alt+H+R+C打开评论面板，再按F2进入编辑
    Application.SendKeys "%hrc", True
    Application.SendKeys "{F2}", True
End Sub

注意事项 #

• ExecuteMso方法的命令名称是Excel内置的，需确保Excel版本支持线程评论（Excel 365、2021及以后）；
• SendKeys方法可能受Excel界面布局、输入法状态影响，稳定性不如ExecuteMso。

内容的提问来源于stack exchange，提问作者Andres