数式でセルを変更したときのタイムスタンプ（Excel）

Question

数式で値が変化する隣接セルにタイムスタンプを付ける方法が必要です。例としてthisを使用すると、セルの値が変更された日時をタイムスタンプするために、シート1にA1に隣接するセルが必要です。

上記の例では、セル値が式によって変更されたときにメッセージボックスが表示されます（セル変更のために値が変更される数式が含まれていると、他の場所）。私はメッセージボックスを望んでいないが、私はタイムスタンプが欲しい。

簡単にするために、私はこのリンクされた質問の指示をここに掲載します。この特定の質問の追加ヘルプは高く評価されます。シート1のセルA1に

、このコードを貼り付けモジュールで今

=Sheet2!A1+1 

この式を置く

Public PrevVal As Variant 

Private Sub Worksheet_Calculate() 
    If Range("A1").Value <> PrevVal Then 
     MsgBox "Value Changed" 
     PrevVal = Range("A1").Value 
    End If 
End Sub 

そして最後にシートコード領域にこれを貼り付けThisWorkbookコード領域にこのコードを貼り付けます

Private Sub Workbook_Open() 
    PrevVal = Sheet1.Range("A1").Value 
End Sub 

Answer 1

変更MsgBox "Value Changed"へ：

Range("B1").Value = Format(Now, "dd/mm/yyyy hh:mm:ss") 

またはどちらtimestamp formatあなたは、すごい速い応答のための感謝を