上次修改工作表時的時間戳

我有幾張工作表的工作簿，當每張工作表最後一次修改時，我需要單獨給時間戳。我找到了下面的代碼，但是它在整個工作簿最後修改時給了我，而不是每個單獨的工作表。我嘗試了一些變化，但無法使其工作。有關如何做的建議？上次修改工作表時的時間戳

Public Function LastUpdated() 
    LastUpdated= Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm") 
End Function

來源

2017-06-12 Hillash

使用'Workbook_SheetChange'事件。時間戳應該去哪裏？ – Rory

@Rory在工作表中的任何單元格中;想要一個功能，所以我可以做= LastUpdated（） – Hillash

「Change」事件將更容易實現。 – Rory

在每個工作表中輸入下列事件宏：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Application.EnableEvents = False 
     Cells(Rows.Count, Columns.Count).Value = Now 
    Application.EnableEvents = True 
End Sub

它記錄單元格在工作表右下角更改的日期/時間。然後在標準模塊輸入以下UDF（）：

Public Function Updatee() As Date 
    Application.Volatile 

    Dim w As Worksheet 
    Set w = Application.Caller.Parent 

    Updatee = w.Cells(Rows.Count, Columns.Count).Value 
End Function

將顯示該工作表右下單元格的內容。

來源

2017-06-12 13:00:38

正是我在找的！ – Hillash

把在ThisWorkbook對象下面會寫印模到小區C3（第三行，第三列）

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    Application.EnableEvents = False 
    Target.Parent.Cells(3, 3) = Format(Now, "m/d/yy h:n ampm") 
    Application.EnableEvents = True 
End Sub

來源

2017-06-12 12:44:09 CLR

上次修改工作表時的時間戳

回答

相關問題