小编Fab*_*ico的帖子

我有一个查询数据库的宏（在这种情况下是一个excel工作簿），但是当宏查询数据库时，需要30秒，用户认为程序坏了。我试过“Application.StatusBar =”刷新文件。“”，但是用户看不到这句话，最好的方法是一个带有“稍等片刻”消息的msgbox，当宏完成时，此消息将关闭。你帮我写代码吗？我认为解决方案是这样的：

Sub Button1_Click()
'Call msgbox with message "Await a moment"
Dim x As Long
For x = 0 To 2000000000 Step 1
Next
'The msgbox is closed
End Sub

我认为解决方案是 msgbox 但它是另一种选择，继续！