Question

Excel,VBA,我希望在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名

这样不行。
怎么破？

Answer 1

我试了下，可以呢；你提示什么错误呢？

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

追问

没错误提示……把表关了再打开试试……然后就又恢复初始的设置值了……

追答

我知道你的意思了，你是想在启动的时候把LABEL的值显示为Cells(1, 2)的值是吧？那可以把代码改为下面随便一句：（代码要放在USERFROM里面哈！）

Private Sub UserForm_Activate()‘在USERFROM启动时显示Cells(1, 2)的值
 UserForm1.Label1.Caption = Format(Worksheets("参数表").Cells(1, 2), "yyyy-mm-dd") & "）"
End Sub



Private Sub UserForm_Click()‘在点USERFROM时显示Cells(1, 2)的值
 UserForm1.Label1.Caption = Format(Worksheets("参数表").Cells(1, 2), "yyyy-mm-dd") & "）"
End Sub