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

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