エクセルで時間入力

エクセルで、マクロを使用してフォームボタンを押したら現在の時間を
セルに入力するにはどうしたらよいでしょうか？

No.3 回答者： imogasi 回答日時： 2008/07/22 22:08

>フォームボタンを押したら・・・

に、しなくても
時刻を入れるセル（範囲や列）が決まっているなら（下記例ではRange("d1:D10"））
シートのelectionChangeイベントに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("d1:D10")) Is Nothing Then
Target = Time()
End If
End Sub
で出来るのではないかな。セルをクリックだけで時刻が入る。

No.2 ベストアンサー 回答者： nayuta_lot 回答日時： 2008/07/22 21:35

マクロでやるなら、下記のような関数があります。

Now　 　　　‥現在の日付と時間を返す。
Time　　　　‥現在の時間を返す。

Hour(time)　‥引数timeから"時"を取り出す。
Minute(time)‥引数timeから"分"を取り出す。
Second(time)‥引数timeから"秒"を取り出す。

-------------------------------------------------------------
Sub time01()

ActiveCell.Value = "現在の日付と時刻 ： " & Now
ActiveCell.Offset(1, 0).Value = "現在の時刻 ： " & Time
ActiveCell.Offset(2, 0).Value = "ただいま " & Hour(Now) & "時です。"
ActiveCell.Offset(3, 0).Value = "ただいま " & Minute(Now) & "分です。"
ActiveCell.Offset(4, 0).Value = "ただいま " & Second(Now) & "秒です。"

End Sub

シートにボタンを置いて使うなら、ボタンにマクロを登録する。

フォームを使用するなら、フォーム上のボタンをダブルクリック
すると、コードを入力する画面が開くので

Private Sub CommandButton1_Click()　'‥ボタン１が押された時の処理
　　ここに記述します。　
End Sub

おわかりだと思いますが、ActiveCell～はCellsなり、Rangeなり適当
に変えてください。

No.1 回答者： koko88okok 回答日時： 2008/07/22 20:46

マクロを使わなくても「Ctrl」キーを押しながら「:」キーを押すと現在の時刻が入力されます。

「Ctrl＋;」では、今日の日付が入力されます。

この回答へのお礼

初歩的な質問に回答していただき、
ありがとうございました。

お礼日時：2008/07/22 21:20