0

この問題を解決するために、条件付き書式または VBA コードのいずれかを使用したいのですが、どちらでもかまいません。

A1条件付きで着色したい。に保存されている特定の日時に終了するプロセスがありますB1。私のプロセス開始日時は に保存されていB2ます。でリアルタイムクロックをコーディングしましたC1。

私のプロセスが 2013-09-29 17:05:16 (に保存B1) に終了するとします。C1この値を、毎秒時を刻むのリアルタイム クロックと比較したいと思います。

に対して満たすべき 4 つの異なる条件がありますA1。

  1. それC1より前の場合は、Start-Stop 間隔の最後の 3% に達する B1まで緑色です。C1
  2. それ以外の場合、それよりC1前の場合はYellow。 したがって、基本的には 0.97 と 1.00 の間の間隔で、0.97 はプロセスが終了する前の 3% で、1.00 はプロセスの終了時です。 B1
  3. Start-Stop 間隔の 3% までC1経過した場合は、オレンジ.B1
  4. それ以外の場合、それより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
4

1 に答える 1

0

未テストですが、このようなものが必要だと思います!:

SO19024932 の例

ここで、A1 の式は=(NOW()-B2)/(B1-B2)

于 2013-09-26T11:04:23.063 に答える