Excellでカウントダウン

質問

Excel2003でカウントダウン機能をつくろうとしていますのですが、
わからない部分があるので、どなたか教えてください！

作成したいカウントダウンは、
「現在の時間から目標の時間までのカウントダウン」です。
条件としては、
●表示を「残り何ヶ月何日何時間何分何秒」と表示し、
●０ヶ月や０日や０時間、０秒となる場合はそれは表示しないようにすることです。（つまり、「残り０ヶ月０日０時間３分２４秒」ではなくて、「残り３分２４秒」という表示にする）
●カウントダウンをリアルタイムで更新すること。
の３つです。

今できていることは、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のようにリアルタイムで秒単位で更新されるカウントダウンを表示させるにはどうすればよいでしょうか。
例えば２００９年の２月１日０時０分０秒までのカウントダウンでお願いします。
どなたかお願いいたします。

回答No.1

hige_082

引き算でできます
Ａ１へ
=NOW()
書式設定を　yy"年"m"月"d"日 "h"時"mm"分"ss"秒"
Ｂ１へ
２００９年の２月１日０時０分０秒　を入力
Ｃ１へ
=B1-A1
Ｄ１へ
="残り"&IF(INT(C1/30)<1,"",INT(C1/30)&"ヶ月")&IF(MOD(INT(C1),30)<1,"",MOD(INT(C1),30)&"日　")&IF(AND(HOUR(C1)<1,MOD(INT(C1),30)<1),"",HOUR(C1)&"時間")&MINUTE(C1)&"分"&SECOND(C1)&"秒"

’----------------------------------------------------------
Sub Auto_Open()
Macro1
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
’--------------------------------------------------------