この問題を解決するために、条件付き書式または VBA コードのいずれかを使用したいのですが、どちらでもかまいません。
A1
条件付きで着色したい。に保存されている特定の日時に終了するプロセスがありますB1
。私のプロセス開始日時は に保存されていB2
ます。でリアルタイムクロックをコーディングしましたC1
。
私のプロセスが 2013-09-29 17:05:16 (に保存B1
) に終了するとします。C1
この値を、毎秒時を刻むのリアルタイム クロックと比較したいと思います。
に対して満たすべき 4 つの異なる条件がありますA1
。
- それ
C1
より前の場合は、Start-Stop 間隔の最後の 3% に達するB1
まで緑色です。C1
- それ以外の場合、それより
C1
前の場合はYellow。 したがって、基本的には 0.97 と 1.00 の間の間隔で、0.97 はプロセスが終了する前の 3% で、1.00 はプロセスの終了時です。B1
- Start-Stop 間隔の 3% まで
C1
経過した場合は、オレンジ.B1
- それ以外の場合、それより
C1
遅い場合はRedです。B1
リアルタイムと日付 ( ) のコーディングが必要かどうかはわかりません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