Como aplicar efecto intermitente en Excel

En Microsoft Word cuando queremos aplicar un efecto intermitente al texto seleccionamos el mismo y desde menú Formato – Fuente – Efectos de texto aplicamos un efecto de Fondo intermitente.

• Hacemos clic en Aceptar

En Excel no existe una opción que permita aplicar un efecto de Fondo intermitente a una celda. Hemos de aplicar formato condicional y a continuación crear en un módulo dos macros. La primera inicia un procedimiento que ejecutará el formato condicional cada segundo para todas las hojas del libro activo. La segunda macro detendrá dicho proceso.

Si lo que queremos es que el fondo intermitente funcione nada más abrir el libro, añadiremos dos eventos de apertura y de cierre en ThisWorkbook.

Pasos:

Selecciona las celdas a las que quieres aplicar el efecto de fondo intermitente
Menú Formato – Formato condicional
Escribimos la siguiente fórmula =RESIDUO(SEGUNDO(AHORA());2)=0

Hacemos clic en Formato

Aplicamos el formato que deseemos. En nuestro caso, negrita al texto.

• Hacemos clic en Aceptar


• Hacemos clic en Aceptar


• Abrimos el editor VBA (alt+F11)


• Insertamos un módulo desde Insertar – Módulo

Escribimos el siguiente código:

Public tiempo As Date
Sub Inicio()
tiempo = Now + TimeSerial(0, 0, 1)
Worksheets(1).Calculate
Application.OnTime tiempo, "Inicio"
End Sub
Sub Fin(): On Error Resume Next
Application.OnTime tiempo, "Inicio", Schedule:=False
End Sub

Esto sería suficiente para que la macro funcionase. Tendríamos que iniciarla y detenerla manualmente. Si lo que queremos es que funcione nada más abrir el libro entonces tendríamos que insertar dos eventos de apertura y cierre en ThisWorkbook.

Pasos:

• Hacemos doble clic en ThisWorkbook


• Escribimos ambos eventos.

Para cuando abrimos el libro Workbook_Open() y llamamos al procedimiento Inicio y para cuando cerremos el libro Workbook_BeforeClose llamando al procedimiento Fin

El código a insertar es el siguiente:

Private Sub Workbook_Open()
Inicio
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Fin
End Sub

• Guardamos el libro, lo cerramos y lo volvemos a abrir para comprobar que se ejecuta la macro nada más abrirlo.

En nuestro caso hemos combinado el rango D1:F1 y mediante formato condicional, hemos aplicado negrita

Las celdas se mostrarán en estos dos estados de manera intermitente

Creando el efecto de intermitencia, resaltado o parpadeo originario en Word.

Nota: Hemos de recordar que Excel es una hoja de cálculo. Por tanto, no tiene efectos propios de un procesador de texto como Word

Nota: El tipo de texto a aplicar dependerá del formato condicional que establezcamos en las celdas en cuestión. Si en vez del texto, deseamos que parpadee el fondo de celda, entonces hemos de aplicar un color de trama a la misma.

---

Si tienes alguna duda sobre este artículo, crees que hay algo incorrecto (falta de ortografía, error en la imagen), una solución más sencilla o distinta, algo no te ha quedado claro o simplemente quieres saber más sobre ésta u otras funciones o posibilidades y no quieres dejar un comentario, rellena el Formulario de Contacto de la derecha.Te contestaré personalmente.

Redactado en: Excel 2003