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.

   

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.

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.

   

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.