datediff和elesif的应用问题

jackysu78

1. 
   
2. 
   
3. 
   
4. If DateDiff("d", Date, Me.仔猪黄痢) < 0 Then
   
5. Me.仔猪黄痢.BackColor = 65280    '绿 已过
   
6. ElseIf DateDiff("d", Date, Me.仔猪黄痢) <= "& Me.设置提前天数 &" Then
   
7. Me.仔猪黄痢.BackColor = 65535    '黄 马上要执行
   
8. ElseIf DateDiff("d", Date, Me.仔猪黄痢) <= Me.设置提前天数 And DateDiff("d", Date, Me.仔猪黄痢) >= 0 Then
   
9. Me.仔猪黄痢.BackColor = 255    '红 没打且有时间
   
10. End If

复制代码

请问如上代码要如何修改才能有效，目前‘绿色’的判断肯定没有问题，另外两个颜色有重复的区域，可表面上看来已经区分了，但不起作用，只能显示一个‘红色’，盼速帮忙！谢谢！

jackysu78

不知道有没有哪位老师指点一下，主要是想通过“非条件格式方式”达成如下条件格式下的效果。也求更好的实现思想和案例。