我的程序遍历工作表中的每一行数据。然后,当它出错时,我想在该特定单元格上填充颜色。

有没有一种方法可以在不使用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

10-08 01:55