正如 Remnant 建议的那样,最好的方法是利用该Worksheet_Change
事件。这意味着,您需要此 VBA 代码
Private Sub Worksheet_Change(ByVal Target As Range)
With Me.PageSetup
.LeftFooter = "Last Change Time: " & Format(VBA.Time, "hh:mm:ss")
.RightFooter = "Last Change Date: " & Format(VBA.Date, "dd/mm/yy")
End With
End Sub
在您的每个工作表中。此事件仅在您更改单元格内容时引发,而不是在您更改选择时引发,因此它可能是您想要的。
Remnant 还写道,如果您有很多工作表,这将是“设置的痛苦”。我认为这取决于你所说的“许多”。对于多达 20~40 个工作表,可以在几分钟内轻松地将上面的代码手动复制到每个工作表。
如果您已经有一本工作簿和很多(例如,超过 40 张)工作表,那么以编程方式添加代码可能是个好主意。将包含此代码的单独模块添加到您的工作簿,然后运行一次:
Option Explicit
Sub InsertCode()
Dim VBProj As Object
Dim VBComp As Object
Dim CodeMod As Object
Dim sh As Worksheet
Dim LineNum As Long
Set VBProj = ActiveWorkbook.VBProject
For Each sh In ThisWorkbook.Sheets
Set VBComp = VBProj.vbcomponents(sh.Name)
Set CodeMod = VBComp.CodeModule
With CodeMod
.DeleteLines 1, .CountOfLines
LineNum = .CreateEventProc("Change", "Worksheet")
LineNum = LineNum + 1
.InsertLines LineNum, "Me.Pagesetup.LeftFooter = ""Last Change Time: "" & Format(VBA.Time, ""hh:mm:ss"")"
.InsertLines LineNum + 1, "Me.Pagesetup.RightFooter = ""Last Change Date: "" & Format(VBA.Date, ""dd/mm/yy"")"
End With
Next
End Sub
这会将上面的“Worksheet_Change”事件添加到每个工作表的代码部分。