セルの日付を更新するにはどうすればいいですか？特定のセルが変更されている場合のみ

Question

セルデータが変更されると、日付が更新されます。ブックの内容を更新すると、セルの内容が変更されていなくても、日付が更新されます。

セルの内容を変更した場合にのみ、日付を更新する必要があります。私はCSVファイルから自分のデータを引き出していますので、いつも毎回更新する必要があります。これを回避するにはどのようにして、セルが本当に変更された日付だけを表示するのですか？

私は現時点でこのような公開機能を設定していますが、機能しません。

Public Function worksheetChange(ByVal Target As Range) 

If Not Application.Intersect(Target, [D4]) Is Nothing Then [L4] = Date 

End Function 

私はワークシートをリフレッシュし、私はセルを変更していない場合でも、それはまだ私がこの問題を回避んどのように、日付を更新？

編集：私はこのタイプのVBAコードを思いつきましたが、それをどう動かすかはわかりません。後知恵で

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Application.Intersect(Target, [D4]) Is Nothing Then 
If Not ActiveWorkbook.RefreshAll Then [L4] = Date 

End Sub 

は、このコードは、アプリケーションが交差しない場合はブックが更新されないならば、今日の日付としても、更新L4をD4を取っていることを意味します。

ありがとうございます。

Answer 1

は、参照してくださいlink

Dim oldValue 

Public Sub Worksheet_SelectionChange(ByVal Target As Range) 
    oldValue = Target.Worksheet.Range("D4").Value 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Target.Worksheet.Range("D4")) Is Nothing Then 
     If oldValue <> Target.Worksheet.Range("D4").Value Then 
     Target.Worksheet.Range("L4").Value = Date 
     End If 
    End If 
End Sub