Поместите цвет заливки в определенную ячейку

Question

Моя программа проходит через каждую строку данных на листе. Затем, когда это ошибка, я хочу поместить цвет заливки в эту конкретную ячейку.

Есть ли способ поместить цвет заливки в ячейку, не используя Range?

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