运行-时间错误'438'"Object doesn't support this property or method"

Question

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

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

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

Answer 1

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

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

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

Run-Time error '438' "Object doesn't support this property or method"