Excel（2003） - セルに自動挿入日付

Question

これはプログラミングに関する質問ではありませんが、私はあなたの誰かが簡単にこれを手伝ってくれると確信しています。

Excelの中に自動的に「日付を挿入」機能を作成しようとしています。つまり、ある人が自分のExcel文書の行にデータを入力すると、別のセルに挿入日が自動的に表示されます。

私は日付を表示しようとしていますセルの内部立ち、私は次のように書いている：私は一日の後にそれを開くまで

=IF(ISBLANK(C20);1;TODAY()) 

これは、素晴らしい作品。明らかに、日付は「今日」に設定されますが、挿入時に1回だけ更新したい場合はどうすればよいですか？

このようなことを考える（Java - 擬似）。

ここで、Excelでそれを行う方法は？

ありがとうございます。

Answer 1

あなたは右のあなたのシートタブ

表示]をクリックしますWorksheet_Changeイベント

1. を使用します - コード
2. コピーして

以下のコードを貼り付け、このコード

• トラックとcoluへの変更Activesheet
のMN C列Dに対応する各セルに現在のデータとユーザログオン名で
• プット

Set rng1 = Intersect(Range("C:C"), Target)

はApplication.EnableEvents = Falseこの行で指定されるようにのみ変更コラムC細胞が捕捉されていますシートをログ）おそらく隠された（別のへの書き込み）D列が

に書き込みを行っているときは、簡単に
1にこれを適応させる可能性が再焼成コードを停止するために使用される
2）は、テキストファイルに書き込む代わりに

Plsはあなたがすべての更新

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rng1 As Range 
Set rng1 = Intersect(Range("C:C"), Target) 
If rng1 Is Nothing Then Exit Sub 
Application.EnableEvents = False 
rng1.Offset(0, 1).Value = Now() & " - " & Environ("username") 
Application.EnableEvents = True 
End Sub