条件格式条件：1-5底纹为黄色
6-10底纹为蓝色
11-15底纹为绿色
16-20底纹为橙色
21-25底纹为红色
有没有多个条件格式啊？
[看表]
解决这个问题只能用宏了，详见附件。
如附件所示，按“Alt+F8”运行“条件格式”宏，会有对话框让你选要设置条件格式的数据区域，用鼠标选好后确定就可以了。
用纯色的话不太好看，帮你选了相对淡一点的颜色，修改的话可以参照附件中的对照表，改相应的数字就可以了。
'代码很简单,根据注释修改部分数值即可得到自己想要的效果
Option Explicit
Sub 条件格式()
On Error GoTo 0
Dim rngTemp As Range, k As Range, intColor%
Set rngTemp = Application。 InputBox("请输入要设置格式的区域："...全部
解决这个问题只能用宏了，详见附件。
如附件所示，按“Alt+F8”运行“条件格式”宏，会有对话框让你选要设置条件格式的数据区域，用鼠标选好后确定就可以了。
用纯色的话不太好看，帮你选了相对淡一点的颜色，修改的话可以参照附件中的对照表，改相应的数字就可以了。
'代码很简单,根据注释修改部分数值即可得到自己想要的效果
Option Explicit
Sub 条件格式()
On Error GoTo 0
Dim rngTemp As Range, k As Range, intColor%
Set rngTemp = Application。
InputBox("请输入要设置格式的区域：", "选择单元格", Type:=8)
For Each k In rngTemp
Select Case k
Case 1 To 5
intColor = 19 '浅黄色
Case 6 To 10
intColor = 37 '水蓝色
Case 11 To 15
intColor = 35 '浅绿色
Case 16 To 20
intColor = 44 '橙色
Case 21 To 25
intColor = 38 '梅红色
Case Else
intColor = 0 '无色
End Select
'设置背景色
k。
Interior。ColorIndex = intColor
Next
End Sub
。收起
