¿Cómo detener el parpadeo de la pantalla mientras se ejecutan macros en Excel?

El parpadeo de la pantalla cuando se ejecutan macros en Excel puede ser bastante molesto y puede ralentizar el rendimiento de tus macros. Para minimizar o eliminar este parpadeo, puedes desactivar temporalmente el repintado de la pantalla y el cálculo automático mientras se ejecuta la macro. Aquí está cómo hacerlo:

Desactivar el repintado de pantalla con `Application.ScreenUpdating`: Establece `Application.ScreenUpdating` en `False` al inicio de tu macro y al final en `True`. Esto evita que Excel actualice la pantalla mientras la macro se está ejecutando.
Desactivar el cálculo automático con `Application.Calculation`: Cambia el modo de cálculo a manual al inicio de la macro y restáuralo al modo automático al final. Esto impedirá que Excel realice cálculos innecesarios durante la ejecución de la macro.
Desactivar eventos con `Application.EnableEvents`: Esto impide que se disparen otros eventos o macros desencadenados mientras se ejecuta tu macro.

Aquí tienes un ejemplo de cómo estructurar tu macro para incluir estas optimizaciones:

Sub MiMacro()
    ' Desactivar actualizaciones de pantalla
    Application.ScreenUpdating = False
    ' Desactivar cálculo automático
    Application.Calculation = xlCalculationManual
    ' Desactivar eventos
    Application.EnableEvents = False
    
    On Error GoTo ErrorHandler
    
    ' Tu código de macro aquí
    ' ...

    ' Asegúrate de que estas líneas siempre se ejecuten
    ErrorHandler:
    ' Restaurar cálculo automático
    Application.Calculation = xlCalculationAutomatic
    ' Restaurar actualizaciones de pantalla
    Application.ScreenUpdating = True
    ' Restaurar eventos
    Application.EnableEvents = True

End Sub

Es importante incluir una estructura para manejar errores, de modo que si ocurre un error en tu macro, Excel restaure estos ajustes al estado de funcionamiento normal. Esto ayudará a asegurar que Excel funcione correctamente después de que finalice la macro, incluso si encuentra un error.

facebooklinkedin