Question

我希望在Beforesave的过程自动修改窗体里某个Label的Caption

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Main.LastTime.Caption = Format(Worksheets("参数表").Cells(1, 2), "yyyy-mm-dd") & "）"
End Sub

这样不行。
怎么破？
Main是窗体名，LastTime是Label名

VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA、VBA

Answer 1

第一步：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("参数表").Cells(2, 2) = Worksheets("参数表").Cells(1, 2).Value '找个空单元格储存值
End Sub
第二步：
Private Sub UserForm_Activate()
Main.LastTime.Caption = Format(Worksheets("参数表").Cells(2, 2), "yyyy-mm-dd") & "）" '在窗体启动的时候再调用那个储存值的单元格
End Sub