エクセルでの現在時刻入力

Question

簡潔に。
エクセル（2002.SP3）で現在時刻を入力するのに
「Ctrl」+「*」で入力できるかと思いますが
「分」までしかデータがありません。
「秒」の単位まで簡単に入力したいのですが
いい方法ありますでしょうか？
え～残念ながら今手元に解説本も何もない状態です。
くわしくご親切なかた　オネガイシマス。

korutorein · Accepted Answer

TIME関数を使えばよいと思います。

　　　　　↓

参考URL：http://t_shun.at.infoseek.co.jp/My_Page/KansuuManual/kansuu_page_5.htm#Ⅴ－5

harukabcde · Answer

harukaです

いかがでしょうか。
補足みましたが、イマイチ状況がわからず。
でも、なんとなく、私の直後にお答えくださった
Wendy02 さんので、解決に向かっているような気がします。

＃６は即興で作成したので、
これよりは、＃８方式の方がいいですよ。

goomania · Answer

>エクセル（2002.SP3）で現在時刻を入力するのに
>「Ctrl」+「*」で入力できるかと思いますが
>「分」までしかデータがありません。
殆どの回答者の方がEXCELによる解決策を述べておられますので、
ご質問者の本来の質問の主旨に戻って、

>「秒」の単位まで簡単に入力したい

に何か他に方法が無いか考えてみたところ、以前仕事で使っていた
クリップボードに拡張機能を付加するフリーソフトがあったことを
思い出しました。

そこで似たようなものがないか検索してみたところ以下のＵＲＬで
「Charu3」というソフトを見つけました。
このソフトを起動し、常駐させておけば、EXCELのワークシートに
現在時刻を入力できます。
（現在時刻がクリップボードに取込まれ貼付け可能になる）
これをキー操作で簡単に行うために設定が必要です。
常駐させた状態でアイコンを左クリックして以下のように操作します。

１．表示されたメニューの「チュートリアル」から
　　「２．マクロ機能」→「時間マクロ」をシンクルクリック
２．「時間マクロ」が反転している状態で右クリック
３．表示されたメニューから「プロパティ(Ｒ)」をクリック
４．テキスト編集画面にサンプルが表示されるので
　　「時間も貼り付けられます。」の文言と改行をを削除
５．拡張マクロテンプレートで「ホットキー」を選択し、
　　拡張マクロウィンドウに「HotKey=」と表示されるのを確認
６．HotKey=のあとに実際に時刻を入力するときに使用する
　　ショートカットキーを書き込む
　　例えば「HotKey=ctrl+shift+t」などと記述する。

上記手続きのあと、EXCELを起動してセルを一つクリックし、
「Ctrl」+「Shift」+「T」を押してみてください。
キーを押した時刻が秒まで入力されたと思います。

>「Ctrl」+「*」で入力できるかと思いますが

に一番近いと思いますがどうでしょうか。

参考URL：http://keiziweb.com/software.html

Wendy02 · Answer

kansaiheartさん、

＞コントロール機能を用いれば一日に繰り返される小分類（おそらく数百～１０００以上）の数だけコントロールを作成しないといけないのかな？

はっきりと、イメージが湧いたわけではありませんが、私の　#7のマクロは、そういう内容には、あまり向かないです。私のは、ワークシート外に記録を取っていますので、数をこなすことができません。一人の人が、１つのブックで、1日～数日の仕事の最初と最後の時間の差を取るような行為に向いています。

短期の時間で、数を多く必要な場合は、harukabcdeさんの#6 のようなものが良いと思います。

以下のような、単純なものがよいと思います。

以下は、記録をつけるシートモジュールのみに、有効です。2行目から書き込んでいきます。 
'----------------------------------------------------------
Private Sub CommandButton1_Click()
　'Start
　Range("A65536").End(xlUp).Offset(1).Value = Format(Now, "hh:mm:ss")
End Sub

Private Sub CommandButton2_Click()
　'Finish
　Range("B65536").End(xlUp).Offset(1).Value = Format(Now, "hh:mm:ss")
End Sub

'----------------------------------------------------------
'シートに記録が一杯になっていくようでしたら、以下のクリックすれば、ボタンが画面といっしょについてきます。
'同じくシートモジュールです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　WinTop = ActiveWindow.VisibleRange.Top
　　CommandButton1.Top = WinTop + 3
　　CommandButton2.Top = WinTop + 3
End Sub
'----------------------------------------------------------

Wendy02 · Answer

マクロのタイムラグの精度の問題もありますが、ここでは秒まで出ますので、問題はないと思います。

まず、コマンドボタンを２つ用意して、StartUp と、FinishTime　を登録してください。
今回のコマンドボタンは、フォームで作ったほうが簡単です。このマクロは、一旦、Excelを終えても、記録を測ってくれます。ただし、StartUpからの所要時間です。

[標準モジュール]に登録するのが適切です。
このマクロを使うためには、最初にカスタム・ドキュメント・プロパティに登録が必要です。

'--------------------------------------------
Sub プロパティ登録()
'要登録
Dim 記録時間 As Double
　　記録時間 = Now
　 With ThisWorkbook.CustomDocumentProperties
　　　　　　.Add Name:="記録時間", _
　　　　　　LinkToContent:=False, _
　　　　　　Type:=msoPropertyTypeString, _
　　　　　　Value:=記録時間
　　End With
End Sub
'これを削除する場合は、ワークシートのファイル－プロパティ－カスタム
'ユーザー設定から、記録時間の所を削除してください。
'--------------------------------------------

Sub StartUp()
　'開始時間記録
　 On Error GoTo ErrMsg
　 ThisWorkbook.CustomDocumentProperties("記録時間").Value = Now
ErrMsg:
　 If Err > 0 Then
　　　MsgBox "最初に、プロパティの登録をしてください。"
　 Else
　　　MsgBox "時間を記録しました"
　　End If
End Sub
'メッセージボックス(MsgBox)の代わりに、セルに書き出しても可能です。
'例: Sheet1.Range("D1").Value _ 
     = ThisWorkbook.CustomDocumentProperties("記録時間").Value

Sub FinishTime()
　'終了時間
　 Dim CDP As String
　 Dim myDate As Date
　 Dim myHour As Date
　 Dim DifferenceTime As Double
　 CDP = ThisWorkbook.CustomDocumentProperties("記録時間")
　 myDate = DateValue(CDP)
　 myHour = TimeValue(CDP)
　 If Date >= myDate Then
　　DifferenceTime = Now - CDbl(CDate(CDP))
　　msg = Application.Evaluate("TEXT(" & DifferenceTime & ",""[hh]:mm:ss"")")
　　Else
　　msg = "設定時間が取れません。"
　 End If
　 MsgBox msg
End Sub

'メッセージボックス(MsgBox)の代わりに、セルに書き出しても良いと思います。
'例: Sheet1.Range("D2").Value = msg

harukabcde · Answer

間違えた！

こっちです

Sub Macro1()
    With Range("a1")
        .Value = Now()
        .NumberFormatLocal = "h:mm:ss"
    End With
End Sub
Sub Macro2()
    With Range("a2")
        .Value = Now()
        .NumberFormatLocal = "h:mm:ss"
    End With
End Sub

マクロの設定や、
マクロをボタンに登録する方法は大丈夫ですか？

harukabcde · Answer

じゃぁ、やっぱマクロかなぁ

Sub Macro1()
    With Range("a1")
        .Value = "=NOW()"
        .NumberFormatLocal = "h:mm:ss"
    End With
End Sub


Sub Macro2()
    With Range("a2")
        .Value = "=NOW()"
        .NumberFormatLocal = "h:mm:ss"
    End With
End Sub



開始と終了用にボタンを２つ用意して、
それを押すとか。

harukabcde · Answer

＃３

・ある業務の所要時間を測定したい。
・該当業務の開始時刻をすばやく入力
・同、終了時刻を入力
・両者の差をとって所要時間とする。

入力規則を2箇所（開始用と終了用）に作成して
その下に引き算の関数を入れれば所要時間が出ると思います

まだ何かあるのですか？

harukabcde · Answer

＃２です
使い方を詳しく書けば良かったですかね


どのセルを使いたいか不明ですが
Ａ１に
=now()
と入力
（これは、単に現在時刻を取得するためだけです）

実際に使用するセルへ
データ－入力規則
リスト
で、
元の値に
=A1
と入力します

すると、
B1がリスト形式になり、リストを選択するたびに
現在時刻now値が入ります。

表示駅式を
hh:mm:ss
にすれば、現在時刻が表示されます。


余談ですが、
A1は
=today()
も使えます

harukabcde · Answer

=now()

エクセルでの現在時刻入力

TIME関数を使えばよいと思います。

この回答への補足

harukaです

>エクセル（2002.SP3）で現在時刻を入力するのに

kansaiheartさん、

マクロのタイムラグの精度の問題もありますが、ここでは秒まで出ますので、問題はないと思います。

間違えた！

この回答への補足

じゃぁ、やっぱマクロかなぁ

＃３

この回答への補足

＃２です

この回答への補足

=now()

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

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

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

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

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