VBA excel改变输出颜色“已禁用”

Question

如果单元格被禁用，如何更改字体颜色？目前我有，

If Uservar And 2 Then
    rngOut.Value = "Disabled"
Else
    rngOut.Value = "Enabled"
End If

我希望“已禁用”显示红色。当我运行我的excel宏。

Answer 1

您可以使用.ColorIndex属性更改单元格的字体颜色。

If rngOut.Value = "Disabled" Then
    rngOut.Font.ColorIndex = 3
ElseIf rngOut.Value = "Enabled" Then
    '~~> Do Something
End If