EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
使用VBA进行颜色填充满足条件的行
来源：互联网
2023-02-21 16:29:38 355
在Excel表格上面，我们要填充满足条件的行时，可以通过筛选的形式选出所需要的行，然后对选择出来的行进行颜色填充，也可以使用VBA程序进行颜色填充。如果筛选出来的结果较多，手动填充颜色将比较麻烦。
5使用VBA程序进行单元格颜色填充
工具/原料
- 电脑
- Excel 2010
方法/步骤
打开Excel表格，按下【Alt F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。
点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt I M】组合快捷键插入“模块”。
在VBA编辑器代码框里面输入以下代码：
Sub ColoreInput()
Dim i& '定义i为长整型
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i = 2 To 1000 '从第2行到1000行
If mysheet1.Cells(i, 5) > 165 Then '如果条件满足则执行
mysheet1.Range(mysheet1.Cells(i, 1), mysheet1.Cells(i, 8)). _
Interior.Color = RGB(255, 0, 0) '填充的颜色为红色
End If
Next
End Sub
代码程序释义：
程序里面的下划线（_）主要是上面一行与下面一行程序的连接，在一行程序里面如果太长，使用下划线（_）来连接、换行。
对于填充的颜色RGB，可以在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。
在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。
VBA自动填充满足条件的行的颜色完成。
注意事项
- 个人经验，仅供参考。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：Excel函数教程-text函数的使用3 下一篇：excel 设置页面布局
