運行時錯誤「438」「對象不支持此屬性或方法」

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 

檢查字體colorindex對xlColorIndexAutomatic可能是一個更好的方法。你的問題缺乏一些細節。