vbscript 突出显示黄色的公式

Posted 2021-05-21

Sub HighlightMyFormulas()

' This will colour all my formulas in yellow

    'This code selects all formula cells resulting in a value.
    Selection.SpecialCells(xlCellTypeFormulas, 1).Select
    
    With Selection.Interior
        .Pattern = xlSolid                  'Give cells solid pattern
        .Color = 65535                      'Turns cells yellow
    End With
    
End Sub