[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力日時の記録』(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.