セルＡ１に現在の時刻を表示させ１０秒事に自動更新

質問

エクセル２００３です。

セルＺ１に現在の時刻を表記させて（２０○○年○月○日○○時○○分○○秒）何もしなくても１０秒ごとにＺ１に自動で最新の時刻（２０○○年○月○日○○時○○分○○秒）に表記させる方法はありますか？

計算式やＶＢＡなど方法は何でも良いです。

宜しくお願いします。

回答No.3

mt2015 · ベストアンサー

横入り失礼

> このＶＢＡでエクセルファイルを開いた時に自動で時刻を更新する様に作動させるＶＢＡはどの様にすれば良いでしょうか？

ブックを開いたときに「更新」マクロを動かしたいなら、標準モジュールに以下を追加してみてください。

Sub Auto_Open()
　　Call 更新
End Sub

お礼

この度はＶＢＡの回答をして下さりありがとうございました。
無事に解決出来ました。

回答No.2

Safe_Mode

ファイルを開けば、その時点で自動的に更新されるはずですけど、試して見ましたか？

お礼

別の回答者様のＶＢＡで無事に解決出来ました。
この度はありがとうございました。

回答No.1

Safe_Mode

こんな話ではないかと思いますが…
http://n-hirahira18.at.webry.info/201303/article_3.html

お礼

この度は回答して頂きありがとうございました。
ＶＢＡを使用しなくても出来る方法があるのですね。
勉強になりました。

補足

Private tm As Double
Sub 更新()
Application.Calculate
tm = [now()+timevalue("00:00:10")]
Application.OnTime tm, "更新"
End Sub
'=====================================================
Sub 更新やめ()
Application.OnTime tm, "更新", , False
End Sub

インターネットに標準モジュールを使用してＶＢＡで作動させる物がありました。
このＶＢＡでエクセルファイルを開いた時に自動で時刻を更新する様に作動させるＶＢＡはどの様にすれば良いでしょうか？