Tag: popup窗口

Excel VBA“Please Wait”popup消息

我正试图在Excel-VBA中创build一个Please Wait消息。 这是提醒用户处理sql查询的过程还在进行中。 我想这个消息显示在一个用户窗体中。 目前，用户连接到SQL DB，select数据库和其他一些选项，按下Go …，表单不会卸载。 在Go处，我有另外一个popup消息Please Wait窗体，但这个窗体不能卸载，即sql执行命令不能运行。 我的代码调用Please Wait表单，包括一个标签： Call WaitShowSQl.ExecuteCall KillWaitCall WaitShow SQl.Execute Call KillWait 在另一个代码模块中我有： Sub WaitShow() Wait.Show End Sub Sub KillWait() Unload Wait End Sub 我有以下代码调用waitform的userform： Private Sub UserForm_Activate() Call PleaseWait End Sub Sub PleaseWait() Wait.Label1.Caption = "Calculating…Please Wait!" End Sub 现在，在执行代码时，运行时不会通过模块返回以执行以下操作： SQl.ExecuteSQl.Execute 我可以用状态栏显示程序的进度，但用户窗口popup消息对于这个程序是非常有用的。