VBA，保存按钮无法正常工作答案

【问题标题】：VBA, Save button wont work correctlyVBA，保存按钮无法正常工作
【发布时间】：2019-01-07 13:47:39
【问题描述】：

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

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

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

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

【问题讨论】：

标签： vba excel button userform

【解决方案1】：

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

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

这就是它的工作原理：

【讨论】：

我尝试了您的代码，但“请稍候”标题是延迟。.msgbox 和请稍候一起出现..