运行时错误'438'“对象不支持此属性或方法”

Question

我收到'438'错误，当我调试时，以下行突出显示为黄色

If (Sheet4.Cells(i, j).ColorIndex <> xlNone) Then

我找不到我收到此错误的原因。这是语法错误吗？或者这是一个更大的问题？我需要在代码中多次查看或更改Cell的颜色。 有什么想法吗？

Answer 1

Range.Cells property没有.ColorIndex属性。但是，它的.Interior或者它的.Font可以有一个.ColorIndex。要检查单元格的填充是否已着色，您可以针对 xlNone 检查.Pattern。

'for Fill
If Sheet4.Cells(i, j).Interior.Pattern <> xlNone Then
'for Font
If Sheet4.Cells(i, j).Font.ColorIndex <> xlAutomatic Then

根据xlColorIndexAutomatic检查字体颜色索引可能是更好的方法。你的问题缺乏一些细节。