excel学习库-Excel VBA系列之设置单元格填充颜色

在Excel中，为单元格填充颜色可以直接通过“开始”选项卡下“字体”区域的“填充颜色”来设置单元格背景的颜色。以下则是通过在VBA中通过代码来实现，为我们后面的案例做铺垫。 1. 打开Visual Basic，添加模块和过程，称之为“填充颜色”。

Sub 填充颜色()End Sub 2. 假设要为A1单元格填充黄色，在过程中需要输入如图的代码。

Sub 填充颜色()Sheet2.Range("A1").Interior.Color = 65535End Sub 3. 执行以上代码后，A1单元格就会填充上黄色背景。

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

Sub 填充颜色()Sheet2.Cells.Interior.Pattern = xlNoneSheet2.Range("A1").Interior.Color = 65535End Sub 5. 将设置单元格填充颜色的代码修改成“点击”单元格的同时，单元格所在的整行则填充背景颜色。

Sub 填充颜色()Sheet2.Cells.Interior.Pattern = xlNoneSelection.EntireRow.Interior.Color = 65535End Sub 6. 点击A1单元格，执行以上代码后，第一行整行就填充上了颜色。

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

以上案例仅用于演示，更多的应用可关注后续的文章分享。喜欢的朋友也请多多关注一下

excel学习库