エクセルシートのセルに現在時刻表示

Question

エクセルシートのセルに現在時刻をリアルタイムで表示することができるのでしょうか?
NOW()だとシートを開いた時刻が表示されるだけなので
・・・・何か方法はあるのでしょうか?教えてください!

zap35 · Accepted Answer

１秒間隔でシート上の式を再計算させるマクロです。シートのどこかに =NOW() があれば時刻が更新されます。
シートを開いた時から自動で動きます。１秒間隔をもっと長くしたいならMacro1の「秒数はここで変える」の行を修正してください。

実行するには以下の３つのマクロをＶＢＥ画面の標準モジュールにペーストしてください。

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

zap35 · Answer

＃０２です。再計算をさせるため、マウス形状が一瞬変わるのは、とりあえずやむを得ないかもしれませんが、以下の対策で多少改善できると思います。

１）再計算の間隔を長くする（５秒など）
２）Macro1を以下に差し替える
　これは少しでも実行時間を短くするよう切りつめました。また再計算する範囲を限定しました。
　Worksheets("シート名").Range("F5").
のところに、シート名と=NOW()が指定しているセルを指定してみてください。（以下の例ではＦ５セル）

Sub Macro1()
    Worksheets("シート名").Range("F5").Calculate
    Application.OnTime Now + TimeValue("00:00:05"), "Macro1", TimeValue("00:00:10")
End Sub

tom0120 · Answer

http://www.sigoto.co.jp/excel/

やはり、できるようですね　(^^;

「VBA(マクロ)」プログラム。
は、使ったことあるのでしょうか?

多少、最初は、むずかしいと思いますが
なれれば、簡単です。

参考までに、「VBA(マクロ)」プログラム。
について、説明しているサイトがありましたので、
読んでみてください。

何度か読んでみないと、理解しにくいでしょうが、
かんばってください　(^^

tom0120 · Answer

できないと思います。

ただし、
理屈としては、NOW()を、連続的に、1秒ごとに、表示させれば、いいと思うので、

その「プログラム」を書くと、できるような気がします。

◆エクセルには、「VBAプログラム」の機能があります。
興味がありましたら、勉強してみるのもいいかと・・・

エクセルシートのセルに現在時刻表示

１秒間隔でシート上の式を再計算させるマクロです。

この回答への補足

＃０２です。

できないと思います。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング