在 Office 2010 上的 VBA 中创建的宏在 Office 2016 上具有不同的行为

Question

我有一个处理包含数据的工作表列表的宏。整个过程由一个显示状态和正在处理的工作表的表单监控。将Office版本从2010升级到2016后，我的监视表单被Excel空窗口隐藏，直到整个处理结束。

如何像 Office 升级之前一样在前台恢复状态窗口？

Private Sub InitializeForm()
If myInfoForm Is Nothing Then
Set myInfoForm = New FrmAuswerteInfo
End If
End Sub
Public Sub Show()
If Not myVisible Then
Call InitializeForm
Call myInfoForm.Show
End If
myVisible = True
End Sub

Answer 1

按照表单引用DoEvents(例如，下面是一些代码的一部分，它将提供一个状态栏，该状态栏在 VBA 执行时更新......

With UserForm1
.FrameProgress.Caption = Format(PctDone, "0%")
.LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
End With
DoEvents