EXELでセルに入力した年月日時刻を記録する方法

質問

こんにちは。教えてください。電話・FAXの一覧表を作成するのですが，しばしば変更になるため，そこに入力されている番号が，いつ入力されたものか（いつの時点での情報なのか）が分かるように，その入力年月日時刻を表示したいです。下記のQ&Aをみて，その回答通りのことはできるのですが，自分が作りたい表に置き換えた場合，どこをどういじればよいのか分かりません。ご教示いただけましたら幸いです。
私が作りたい表は，B列に会社名，Ｃ列に部署名，Ｄ列に担当者名，E列に電話番号，F列にFAX番号を入力する形式で，２行目に項目欄を設け，３行目から本文になります（行数はどんどん増えていきます）。で，Ｂ列を変更した場合には，同じ行のＧ列にその変更年月日時刻を，Ｃ列を変更した場合には同じ行のＨ列にその変更年月日時刻を，Ｄ列を変更した場合には同じ行のＩ列にその変更年月日時刻を，Ｅ列を変更した場合には同じ行のＪ列にその変更年月日時刻を，Ｆ列を変更した場合には同じ行のＫ列にその変更年月日時刻を，自動的に表示するようにしたいです。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1219065417

回答No.1

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("B:F"))
　　h.offset(0, 5) = now
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ｂ：Ｆ列に記入する。
Ｇ：Ｋ列は事前に適切にセルの表示形式を設定しておく

＃簡単のため「３行目以下に」の部分は省略しています

＃通常，ご相談の用途では「データを削除した」場合は処理をスキップするような手当をしておく事が多いですが，今回はデータ消去も変更として記録します。

お礼

早々にありがとうございます。うまくいきました。ありがとうございます。また関連したご質問をさせていただくこともあるかも知れませんが，今後ともよろしくお願いします。

補足

すみません。
Ｂ列の会社名の前のＡ列に通し番号を入力することになりそうなのですが，現状でそれをしますと，Ｆ列にＡ列への入力年月日時刻が表示され，もともと入力されていたＦ列のファックス番号が消えてしまいます。セルに入力した年月日時刻を記録する対象を，Ｂ列からＦ列にする（Ａ列の入力年月日時刻は表示しないようにする）には，どのようなコードにしたら宜しいでしょうか。
また，Ａ列の通し番号の前に更にもう一列設ける必要が出てきた場合，Ａ列の左に列を挿入すると，現状のＡ列がＢ列に，現状のＢ列がＣ列に・・・，現状のＦ列がＧ列になりますが，その状態で，セルに入力した年月日時刻を記録する対象を，Ｃ列からＧ列にするには，どのようなコードにしたら宜しいでしょうか。
最後に，Ｂ列とＣ列の間に，入力年月日時刻を記録・表示する必要のない「会社のひらがな読み」を入力する列を設けることになった場合，Ｂ列とＣ列の間に一列挿入して，現状のＢ列はＢ列のまま，現状のＣ列はＤ列になりますが，その状態で，セルに入力した年月日時刻を記録する対象を，Ｂ列と（Ｃ列を飛ばして）Ｄ列からＧ列にするには，どのようなコードにしたら宜しいでしょうか。

回答No.3

keithin

はて？

捕捉のご質問を頂きましたが，
＞Ｆ列にＡ列への入力年月日時刻が表示され，
＞もともと入力されていたＦ列のファックス番号が消えてしまいます。

回答したマクロではそのようなことは起こりません。

＞Ｂ列からＦ列にする（Ａ列の入力年月日時刻は表示しないようにする）には，
＞どのようなコードにしたら宜しいでしょうか。

最初からそのように回答していますが，いったいどういう事でしょうか？ご回答をお願いします。

キチンと回答を試してみて，上手くいかない所があれば具体的に状況を添えて追加ご質問ください。

＞Ｃ列からＧ列にするには，

コードを見れば一目瞭然ですが。

変更前：
for each h in application.intersect(target, range("B:F"))

変更後：
for each h in application.intersect(target, range("C:G"))

とするだけです。

＞Ｂ列と（Ｃ列を飛ばして）Ｄ列からＧ列にするには

変更後：
for each h in application.intersect(target, range("B:B,D:G"))

とします。

お礼

ありがとうございます。一点目の補足質問は，自分で色々いじっているうちに混同してしまったようです。教えていただいたコマンドをあらためて入力したところ，補足質問に記載したような現象はおこりませんでした。失礼しました。ほかの２点の補足質問にもご回答いただきありがとうございました。

回答No.2

KURUMITO

参考としているマクロのコードを次のようにすればよいでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Column > 6 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 5) = Now
Application.EnableEvents = True
End Sub

なおG列からJ列には#####のような表示になりますが十分に列幅を広げればよいでしょう。

お礼

削除の場合はスキップされるところまで対応したものをご教示いただきありがとうございました。うまくいきました。また関連したご質問をさせていただくこともあるかも知れませんが，今後ともよろしくお願いします。

補足

すみません。
Ｂ列の会社名の前のＡ列に通し番号を入力することになりそうなのですが，現状でそれをしますと，Ｆ列にＡ列への入力年月日時刻が表示され，もともと入力されていたＦ列のファックス番号が消えてしまいます。セルに入力した年月日時刻を記録する対象を，Ｂ列からＦ列にする（Ａ列の入力年月日時刻は表示しないようにする）には，どのようなコードにしたら宜しいでしょうか。
また，Ａ列の通し番号の前に更にもう一列設ける必要が出てきた場合，Ａ列の左に列を挿入すると，現状のＡ列がＢ列に，現状のＢ列がＣ列に・・・，現状のＦ列がＧ列になりますが，その状態で，セルに入力した年月日時刻を記録する対象を，Ｃ列からＧ列にするには，どのようなコードにしたら宜しいでしょうか。
最後に，Ｂ列とＣ列の間に，入力年月日時刻を記録・表示する必要のない「会社のひらがな読み」を入力する列を設けることになった場合，Ｂ列とＣ列の間に一列挿入して，現状のＢ列はＢ列のまま，現状のＣ列はＤ列になりますが，その状態で，セルに入力した年月日時刻を記録する対象を，Ｂ列と（Ｃ列を飛ばして）Ｄ列からＧ列にするには，どのようなコードにしたら宜しいでしょうか。