excel - 具有真实日期和时间的条件格式

Question

我想使用条件格式或 VBA 代码来解决这个问题，哪个都没关系。

我想A1有条件地着色。我有一个以特定日期和时间结束的过程，存储在B1. 我的流程开始日期和时间存储在B2. 我已经编写了一个实时时钟C1。

假设我的流程将在 2013-09-29 17:05:16 结束（存储在B1）。C1我想将此值与每秒滴答的实时时钟进行比较。

我有四个不同的条件要满足A1：

1. 如果在此C1之前，则为B1绿色，直到C1达到启动-停止间隔的最后 3%。
2. 否则，如果C1是之前，B1则为Yellow。
   所以它基本上是 0.97 和 1.00 之间的间隔，其中 0.97 是流程结束前的 3%，而 1.00 是流程结束时。
3. 如果C1已超过B1启动-停止间隔的 3%，则为橙色。
4. 否则， ifC1晚B1于Red。

我不知道你们是否需要实时和日期（C1）的编码，但无论如何：

Global clockOn As Boolean
Sub runClock()
    Range("C1").Value = Now()
    If clockOn = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "runClock"
    End If
End Sub
Sub startClock()
    clockOn = True
    runClock
End Sub
Sub stopClock()
    clockOn = False
End Sub

Answer 1

未经测试，但我认为您需要这种东西！：

其中A1中的公式是=(NOW()-B2)/(B1-B2)