[[20021104115535]]　『日付時刻の自動更新』（ＭＩＫＥ）　ページの最後に飛ぶ

『日付時刻の自動更新』（ＭＩＫＥ）

エクセルデータで、今日の日付(Ｎｏｗ)を入力し、ほかのセルに目標日時を入力して、今日からあと何日何時間何分とかだしたいのです。時計はＰＣのデータを使用で。どうか教えてください。

 リアルタイムにということでしょうか？

 はっきりいってやらないほうが良いと思いますが、

 一応、こんなマクロで実現は可能です。

 実際はWorkbook_Openとか使えばいいのですが...

 あと再計算させるセルも指定した方がいいですね...

 とりあえずサンプルということで（汗）。

 これは１秒毎に再計算を実行するようにしてます。

 このマクロを走らせて、ワークシートにはNOW関数を使えば良いです。

 Sub Macro1()

    Application.MaxChange = 0.001

    ActiveWorkbook.PrecisionAsDisplayed = False

    Calculate

    Application.OnTime Now + TimeValue("00:00:01"), "Macro1"

 End Sub

　（ramrun）

ありがとうございました。助かりました。

今後ともよろしくお願いいたします。

コメント返信：