如果您有一个大型vba宏/代码需要运行几分钟，则可以在宏运行期间将光标更改为沙漏或等待光标（基于系统设置）。宏完成后，可以将光标恢复到默认光标。

这是一个示例代码，显示了如何更改光标。

Option明确 |​​

|||| === Sub macro1（）

Application.Cursor = xlWait

‘这里的代码

Application.Cursor = xlDefault

End Sub_在dim语句之后（此示例代码尚无此代码），我们在代码开头设置_Application.Cursor = xlWait *。

  • 然后，您可以包括需要运行的任何代码。如果您需要调用多个子程序/过程，则可以在这里进行，也可以在此处输入整个代码。

然后，在End Sub语句之前，您需要将光标重置为默认值。我们使用_Application.Cursor = xlDefault_ *

行=== __

您可以在_Application.Cursor = xlWait_statement中包含所需的所有其他语句，例如_Application.ScreenUpdating = False_or_Application.DisplayAlerts = False along。同样，您可以包含_Application.ScreenUpdating = True_或_Application.DisplayAlerts = True_以及_Application.Cursor = xlDefault *语句。

__

  • 要复制此代码，请按键盘上的Alt + F11键。这将打开代码模块。在左侧，您将看到Microsoft Excel对象。右键单击并选择插入，然后选择模块。将代码复制到右侧的代码窗口中。