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

我得到'438'错误，当我debugging，下面的行高亮显示黄色

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

我找不到我得到这个错误的原因。 它是语法错误吗？ 还是更大的问题？ 我需要在代码中多次查看或更改单元格的颜色。 有任何想法吗？

Answer 1

Range.Cells属性没有.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 

检查字体colorindex对xlColorIndexAutomatic可能是一个更好的办法。 你的问题缺乏一些细节。