先ほどのエクセル自動更新日：連続入力しても反映されません。

質問

先ほどはありがとうございました。
ひとつ不具合が出ております。
D列にファイルオープン連続入力しても初回入力だけが有効となり、連続入力できません。
一度、ファイルを閉じて開くと新たに1度だけ作動します。
連続入力しても反映させる方法はないでしょうか？
ぜひともお教えください。

●質問者:
aty

●質問タイトル:
エクセル　セルデーター変更の自動更新日入力

●質問内容:
過去に質問がありましたが分らないので教えてください。
私の場合は、D列にのセルが変更されるとA列に更新日が自動で入力されるように
したいのですが、恐れ入りますがお教えください。
因みに行は500行あります。

...

●回答者:
Wendy02

●回答内容:
こんにちは。
コメントを入れておきましたので、読んでみてください。多少、自分の思ったよ
うに直せるはずです。

入力するシートのシートタブを右クリックすると、[コードの表示]というのがあ
りますから、それをクリ...

詳しくはこちら → http://oshiete1.goo.ne.jp/kotaeru.php3?qid=1468055

回答No.1

Wendy02 · ベストアンサー

このようにしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim myRow As Long
　With Target
　　If IsEmpty(Target) Then Exit Sub
　　If .Count > 1 Then Exit Sub
　　If .Column <> 4 Then Exit Sub
　　　　myRow = .Row
　　If myRow > 500 Then Exit Sub
　　Application.EnableEvents = False　'←ここの位置にする。
　　Cells(myRow, 1).Value = Format$(Date, "mm/dd")
　　Application.EnableEvents = True　'←ここの位置にする。
　End With
End Sub

お礼

度々ありがとうございました。
連続入力できました。
全て解決しました。