Question

excel vba应用——如何让单元格随时间变化而自动变化颜色

例如单元格A1“2011/9/19 10：00”，当现实时间为“2011/9/17 10：00”时，单元格B1的颜色变为绿色；当现实时间 为“2011/9/18 10：00”时，单元格B1的颜色又变为黄色；......以此类推。请教高手VBA代码如何写，谢谢！

Answer 1

设条件格式应该可以吧！
excel不会根据时间自动计算，必须激活，即便是vba也得执行
下面的思路，b列输入函数（直接设在条件格式中，好像不行），c列=b列，将C列公式下拉相当于激活公式。
设置条件格式，如果b列位true，a列的颜色变化;
下面的and函数中得条件知设置了部分。
A b c
2011-9-21 11:11 FALSE FALSE
2011-9-21 11:12 FALSE FALSE
2011-9-21 11:13 TRUE TRUE
2011-9-21 11:14 FALSE FALSE
2011-9-21 11:15 FALSE FALSE
2011-9-21 11:16 FALSE FALSE
2011-9-21 11:17 FALSE FALSE
2011-9-21 11:18 FALSE FALSE
2011-9-21 11:19 FALSE FALSE
2011-9-21 11:20 FALSE FALSE
=F10
=AND(HOUR(E10)=HOUR(NOW()),MINUTE(E10)=MINUTE(NOW()))

Answer 2

Sub test()

Dim D As Date

D = Date

If Cells(1, 1).Value - D >= 1 Then

Cells(1.1).Interior.Color = vblack

End If

End Sub

这就行了....但是只判断了一个.颜色是黑色..你自己按照自己要求再改改.就行了