作者：乔山办公网日期：
返回目录：excel表格制作
是vba还是vb，vba中用interior.color可以识别所有颜色。colorindex就只有56种颜色
材料/工具：Excel2010
1、打开Excel表格百，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。
2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快度捷键插入“模块”。
3、在VBA编辑器代码框里面输入以下代码：
4、在Excel表格上面的【开始】、【填内充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。
5、在VBA编辑器的工具栏里面点击“运行”容图标即可运行程序，条件满足的行将会自动填充所设置的颜色。
6、VBA自动填充满足条件的行的颜色完成。
选B2起的数据区域——百菜单栏——开始——样式板块——条件格式——新建规度则——使用公式确定要使用格式的单元格——为符合此公式的值设置问格式：答
大于前一个月的：
=B2>A2——格式：填充——颜色：红色—版—确定；
小于前权一个月的：
=B2<A2——格式：填充——颜色：绿色——确定——确定。
数据需在工作薄中第一个表，数据从百A1开始，且数据列度中无空白单元格.
Sub test()
i = 1
Do Until Sheets(1).Cells(i, 1) = ""
svalue = Cells(i, 1).Value
If svalue > 10 And svalue < 20 Then
Sheets(1).Cells(i, 1).Interior.ColorIndex = 3
ElseIf svalue > 20 And svalue < 100 Then
Sheets(1).Cells(i, 1).Interior.ColorIndex = 5
End If
i = i + 1
Loop
End Sub
建议关掉无关的表，然后复制到代码窗口后按F5
运行都不会？？我以版为你有点基础了。。权。。。。怎么进代码窗口知道吧。ALT+F11