[[20061105013955]]　『セルに入力した時間を表示させる方法』（ゆき）　ページの最後に飛ぶ

『セルに入力した時間を表示させる方法』（ゆき）
はじめまして、ゆきと言います。
こんな事って出来るのでしょうか？
例えば、Ａ１に数字または文字を入力したときＢ１に、入力した日付と時間を記録させて、いつ入力したデータなのか表示させる方法ってありますか？
すみません、よろしくお願いします。

 方法はありまっせぇ。
 そのシートタブを右クリックしてコード表示を選択し、下のコードをコピペします。
 戻ってA1に何か入力してみておくんなはれ。
 どうでっか、かういう事でっか？
 　　　　　　（弥太郎）
 '-----------------
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Target.Offset(, 1) = Now

 End Sub

弥太郎様へ、ありがとぉ～＾＾
こんなのが欲しかったのよね。
やっぱりマクロになっちゃうのよね～＞＜
もう少し教えてください。
少し質問が悪かったですね。
Ａ列に入力して、同行のＦ列に表示するには、どうすればよいでしょうか？
よろしくお願いします。（ゆき）

 Target.Offset(,1) を
 Target.Offset(,5)
 (seiya)

 もうひとつ

    If Target.Address(0, 0) <> "A1" Then Exit Sub を
    If Target.Column <> 1 Then Exit Sub

 それと、複数セルを一度に入力するケースがあるなら

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim r As Range
 If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
 Application.EnableEvents = False
 For Each r In Intersect(Target, Range("a:a"))
    If Not IsEmpty(r) Then r.Offset(,5).Value = Now
 Next
 Application.EnableEvents = True
 End Sub
 (seiya)

seiyaさま本当にありがとうございました。もう一つ聞いてもよろしいでしょうか。日付をnowとすると何時何分何秒まで表示されてしまいます。年月日だけ表示する方法はどうすればよいでしょうか?

 Now -> Date に変更してください
 (seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20061105013955]] 『セルに入力した時間を表示させる方法』（ゆき） ページの最後に飛ぶ

[[20061105013955]]　『セルに入力した時間を表示させる方法』（ゆき）　ページの最後に飛ぶ