vba 设置单元格填充颜色

在VBA (Visual Basic for Applications) 中，你可以使用 `Range` 对象的 `Interior.Color` 属性来设置单元格的填充颜色。以下是一个简单的例子：

Sub SetCellColor()
    ' 设定单元格A1的颜色为蓝色
    Dim cell As Range
    Set cell = ThisWorkbook.Worksheets("Sheet1").Range("A1") ' 改为你要操作的实际工作表和单元格范围
    cell.Interior.Color = RGB(0, 0, 255) ' RGB值代表颜色，如红色(255, 0, 0)，这里表示蓝色(0, 0, 255)
End Sub

在这个例子中，你需要将 `"Sheet1"` 和 `"A1"` 替换为你想要改变颜色的具体工作表名和单元格位置。

如果你想让颜色选择更方便，可以使用 `ColorIndex` 属性，它提供了一组预定义的颜色索引，例如：

cell.Interior.ColorIndex = xlBlue ' 这里xlBlue是预设的蓝色色码