ExcelVBA“请等待”弹出消息。-ExcelVBA“PleaseWait”Pop-UpMessage

6  

The default behavior of the Form.Show method is to show the form as a modal dialog. What you are looking for is a modeless dialog box, so you need to specify that, like this:

表单的默认行为。Show method是将表单显示为模态对话框。您正在寻找的是一个无模型对话框，因此您需要指定这个对话框，如下所示:

Sub WaitShow()
   Wait.Show vbModeLess
End Sub

Update:

更新:

If you can't user a modeless dialog, you have other options, as mentioned in a comment. One of them is to let the wait userform do the SQL executing. This could be done like this:

如果您不能使用无模型对话框，您可以使用其他选项，如注释中所述。其中之一是让等待用户表单执行SQL执行。可以这样做:

In the wait form, first declare variables

在等待表单中，首先声明变量。

Private mySomeParameter1 As String
Private mySomeReturnValue1 As String

'Input parameters to the form
Public Sub Init(ByVal some_parameter1 As String, ...)
... Initialize your SQL, NOT execute it
End Sub

'Output values from the from
Public Sub GetReturns(ByRef some_return_value1 As String, ...)
... set the output parameters...
End Sub

'Do the work
Private Sub UserForm_Activate()
  Call PleaseWait
  'Either call DoEvents or a manual Refresh to let the label display itself
  Call ExecutSQL    ' A function that executes the SQL
  Unload Me
End Sub

And in the main form:

主要形式是:

Sub WaitShow()
   Wait.Init(the parameters...)
   Wait.Show
   Wait.GetReturns(the results...)
End Sub

Yet another option for you would be to skip the Wait form completely and instead show an "Waiting" Image on the mainform and hide it when the SQL processing is done.

另一个选择是完全跳过等待表单，而是在主表单上显示一个“等待”映像，并在SQL处理完成时隐藏它。

1  

Here's how to show a progress bar while your users are waiting for Excel to finish processing:

下面介绍如何在用户等待Excel完成处理时显示进度条:

https://stackoverflow.com/a/10791349/138938

https://stackoverflow.com/a/10791349/138938

In your case, you can guess a reasonable "average" time for your queries and have the progress bar update with percentages of that time, which will reassure your users that Excel is working and they don't need to panic.

在您的情况下，您可以为您的查询猜测一个合理的“平均”时间，并使用该时间百分比更新进度条，这将使您的用户放心，Excel正在工作，他们不需要惊慌。

0  

My solution is far less elegant and impressive than the others. FYI, my script is doing processing for a number of partners within a FOR...NEXT loop, and I want to update the screen with the partner currently being processed.

我的解决方案远不如其他方案优雅和令人印象深刻。顺便说一下，我的脚本正在为a for…下一个循环，我想用正在处理的合作伙伴更新屏幕。

I created a worksheet tab called "Messages". I expanded cell A1 as wide and tall as I could, and I picked a font that I liked a color scheme that I liked. My script starts by turning off ScreenUpdating. I then

我创建了一个名为“Messages”的工作表选项卡。我尽可能地扩大单元格A1的宽度和高度，我选择了一种我喜欢的颜色方案。我的脚本从关闭屏幕更新开始。然后我

Sheets("Messages").Select
Cells(1, 1).Value = "Processing " & Partner
Application.ScreenUpdating = True
Application.ScreenUpdating = False

After this, I return to whatever sheet I need. Nothing fancy, but it's fast, easy, and does what I need. :)

在这之后，我回到我需要的任何表格。没有什么奇特的，但它又快又容易，而且是我所需要的。:)

0  

I use a command button on the form set to a very small size, hidden when the form loads, with the caption "Please wait, processing..."

我在设置为很小的表单上使用命令按钮，当表单加载时隐藏该按钮，标题为“请等待，处理……”

I resize the button in the form Iniliatlise event (I simply resize to the form size using the top, left, width & height properties). YOu can of course make it whatever size you like.

我在表单Iniliatlise事件中调整按钮的大小(我只是使用顶部、左侧、宽度和高度属性调整到窗体大小)。你当然可以做任何你喜欢的尺寸。

I make the command button visible just before my time consuming code & make it hidden again at the end of the code.

我使命令按钮在我耗时的代码之前可见，并使它再次隐藏在代码的末尾。

Requires some "DoEvents", but works perfectly.

需要一些“DoEvents”，但效果很好。