如何將帶註釋的文本字體顏色更改爲紅色？

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