Ｅｘｃｅｌで、日時を自動で表示したいのですが。。。

質問

エクセルで、あるセルに文字等を入力すると
そのセルの隣りのセルに、その時の日にちと時間を
自動で表示されるようにしたいのですが。。
どうすればいいのでしょうか？？？？
お願いします。教えて下さい！！

回答No.6

mu2011

ＮＯ３です。
誤った回答をしました、読み捨て下さい。

回答No.5

merlionXX

> Ｃ１セルに入力した文字をコピーを使用して、Ｃ２セルに貼り付けをすると、Ａ１セルに入っている日時も一緒に、Ａ２セルにコピーしてしまい、Ｃ列のコピーが使えません。。

？？？？
ひょっとして、その行全体をコピーしてませんか？
あるいはＡ1も含めてコピーしていませんか？
Ｃ1を単独でコピーしたのならそのような現象は起きないと思うのですが・・・・。

お礼

いつもいつもありがとうございます。。
また分からない事等ありましたら、よろしくお願いします。。

補足

確かに！！自宅のパソコンで試すと、その現象は起きません。。
でも会社のパソコンではそのようになるんですが。。

回答No.4

merlionXX

No3さんの方法だと、他のセルに何か入力しただけで、A列の時刻はその都度更新されてしまいますよ。再計算時にNOW関数が働くためです。入力（変更）時刻を保存しておくためにワークシート関数は使用できません。

回答No.3

mu2011

次の方法は如何でしょうか。
（１）Ａ列選択→セルの書式設定→表示形式タブの日付で日付・時刻形式を選択
（２）数式バーに=IF(C1<>"",NOW(),"")を設定→ｅｎｔｅｒ
尚、Ａ列セルが#####が表示された場合、列幅を拡げて下さい。

回答No.2

merlionXX

qtjgh105さん、おはようございます。

> C１セルに文字を入れるとA１セルに日時が入ったり、
> C１１９セルに文字を入れるとA１１９セルに日時が入るようにしたいのですが。

それでしたら、さっきのをちょっと変えればOKですよ。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Target.Offset(0, -2) = Now()
End Sub

これで、C列に入力があった場合、A列に日時が入ります。
お試しください。

お礼

ありがとうございました！！
大変参考になりました！！
また分からないことがあったときはどうぞ
よろしくお願いします。。

補足

上手くいったのですが
たとえば、Ｃ１セルに入力した文字をコピーを使用して、Ｃ２セルに貼り付けをすると、Ａ１セルに入っている日時も一緒に、Ａ２セルにコピーしてしまい、Ｃ列のコピーが使えません。。どうすればよいのでしょうか？？

回答No.1

merlionXX

エクセルのマクロで、チェンジイベントを利用すれば可能ですね。

たとえば、その「あるセル」がA1だった場合、以下の手順でやってみてください。

１．そうしたいシートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Offset(0, 1) = Now()
End Sub

'*****ここより上までをコピペ*****

３．Alt+F11キーでワークシートへもどります。

A1セルに入力してみてください。
B1に日時が入ります。

補足

確かにB１に日時が入りました！！

A列のセル全部に日時を入れたい時はどうするのでしょうか？？
例えば

C１セルに文字を入れるとA１セルに日時が入ったり、
C１１９セルに文字を入れるとA１１９セルに日時が入るようにしたいのですが。。