vba代码--改变单元格颜色

下面是一个简单的VBA代码示例，可以在Excel中更改单元格颜色：

Sub ChangeCellColor() ' 定义变量 Dim r As Range ' 设置要更改颜色的单元格范围 Set r = Range("A1") ' 更改单元格颜色为红色 r.Interior.Color = vbRed End Sub

在上面的代码中，我们首先使用“Range”函数定义一个范围对象，该范围对象包含要更改颜色的单元格。然后，我们使用“Interior.Color”属性更改单元格的颜色为红色。

您可以通过更改“Range”函数中的参数来选择要更改颜色的单元格范围。同样，您可以更改“Interior.Color”属性的值来更改单元格的颜色。