（エクセル）セルの記入時刻

質問

初めての投稿です。
エクセルを使っていて どうしても わからないので 質問します。

例えば）
.―――――――――――――――
｜記入項目｜----記入時間-----｜
｜――――――――――――――｜
｜何か記入｜記入したときの時間-｜
.―――――――――――――――
と 言うセルを 作りたいのですが 時間を表示する NOW等では 可変なので 時間が 固定できず。
他の関数では 他の数値を 時間にする等の機能なので思うような 時間にならないのです。

このような A1セルに文字を入力しエンターを押した時間をB1に記録できるような 関数、計算方法は 無いでしょうか？

回答No.3

imogasi · ベストアンサー

ＶＢＡでそれらしいのは（もっとも「まし」なのは）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Now()
End If
End Sub
Ａ列の値を変えると、同行のＢ列に日・時刻が入ります。
これは時間がたっても、再計算されて変わること、はありません。
関数式の設定の必要もありません。
ツール－マクロ－ＶＢＥ
ＰｒｏｊｅｃｔエクスプローラーのＳｈｅｅｔ１を
ダブルクリック。
（Ｇｅｎｅｒａｌ）でＷｏｒｋｓｈｅｅｔ、（Ｄｅｃｌａｒａｔｉｏｎ）でＣｈａｎｇｅを選び
上記３行をコピペすれば実験できます。

お礼

ありがとうございます。
こういった 回答を お待ちしていました。
ツールの使い方まで ありがとうございます。

補足

それで 実際実験してみたのですが。
いまいち 利用方法が わかりません 申し訳ありませんが ツールの使い方を もう少し 詳しくお願いします。

ツール－マクロ－ＶＢＥ
ＰｒｏｊｅｃｔエクスプローラーのＳｈｅｅｔ１を
ダブルクリック。で
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Now()
ここまでを コピーで いいのですよね？上記3行と ありますし。
それから この先 どのようにツールは使用するのでしょうか？

エクセルに戻って A列に試しに 「あ」 と 打ってみたところ なにやら エラーが出て １行目が 黄色に表示され それ以降 コピーしなおしても 5行全部 コピーしても 何の変化も 得られません すみませんが もう1度 おねがいします。

回答No.2

mu2011

後の回答の為にご質問させて頂きます。
記入した時間とは、どのような時間を想定されているのでしょうか。

因みにリアルタイム時間であれば、=IF(入力セル<>"",=NOW(),"")で時刻表示が可能です。

回答No.1

mshr1962

マクロを組めばできますが、手動でもCtrl+;で日付　Ctrl+:で時刻の入力が可能です。

また、メニューバーの「ツール」にある「ブックの共有」で
変更したセルに、時刻と変更内容がコメントのような形で表示されます。