Advertisement
Advertisement
| 07.04.2008 at 11:37AM PDT, ID: 23539869 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: |
Select Case dblActual
Case Is < dblTarget
Shp.Fill.ForeColor.RGB = vbGreen
Case Is >= dblTarget, Is <= (dblTarget * 1.05)
Shp.Fill.ForeColor.RGB = vbYellow
Case Is > (dblTarget * 1.05)
Shp.Fill.ForeColor.RGB = vbRed
Case Else
Shp.Fill.ForeColor.RGB = 0
End Select
|