[[20040722173918]] 『入力日時の記録』(sato) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『入力日時の記録』(sato)

質問内容:

下記のように、A列に文字を入力した時点の日時をB列に自動で記録させたい
のですが、うまくいきません。。。

A      B

セルA1  2004/07/22 16:38

セルA2  2004/07/22 16:40

セルBに「if(A1="","",NOW())」と式を入れたところ、一行目は正常に日時を記録したので
すが、セルA2に文字を入れたところ、セルB1も同様に更新されていまいました(下記参照)。

A      B

セルA1  =if(A1="","",NOW())

セルA2  =if(A2="","",NOW())

↓↓↓↓↓↓↓↓↓↓↓

A      B

セルA1  2004/07/22 16:38

↓↓↓↓↓↓↓↓↓↓↓

A      B

セルA1  2004/07/22 16:40 ←ここは変更したくないのです。。。

セルA2  2004/07/22 16:40

何かよい方法はありますでしょうか?

[エクセルのバージョン]
Excel2003

[OSのバージョン]
Windows2000


 自動となるとマクロになるかと思いますが、こちらは専門家にお任せするとして、
ショートカット キーでの入力方法を出しておきます。
A1セル確定後【Tab】キーにてB1セルに移動させ、
Ctrl+; → (スペース)キー → Ctrl+: の順に入力して下さい。※+は、Ctrlと;(:)を一緒に打つの意
入力時の年月日 時間を打ち込めます。
その他にも、ショートカット キーで 楽々操作できますので 
 jun53さん作の 傑作(↓) をご覧下さい。  (sin) 
※今回は 【jun53 ショートカット】で検索 =これは覚えていました。。。

[[20040522205630]] 『エクセル:一般操作のショートカット』(jun53)


 専門家でもありませんが、
 シートの見出しを右クリック
 コードを表示させてそこに貼り付けます。
 で、どうでしょう?
(夏目雅子似)
 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> Range("A:A").Column Then Exit Sub
 If Target.Value = "" Then Exit Sub
 Target.Offset(, 1).Value = Now
 End Sub

ありがとうございました。
ショートカット勉強になりました。

コードに関して、貼付したところ問題なく動作致しました。
本当にありがとうございました(^0^)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.