Excellでカウントダウン
Excel2003でカウントダウン機能をつくろうとしていますのですが、
わからない部分があるので、どなたか教えてください!
作成したいカウントダウンは、
「現在の時間から目標の時間までのカウントダウン」です。
条件としては、
●表示を「残り何ヶ月何日何時間何分何秒」と表示し、
●0ヶ月や0日や0時間、0秒となる場合はそれは表示しないようにすることです。(つまり、「残り0ヶ月0日0時間3分24秒」ではなくて、「残り3分24秒」という表示にする)
●カウントダウンをリアルタイムで更新すること。
の3つです。
今できていることは、A1セルに、現在時刻を表示しています。
A1には「=TEXT(NOW(),"YY年MM月DD日 H時MM分SS秒")」と入力し、
マクロとして以下のものを組んでいます。
********************************************
Sub Auto_Open()
Dim TargetTime, WaitTime
TargetTime = Now + TimeValue("00:00:01")
WaitTime = TimeValue("00:00:10")
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub
Sub Macro1()
Dim TargetTime, WaitTime
Calculate
TargetTime = Now + TimeValue("00:00:01")
WaitTime = TimeValue("00:00:10")
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub
Sub auto_close()
Dim i As Integer, TargetTime
On Error Resume Next
For i = 1 To 10
TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00"))
Application.OnTime TargetTime, "Macro1", , False
Next i
End Sub
**********************************************
B1にA1のようにリアルタイムで秒単位で更新されるカウントダウンを表示させるにはどうすればよいでしょうか。
例えば2009年の2月1日0時0分0秒までのカウントダウンでお願いします。
どなたかお願いいたします。
お礼
ありがとうございました。 ちなみに、探してみたら見つかりました。 http://www.osk.3web.ne.jp/~iwawaki/javascr.htmです。