Resalta una celda de forma intermitente en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

Para enfatizar ciertos valores de celdas podemos resalta una celda de forma intermitente en Excel.

Resalta una celda de forma intermitente en Excel
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. Escribir el código de la macro:

    Option Explicit
    Public Recorre As Double

    Sub Inicio()
    ' Macro 1 inicio del parpadeo

    If Range("B1,C1").Interior.ColorIndex = xlAutomatic Then

    Range("B1,C1").Interior.Color = vbYellow
    Range("B1,C1").Font.Color = vbRed

    Else

    Range("B1,C1").Interior.ColorIndex = xlAutomatic

    End If

    Recorre = Now + TimeSerial(0, 0, 0.7)
    Application.OnTime Recorre, "Inicio", , True

    End Sub

    Sub Parar()
    ' Macro 2 detiene el parpadeo

    Range("B1,C1").Interior.ColorIndex = xlNone
    Range("B1,C1").Font.Color = vbBlack
    Application.OnTime Recorre, "Inicio", , False

    End Sub

    - Range("B1,C1"). Indica las celdas deseadas.
    - vbYellow. Indica el color deseado.
    - TimeSerial(0, 0, 0.7). Devuelve la hora como h,m,s.

 
  • INSERTAR MACRO AL LIBRO (THISWORKBOOK)

Si deseamos que la macro se ejecute al abrir el libro podemos insertar el código:

  1. Ir a: Explorador de Proyectos / VBAProject / Doble Clic sobre ThisWorkbook (libro). Si el panel no está visible Ir a: Barra de menú / Ver / Explorador de proyectos. Mostrará la ventana donde escribimos la macro.

    Panel de proyecto con el objeto ThisWorkbook seleccionado
  2. Escribir el código de la macro:

    Private Sub Workbook_Open()

    Inicio

    End Sub

    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Parar

    End Sub

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.