一，课题名称：根据合同到期状态，分别标注不同的颜色，与条件格式同样的效果的VBA代码程序．
到期合同标记为浅橙色的颜色，未到期的合同标记为浅绿色的颜色，另外设计一个命令按钮可以取消颜色标记．
二，数据表格说明：合同项目存档管理台账表
颜色判断是根据"Ｊ"列的数值来进行判断的：对于每一行的"Ｊ"列的值为说，如果该值为"已经到期"，则该行单元格的Ｂ列至Ｌ列标记为浅橙色，如果该行值为"未到期"，则该行单元格的Ｂ列至Ｌ列标记为浅绿色色．其效果与条件里设置有异曲同工之效．
三，实现功能的VBA代码
Option Explicit
Private Sub CommandButton1_Click()
'到期合同标记为浅橙
Dim i As Integer, r As Integer
With Sheets("合同台账")
.Range("b4:l32000").Interior.ColorIndex = xlnone '取消颜色标注
r = .Cells(.Rows.Count, "j").End(3).Row
For i = 4 To r
If .Range("j" & i).Value = "已经到期" Then .Range("b" & i & ":l" & i).Interior.Color = RGB(252, 228, 214) '到期合同标记为浅橙色
Next
End With
End Sub
Private Sub CommandButton3_Click()
'未到期合同标记为浅绿
Dim i As Integer, r As Integer
With Sheets("合同台账")
.Range("b4:l32000").Interior.ColorIndex = xlnone '取消颜色标注
r = .Cells(.Rows.Count, "j").End(3).Row
For i = 4 To r
If .Range("j" & i).Value = "未到期" Then .Range("b" & i & ":l" & i).Interior.Color = RGB(226, 239, 218) '未到期合同标记为浅绿
Next
End With
End Sub
Private Sub CommandButton2_Click()
'取消背景的命令按钮
With Sheets("合同台账")
.Range("b4:l32000").Interior.ColorIndex = xlnone
End With
End Sub
四，VBA核心代码讲解．
．range("b" & i & ": L"& i).interior.color=rgb(226,239,218)，颜色标记为浅绿色，另外一段标记为浅橙色．
．range("b4:L32000").interior.colorindex=xlnone，取消颜色标记．
