vba - VBA，保存按钮无法正常工作

Question

我希望当我单击保存按钮的标题时将其更改为“请稍候”，然后在保存工作簿后标题将返回其原始标题“保存”。这是我的代码..

Private sub cmdSave_Click()
cmdSave.Caption = "Please wait"
ThisWorkbook.SAVE
UserForm1.Show
MsgBox "Saving Successful"
cmdSave.Caption = "SAVE"
End Sub

我的保存按钮在 userform1，我把 userform1.show 因为当我点击保存时 userform1 隐藏，

我的问题是“请稍候”标题代码在我按下保存按钮后运行延迟。有什么想法吗？

标签： vbaexcelbuttonuserform

Answer 1

命名您的按钮cmdSave并将以下内容放入UserForm：

Private Sub cmdSave_Click()
    cmdSave.Caption = "Please wait"
    ThisWorkbook.Save
    MsgBox "Saving Successful!"
    cmdSave.Caption = "SAVE"
End Sub

这是它的工作原理：