Cómo hacer que el texto parpadee en Excel

Excel no presenta texto parpadeante o parpadeante como opción de fuente. Sin embargo, con Visual Basic para aplicaciones integrado de Excel, puede usar código para hacer que el texto cambie de color en cada sección, creando un efecto intermitente.

Paso 1

Abra el archivo de Microsoft Excel 2010 en el que desea que el texto parpadee. Presiona "Alt" y "F11" para abrir la consola de VBA.

Paso 2

Haga clic derecho en la entrada "ThisWorkbook" en el lado izquierdo de la consola de VBA. Mueve el mouse sobre "Insertar" y elige "Módulo".

Paso 3

Haga doble clic en la opción "Este libro de trabajo". Copie el siguiente código y péguelo en el espacio en blanco en el lado derecho de la pantalla:

Libro de trabajo secundario privado_Abrir () Parpadeo Finalizar sub

Libro de trabajo secundario privado_Antes de cerrar (Cancelar como booleano) No parpadear Finalizar sub

Este código se iniciará y el texto parpadeante cuando abra este libro de trabajo, y detendrá el texto parpadeante cuando cierre el libro de trabajo, una vez que inserte el código para decirle a Excel qué significa realmente Blink y NoBlink.

Paso 4

Haga doble clic en "Módulo 1" de la lista en el lado izquierdo de la pantalla. Coloque el cursor en el lado derecho de la pantalla e ingrese la siguiente línea:

Recuento de tiempo público como el doble

Esto crea una variable llamada "Timecount" que puede usar en cada subrutina.

Paso 5

Presiona enter para mover el cursor a la siguiente línea e ingresa el siguiente código:

Parpadeo secundario () Con este libro de trabajo. Hojas de trabajo ("Hoja 1"). Rango ("A1:A10"). Fuente Si .ColorIndex =3 Entonces .ColorIndex =2 Else .ColorIndex =3 Finalizar si finalizar con Timecount =Now + TimeSerial(0 , 0, 1) Aplicación.OnTime Contador de tiempo, "Parpadeo", , True End Sub

Esto crea una subrutina llamada "Parpadeo" que hará que todo el texto dentro del rango definido parpadee. Puede cambiar el rango de "A1:A10" al rango que desee, incluida una celda individual.

Paso 6

Presiona "Enter" para acceder a la siguiente línea e ingresa el siguiente código:

Sub noblink() ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

Esto creará una subrutina que se ejecutará cuando cierre el libro. Vuelve todo el texto a negro, para que alguien que abra el libro de trabajo sin las macros habilitadas no vea accidentalmente nada en los cuadros de texto.

Paso 7

Cierre la consola de VBA haciendo clic en la "X" en la esquina superior derecha. Haz clic en la pestaña "Archivo" en la parte superior de la pantalla y selecciona "Guardar como". Seleccione "Libro de trabajo habilitado para macros de Excel" en el campo desplegable y escriba un nombre para el libro de trabajo. Haz clic en "Guardar".

Paso 8

Cierra el archivo de Excel y luego vuelve a abrirlo. Su texto, dentro del rango definido en la macro, comenzará a parpadear. Dependiendo de su configuración de seguridad, es posible que deba hacer clic en el botón "Habilitar macros" en la parte superior de la pantalla para ver el texto intermitente.