Excel VBA系列之设置单元格填充颜色

1. 打开Visual Basic，添加模块和过程，称之为“填充颜色”。

Sub 填充颜色()

End Sub

2. 假设为A1单元格填充黄色，输入如图的代码。

Sub 填充颜色()

Sheet2.Range(“A1”).Interior.Color = 65535

End Sub

3. 执行以上代码后，A1单元格就会填充上黄色。

4. 在填充颜色的动作之前添加一个清空整个工作表的填充色。

Sub 填充颜色()

Sheet2.Cells.Interior.Pattern = xlNone

Sheet2.Range(“A1”).Interior.Color = 65535

End Sub

5. 将设置单元格填充颜色的代码修改成点击单元格就给单元格所在行填充颜色。

Sub 填充颜色()

Sheet2.Cells.Interior.Pattern = xlNone

Selection.EntireRow.Interior.Color = 65535

End Sub

6. 点击A1单元格，执行以上代码后，第一行整行就填充了颜色。

7. 点击B3单元格，再执行代码，第三行整行就填充了颜色。

以上示例仅用于演示。