VBA-是否可以根据修剪后的文本是否从黑色变为白色来编写If/Then语句

Question

下面的当前代码不起作用，因为它发现RsnChhng总是="Reason"。

起初，我认为"原因"这个词会出现，我想我可以为此编写代码，但事实上，它总是在那里不可见，因为它的颜色和背景一样是黑色的，所以你看不到它，当它需要执行操作时，它的文本颜色会变成白色。

那么，有没有一种方法可以让我在下面的代码中确定文本颜色是白色，然后执行代码？

RsnChng = Trim(HE.CurrentHost.TextRC(20, 2, 6))
If RsnChng = "Reason" Then
HE.CurrentHost.PutText "Finished by MPT055", 20, 20
Utilities.PressKey "ENTER", False, UseIBM1, "6", , "YES", "BUTTONS"
End If

提前感谢，Mike

Answer 1

您可以使用以下代码来获取字体颜色：

Function GetFontColor(Target As Range) As Integer
GetFontColor = Target.Font.ColorIndex
End Function

然后在IF条件下使用相同的。

If GetFontColor(Range("A1"))=2 then 
...
End If

如果你想检查细胞颜色，请使用以下

If Range("A1").Interior.Color = RGB(255, 255, 255) Then
...
End If