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

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

シートのどこかに =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

＃０２です。

再計算をさせるため、マウス形状が一瞬変わるのは、とりあえずやむを得ないかもしれませんが、以下の対策で多少改善できると思います。

１）再計算の間隔を長くする（５秒など）
２）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

http://www.sigoto.co.jp/excel/

やはり、できるようですね　(^^;

「VBA(マクロ)」プログラム。
は、使ったことあるのでしょうか?

多少、最初は、むずかしいと思いますが
なれれば、簡単です。

参考までに、「VBA(マクロ)」プログラム。
について、説明しているサイトがありましたので、
読んでみてください。

何度か読んでみないと、理解しにくいでしょうが、
かんばってください　(^^

できないと思います。

ただし、
理屈としては、NOW()を、連続的に、1秒ごとに、表示させれば、いいと思うので、

その「プログラム」を書くと、できるような気がします。

◆エクセルには、「VBAプログラム」の機能があります。
興味がありましたら、勉強してみるのもいいかと・・・