Como aplicar efecto intermitente en Excel

En Microsoft Word cuando queremos aplicar un efecto intermitente al texto seleccionamos el mismo y desde menú FormatoFuenteEfectos 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ú FormatoFormato 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 InsertarMó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.

    6 comentarios:

    Anónimo dijo...

    No es tan fácil como pensaba pero es un gran aporte... Gracias

    Aprendiz dijo...

    Muchas gracias por tu visita. Nos alegramos de que te haya servido.

    Anónimo dijo...

    excelente sus aportes y siempre facil de ejecutar, gracias

    Aladino dijo...

    Cuanto nos alegramos!!

    Anónimo dijo...

    Realmente fantástico, es justo lo que se espera y de una forma MUY sencilla.

    Gracias

    Anónimo dijo...

    Muy efectivo y rápido vuestro ejemplo, las palabras sobran amigos. Son ustedes una formidable ayuda. Muy buena la macro. Cualquier duda les escribiré por éste medio. Gracias.
    saludos.

    Publicar un comentario

    Twitter Delicious Facebook Digg Stumbleupon Favorites More

     
    Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Top WordPress Themes