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

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