如何将带注释的文本字体颜色更改为红色？

Question

我有这个现有的基于Excel的检查清单（黑色字体颜色）;我需要以红色字体颜色添加文本注释。将我在Excel文档上输入的所有内容保留为红色的最简单方法是什么？

Answer 1

输入后，将所有评论重新绘制成红色会更容易：

Sub BetterRedThan()
    Dim cmt As Comment
    If ActiveSheet.Comments.Count = 0 Then
        Range("A1").AddComment
    End If
    For Each cmt In ActiveSheet.Comments
        cmt.Shape.TextFrame.Characters.Font.ColorIndex = 3
    Next cmt
End Sub