在特定單元格中填充顏色

Question

我的程序循環遍歷表單中的每一行數據。然後當它出錯時，我想在該特定單元格上填充顏色。

有沒有辦法在不使用範圍的情況下在單元格中填充顏色？

On Error GoTo Stop 

    'doing something 

Exit Sub 
Stop: 
Msgbox("Error!") 

'something like this to fill the cell 
Sheets("Data").Cells(rowdata,1).Color = red 

Answer 1

，你可以做這樣的

Cells(rowindex, columnindex).interior.color = RGB-code 

cells(rowindex, columnindex).interior.colorindex = indexno