可通过vba的interior.color或interior.colorindex属性动态设置单元格背景色：rgb支持1600万色精准配色；colorindex提供56种预设色；xlnone清除填充；可批量设置区域；支持条件着色。
如果您希望在 Excel 中通过 VBA 编辑器动态修改指定单元格的背景颜色，则需调用 Range 对象的 Interior.Color 或 Interior.ColorIndex 属性。以下是实现该操作的具体步骤：
一、使用 RGB 值设置背景颜色
RGB 方法允许您通过红（Red）、绿（Green）、蓝（Blue）三个分量的数值组合精确指定颜色，取值范围均为 0 到 255。此方式支持超过 1600 万种颜色，适用于需要精准配色的场景。
1、按 Alt + F11 打开 VBA 编辑器。
2、在左侧“工程资源管理器”中，右键单击目标工作簿名称，选择“插入” → “模块”。
3、在新建模块窗口中输入以下代码：
Sub SetCellColorByRGB()
Range("A1").Interior.Color = RGB(255, 105, 180)
End Sub
4、将光标置于代码内任意位置，按 F5 运行宏，A1 单元格背景将变为粉红色。
二、使用 ColorIndex 设置预设颜色
ColorIndex 是 Excel 内置的 56 色索引表，编号从 1 到 56，对应调色板中的固定颜色。该方法兼容性高，适用于早期 Excel 版本或对颜色精度要求不高的场合。
1、在 VBA 编辑器中新建模块或打开已有模块。
2088shop商城购物系统是商城系统中功能最全的一个版本：非会员购物、商品无限级分类、不限商品数量、商品多级会员定价、上货库存、Word在线编辑器、订单详情销售报表、商品评论、留言簿、管理员多级别、VIP积分、会员注册积分奖励、智能新闻发布、滚动公告、投票调查、背景图片颜色更换、店标上传、版权联系方式修改、背景音乐（好歌不断）、广告图片支持Flash、弹出浮动广告、搜索引擎关健词优化、图文友情联
2、输入以下代码：
Sub SetCellColorByIndex()
Range("B2").Interior.ColorIndex = 3
End Sub
3、运行宏后，B2 单元格背景将变为红色（ColorIndex = 3 对应标准红色）。
三、清除单元格背景颜色
若需还原单元格为无填充状态，应将 Interior.Color 或 Interior.ColorIndex 设为 xlNone，避免误用 0 或 -4142 等易混淆值导致显示异常。
1、在模块中添加新过程：
Sub ClearCellBackgroundColor()
Range("C3").Interior.Color = xlNone
End Sub
2、执行该宏后，C3 单元格的背景填充将被完全移除，恢复为透明状态。
四、批量设置连续区域背景颜色
通过指定多单元格区域地址，可一次性为整块区域应用统一背景色，提升处理效率，适用于格式化报表标题行或数据分组区。
1、在模块中输入以下代码：
Sub FillRangeBackground()
Range("D1:F5").Interior.Color = RGB(200, 230, 255)
End Sub
2、运行后，D1 至 F5 区域所有单元格将填充浅蓝色背景。
五、根据单元格内容条件设置背景颜色
利用 If…Then 语句判断单元格值，可实现基于内容的差异化着色，例如将负数标为红色背景，便于快速识别异常数据。
1、编写如下条件着色代码：
Sub ConditionalColorByValue()
If Range("G1").Value
Range("G1").Interior.Color = RGB(255, 0, 0)
Else
Range("G1").Interior.Color = RGB(0, 255, 0)
End If
End Sub
2、运行宏后，G1 单元格若值为负数则显示红色背景，否则显示绿色背景。
