Question

我正在努力解决一个基本问题我没有在线找到答案...我正在尝试在加载用户表单后回到原来的子表单（我在不使用Excel库的情况下创建了进度条）。

代码如下所示：

MODULE CODE：

 Sub Original_Sub()

 'Some code here
     Userform1.Show
 'Some code here I can't reach

 End sub

USERFORM CODE：

 Private Sub UserForm_Initialize()

 With UserForm1

  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.35 * .Height)

 End With
 End Sub

代码的第一部分正常运行，但它在运行userform代码后立即停止...为什么它不会像我调用宏时那样继续？即：

 Call MyMacro
 'Rest of the code

有什么方法可以解决我的问题吗？

提前感谢您的帮助，祝您度过愉快的一天

让

Answer 1

您需要无模式地显示表单。将其ShowModal属性设置为False，或使用：

Userform1.Show False

VBA - 打开用户表单后返回子目录

1 个答案: