我的程序遍历工作表中的每一行数据。然后,当它出错时,我想在该特定单元格上填充颜色。
有没有一种方法可以在不使用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
最佳答案
你可以这样
Cells(rowindex, columnindex).interior.color = RGB-code
cells(rowindex, columnindex).interior.colorindex = indexno