エクセルのセルに時計表示するには？

Question

パソコンのシステム時計を使って、エクセルの1つのセルにリアルタイムに時刻を表示させる方法を教えてください。
システム時計でなくても、インターネットから標準時を取り込む方法でも良いと思います。
リアルタイムの時刻をエクセルのデータのひとつとして使いたいのです。
よろしくお願いします。

e0_0e_OK · Answer

リアルタイムというのは常時電光時計のように時を刻むということですか。

そうでなくて、現在時刻を表示入力しようということでしたら「Ctrl + :」です。なお、「Ctrl + ;」では日付が出ます。
:　,　;　が見にくいですが、コロンとセミコロンです

mu2011 · Answer

期待値と相違していれば無視して下さい。
=NOW()関数でリアルな日付時間（yyyy/mm/dd hh:mm)が取得できますので、表示形式をhh:mm:ssにすれば時分秒で表示されます。（F9で随時更新されます）

lavieLL700 · Answer

勘違いでしたら読み流してください

挿入メニューから、【関数】で関数の貼り付けメニューが出ますので、関数の分類【日付/時刻】を選択、関数名で【NOW】を選択→OK
さらに関数を挿入したセルを選択して右クリック→セルの書式設定から、表示形式タブ【時刻】を選択　【種類】はお好きなように。

F9または他のセルに入力後確定（Enter)で時刻が変わります

pippiiiii · Answer

セルに　=NOW()
と入力するだけで
日付と時刻がリアルタイムで表示するようになります。

imogasi · Answer

関数では
=TEXT(NOW(),"ggg.e年mm月.dd日hh時mm分ss秒")
というところでしょうか。
ただF9を押さないと現在時刻に更新されません。
即時（的）に（1分１秒単位で）更新させるには、エクセルVBAレベルで組むのは難しいのではないかと思います。
あとはフリーソフトやアドインを見つけるとか。
取得できる単位の問題
http://www.happy2-island.com/excelsmile/smile04/capter00304.shtml
ある時点からXX秒後に一回起動などならできる（Timerなど）が、永久にXX秒ごとに割り込みを掛けて何か（この場合は時刻表示）をするのは、一段高いスキルがいるように思う。

lilact · Answer

エクセルでは、デジタル時計のように、何もしなくても自動的に時間表示が変わるということはできないですね。
ただ、「=now()」を埋め込んだセルを参照した計算をする場合、表示が過去の時間になっていても計算を実行した時間を参照して計算しますから使えるとは思います。同時に時間表示も更新されます。
マクロに埋め込むこともできますし、どのような計算をするかを書かれると、回答しやすいかと思います。

Wendy02 · Answer

kinseiさん、こんばんは。

お話の要点が見えないので、少し、様子を見させていただきました。

#6さんの
＞エクセルでは、デジタル時計のように、何もしなくても自動的に時間表示が変わるということはできないですね。

いくつか方法はあります。本来は、VBでは標準的なのに、VBAでは、どうやるのか、探してみましたが、出てきませんでしたし、私が出来ても、該当するActiveX コントロールを持っていない人には使えません。

（問題ある場合は、また、負担の少ない方法を考え直します。ただし、明日は、すぐにお答えできないですが、私でなくても、それが、できる方がここにはいらっしゃいます。）

また、「インターネットから標準時を取り込む方法でも良いと思います」というのは、一回、システム時計を修正するだけのマクロになってしまいます。サーバー経由ですので、若干、cmd.exe /c のコプロからExcelのワークシートに戻ってくるまでのタイムラグが生じて、繰り返しするにはロスが出てしまいます。やはり、システム時計を使わないと、うまくいきません。

シートにコントロールツールのボタンを二つ用意してください。
ここでは、シート1 にボタンを取り付けるとします。
'-------------------------------------------------
Private Sub CommandButton1_Click()
　'スタートボタン
　 Call TimerRefresh
End Sub

Private Sub CommandButton2_Click()
　'終了ボタン
　 Call TimerStop
　 Beep
End Sub

'-------------------------------------------------

標準モジュールには以下のようにしてください。
'------------------------------------------------
Private myOnTime As Date
Sub TimerRefresh()
　'シート1 のA1に表示が出ます。
　Sheet1.Cells(1, 1).Value = Format$(Time(), "h:nn:ss")
　myOnTime = Now + TimeSerial(0, 0, 1)　'1秒単位
　DoEvents
　Application.OnTime myOnTime, "TimerRefresh"
End Sub

Sub TimerStop()
　 Application.OnTime myOnTime, "TimerRefresh", , False
End Sub

若干、VBAメソッドですから、多少の、負荷・負担があります。他にも方法があります。

Wendy02 · Answer

こんばんは。Wendy02です。

ボタンの取り付け方:

メニューの何もないところで、右クリック－コントロールツールボックス
　とすると、
コントロールツールバーが出てきます。

次に、□（長方形）のボタンをクリック

ワークシートにマウスを移すと、マウスカーソルが、＋　になります。

それで、斜めにドラッグすれば、ボタンが出来上がります。

それをもう一度行ってください。

そうしたら、そのボタンを右クリック－[コードの表示]

で、そのまま、

　Private Sub CommandButton1_Click()
　'ココ
　End Sub

というのが、出来上がりますので、そこに、Call TimerRefresh を入れ、

Private Sub CommandButton2_Click()
 'ココ
End Sub
 
に、 
Call TimerStop
Beep

を入れ、今度は、現在のVisual Basic Editor 画面のまま、メニューから　挿入－標準モジュールをクリック

今度は、標準モジュール側のコードを貼り付けます。

貼り付けたら、Alt キーを押しながら、Q （または、ファイル(F)-終了してExcelへ戻る）

まだ、コントロールツールバーが出ていたら、青い三角定規のコマンドボタンが凹んでいたら、クリックして、元に戻します。
（ただ、もし、シート上のコマンドボタンの名前などを変える場合は、右クリックして、コマンドボタンオブジェクトから、名前を変更してから、青い三角定規のコマンドボタンをクリックします。）

そして、メニューの何もないところで、右クリック－コントロールツールボックスをクリックして、ツールバーを消します。

＞多少時間がかかるかも知れませんが、

時間さえ掛ければ、これは何とかなりますし、より良いものが得られると思います。なお、時間表示中にも入力は可能であることを前提として考えています。

コードを取り付ける方法は、いくつかのサイトでは、スクリーン・キャプチャで取った画面の絵で説明出ているものがあるかと思います。

Wendy02 · Answer

こんばんは。Wendy02です。

＞ついでにお聞きしたいのですが、最終的には、
＞この時計をA1のセルに表示させ、通過車両台数の計数値をA2のセルに表示させながら、
＞これができるまでの道のりはまだまだ遠いのでしょうか？ 

ちょっと考えさせてください。（今日は、ちょっと無理ですが、より良いものを考えます。もともと、私が、この問題は、ずっと前から手がけていた内容なのです。このご質問が、もし私の考えたものと合えばと思って、それで様子をみていたのです。Visual Basic　カテゴリでは、回答の反応自体がありませんでした。久々の名作？（迷作）だと思ったのですが。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1721584
コンセプトは同じですが、こちらよりも、はるかにむつかしい内容です。）

＞私が初心者でかつ十分には時間が取れていないので、レスポンスが遅くなってし
＞まうと思います。

それは構いません。やりながら、学べばよいです。入門編ぐらいは、1ヶ月ぐらいで卒業できますから。それから、私は、VBAを使って、自分の発言を画面から取得しリスト化して、気になるものは、すぐに開けられるようにしてあります。どんなに、時が経っても、こちらが、もうダメと判断しなければ、リストには残ります。（言葉よりもずっとすごいです。（^^;）

それから、お礼側に返事をつけたものに関しては、メールが届きますので分ります。時間的なものは気にしなくてよいです。また、つけなくても、1ヶ月先でも、2ヶ月先でも、今は、十分にチェックできます。

＞ネット上のどこを見れば参考にできるのか、そのページを教えていただけるとあ
＞りがたいと思っています。

このご質問の件に関しては、たぶん、どこにも出てこないかもしれません。私の勧めるところは、今は、Microsoft のMSDNぐらいしかありません。

Wendy02 · Answer

こんばんは。Wendy02です。
やっと、出来ました。二つのものを考えてみました。どうしても、気が乗らないと作れない種類のものです。

最初に紹介したものと同じパターンのものと、二重線から下のコードは、APIを使ったもので、私には、多少不安定要素が含まれるような気がします。ただ、時間の書き込み中に占有されません。

なお、時間表示は、ストップウォッチになっています。


表示レイアウト
　A　　　　B　　 C　　　　　ボタン1
0:01:24　　　　 30
45　　　　　　　 5
　　　　　　　　10　　　　　ボタン2
　　　　　　　　 0


'シートモジュール
'-------------------------------------
Private Sub CommandButton1_Click()
　Range("A1").NumberFormatLocal = "h:mm:ss"
　Range("A1").Value = 0
　myStartTime = TimeValue(Now)
　CommandButton1.Enabled = False
　Call TimerRefresh
End Sub

Private Sub CommandButton2_Click()
　Call TimerRefrshStop
　CommandButton1.Enabled = True
End Sub

'標準モジュール
'------------------------------------------------------
Private myOnTime As Date
Private lngCount As Long
Public myStartTime As Date
Sub TimerRefresh()
　Dim TimeDifference As Date
　'掲示板に出したもの
　'A1に表示が出ます。
　TimeDifference = Format$(Time() - myStartTime, "h:nn:ss")
　Cells(1, 1).Value = TimeDifference
　myOnTime = Now + TimeSerial(0, 0, 1) '1秒単位
　DoEvents
　Application.OnTime myOnTime, "TimerRefresh"
　If　 Second(TimeDifference) = 0 Then
　　　 If Range("C65536").End(xlUp) = 0 Then
　　　 Range("C65536").End(xlUp) = Range("A2").Value - lngCount
　　　 Else
　　　 Range("C65536").End(xlUp).Offset(1).Value = Range("A2").Value - lngCount
　　　 End If
　　　 lngCount = Range("A2").Value
　End If
End Sub

Sub TimerRefrshStop()
　 On Error Resume Next
　 Application.OnTime myOnTime, "TimerRefresh", , False
　 lngCount = 0
　 myStartTime = 0
End Sub

'------------------------------------------------------

'==========================================================
'以下は、同じモジュールには登録はしてはいけません。
'単独のモジュールです。なるべく、他のブックといっしょには用いないでください。

'シートモジュール
'---------------------------------------------------------
Private Sub CommandButton1_Click()
　'スタートボタン
　 Call StartTimer
　 CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
　'終了ボタン
　 Call TimerStop
　 CommandButton1.Enabled = True
End Sub

'標準モジュール
'-------------------------------------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function SetTimer Lib "user32" (ByVal Hwnd As Long, ByVal nIDEvent As Long _
　　, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Sub KillTimer Lib "user32" (ByVal Hwnd As Long, ByVal nIDEvent As Long)

Private lngTimerID As Long
Private myCell As Range
Private lngStartTime As Long
Private lngStock As Long
Sub StartTimer()
　　Dim lngInterval As Long
　　lngInterval = 1000
　　Set myCell = Range("A1")
　　myCell.NumberFormatLocal = "h:mm:ss"
　　Range("A1").Value = 0
　　lngStartTime = GetTickCount()
　　lngTimerID = SetTimer(0&, 0&, lngInterval, AddressOf s_Timer)
End Sub

Sub s_Timer(ByVal Hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
　　Dim dblTime As Double
　　dblTime = (GetTickCount() - lngStartTime) / (60& * 60 * 24 * 1000)
　　On Error Resume Next
　　myCell.Value2 = dblTime
　　If Second(dblTime) Mod 20 = 0 Or Second(dblTime) = 0 Then
　　　 If Range("C65536").End(xlUp) = 0 Then
　　　 Range("C65536").End(xlUp) = Range("A2").Value - lngStock
　　　 Else
　　　 Range("C65536").End(xlUp).Offset(1).Value = Range("A2").Value - lngStock
　　　 End If
　　　 lngStock = Range("A2").Value
　　End If
End Sub

Sub TimerStop()
　　KillTimer 0&, lngTimerID
　　Set myCell = Nothing
　　lngStock = 0
End Sub

エクセルのセルに時計表示するには？

リアルタイムというのは常時電光時計のように時を刻むということですか。

この回答への補足

期待値と相違していれば無視して下さい。

勘違いでしたら読み流してください

セルに =NOW()

関数では

エクセルでは、デジタル時計のように、何もしなくても自動的に時間表示が変わるということはできないですね。

この回答への補足

kinseiさん、こんばんは。

こんばんは。

こんばんは。

こんばんは。

この回答への補足

似たような質問が見つかりました

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

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

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

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

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

セルに　=NOW()