If e.Row("事件日期") < Date.today AndAlso e.Row("处理状态") <>"已处理"
If e.Row("重要程度") = "重要" Then
e.Style = "过期且重要"
ElseIf e.Row("重要程度") = "一般" Then
e.Style = "过期且一般"
ElseIf e.Row("重要程度") = "次要" Then
e.Style = "过期且次要"
End If
ElseIf (cdate(e.Row("事件日期"))-Date.Today).Totaldays<=5 AndAlso e.Row("处理状态") <>"已处理"
If e.Row("重要程度") = "重要" Then
e.Style = "临近且重要"
ElseIf e.Row("重要程度") = "一般" Then
e.Style = "临近且一般"
ElseIf e.Row("重要程度") = "次要" Then
e.Style = "临近且次要"
End If
Else
If e.Row("重要程度") = "重要" Then
e.Style = "重要"
ElseIf e.Row("重要程度") = "一般" Then
e.Style = "一般"
ElseIf e.Row("重要程度") = "次要" Then
e.Style = "次要"
End If
End If
方法2、只控制单元格的颜色，不要控制整行
If e.Row("事件日期") < Date.today AndAlso e.Row("处理状态") <>"已处理"
e.Style = "过期"
Else
If (cdate(e.Row("事件日期"))-Date.Today).Totaldays<=5 AndAlso e.Row("处理状态") <>"已处理"
e.Style = "临近"
Else
e.Style = "正常"
End If
End If
If e.Col.name = "重要程度"
If e.Row("重要程度") = "重要" Then
e.Style = "重要"
ElseIf e.Row("重要程度") = "一般" Then
e.Style = "一般"
ElseIf e.Row("重要程度") = "次要" Then
e.Style = "次要"
End If
End If
加好友 
发短信
Post By：2019/9/10 8:58:00 [显示全部帖子]
