Excel VBA 用户窗体锁定 sheet

Excel VBA UserForm locking up sheet

你好，早上好，

我是 Excel 和 VBA 的新手，但我正在制作一个电子表格，它将极大地帮助我完成我的工作。我有一个按钮 "btnQuery"，按下时应该做一些事情：

  1. 关闭计算
  2. 执行 2 次查询
  3. 更新数据透视图
  4. 开启计算

它很棒而且工作正常，直到我决定添加一个进度条。我正在处理这里的一个例子：http://spreadsheetpage.com/index.php/tip/displaying_a_progress_indicator/

我的目的是让栏更新： 1. 关闭计算前5% 2. 关闭计算后5% 3. 第一次查询后35% 4.第二次查询后35% 5. 枢轴更新后 15% 6. 开启计算后5%

但是，每当我 "Show" 用户表单时，它只会锁定我的页面，直到我退出它。这是我的代码，希望对您有所帮助：

Sub btnQuery_Click()
Userform1.Show
Call code.calcturnoff
Call code.data
Call code.pivot
Call code.calcturnon
End Sub

我目前没有用户表单的代码。有人可以提供一些建议吗？

万分感谢！

这是因为您正在等待输入。确保将其作为非模态对话框打开：

Userform1.Show vbModeless