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

在特定单元格中填充填充颜色

1 个答案: