通過公式更改單元格時的時間戳

我需要一種方法來爲通過公式更改其值的相鄰單元格加上時間戳。作爲一個例子，我使用this作爲一個例子，我需要在工作表1上與A1相鄰的單元格爲單元格值更改時的日期和時間添加時間戳。通過公式更改單元格時的時間戳

上面鏈接的示例在單元格值通過公式更改時啓動消息框（當工作表中的變量包含由於單元格更改而更改值的公式時，不會識別對單元格值的更改別處）。我不想要消息框，但我確實需要時間戳。

爲了簡單起見，我將在此鏈接的問題發佈說明，任何有關此特定問題的其他幫助表示讚賞。

在Sheet 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

來源

2017-04-03 Andy

更改MsgBox "Value Changed"到：

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

或任何timestamp format您需要

來源

2017-04-03 12:36:06 CallumDA

哇，感謝您的快速答覆。這工作完美。 – Andy

這可以修改以適應一系列的單元格，比如A1：A10？ – Andy

@Andy你需要將你以前的值保存在一個數組中 - 改變你現在使用的代碼並不是很難，但它肯定是不同的，你應該問一個新的問題。 :) – CallumDA

通過公式更改單元格時的時間戳

回答

相關問題