Cuando tiene una macro / código vba grande que necesita ejecutarse durante muchos minutos, puede cambiar el cursor al reloj de arena o al cursor de espera (según la configuración de su sistema) para el período en el que se está ejecutando la macro. Una vez que se completa la macro, el cursor se puede restaurar al cursor predeterminado.
Este es un código de muestra que muestra cómo puede cambiar el cursor.
Opción explícita
Sub macro1 ()
Application.Cursor = xlWait
"Código aquí
Application.Cursor = xlDefault End Sub
- Después de las declaraciones dim (este código de muestra aún no tiene ninguna), configuramos Application.Cursor = xlWait al principio del código.
- Luego, puede incluir cualquier código que necesite ejecutar. Si necesita llamar a varios subs / procedimientos, puede hacerlo aquí o simplemente ingresar el código completo aquí.
- Luego, justo antes de la instrucción End Sub, debe restablecer el cursor al valor predeterminado. Hacemos esto usando la línea Application.Cursor = xlDefault
- Puede incluir todas las demás declaraciones que necesite, como Application.ScreenUpdating = FalsooApplication.DisplayAlerts = Falsojunto con Application.Cursor = xlWaitdeclaración. Del mismo modo, puede incluir Application.ScreenUpdating = True o Application.DisplayAlerts = True junto con Application.Cursor = xlDefaultdeclaración.
- Para copiar este código, presione las teclas Alt + F11 en el teclado. Esto abrirá el módulo de código. En el lado izquierdo verá Objetos de Microsoft Excel. Haga clic derecho y seleccione Insertar y luego seleccione Módulo. Copie el código en la ventana de código de la derecha.