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

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