Excel no incluye texto que parpadea o parpadea como una opción de fuente. Sin embargo, al usar Visual Basic para Aplicaciones integrado en Excel, puede usar código para hacer que el texto cambie de color en cada sección, creando un efecto de destello.
Paso 1
Abra el archivo de Microsoft Excel 2010 en el que desea que el texto parpadee. Presione "Alt" y "F11" para abrir la consola VBA.
Video del día
Paso 2
Haga clic con el botón derecho en la entrada "ThisWorkbook" en el lado izquierdo de la consola VBA. Mueva el mouse sobre "Insertar" y elija "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:
Private Sub Workbook_Open () Blink End Sub
Private Sub Workbook_BeforeClose (Cancelar como booleano) NoBlink End Sub
Este código se iniciará y el texto parpadeará cuando abra este libro de trabajo y dejará de parpadear. cuando cierra el libro de trabajo, una vez que inserta el código para decirle a Excel qué es Blink y NoBlink en realidad significar.
Etapa 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:
Contador de tiempo público como doble
Esto crea una variable llamada "Timecount" que puede utilizar en cada subrutina.
Paso 5
Presione enter para mover el cursor a la siguiente línea e ingrese el siguiente código:
Parpadeo secundario () Con ThisWorkbook. Worksheets ("Sheet1"). Range ("A1: A10"). Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Aplicación. Contador de tiempo OnTime, "Blink", 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. Hojas de trabajo ("Hoja1"). Rango ("A1: A10"). Fuente. ColorIndex = _ xlColorIndexAutomatic Application. Contador de tiempo en tiempo, "Parpadeo", Fin falso Sub
Esto creará una subrutina que se ejecutará cuando cierre el libro de trabajo. Devuelve todo el texto a negro, de modo que alguien que abra el libro de trabajo sin las macros habilitadas no verá accidentalmente nada en los cuadros de texto.
Paso 7
Cierre la consola de VBA haciendo clic en la "X" en la esquina superior derecha. Haga clic en la pestaña "Archivo" en la parte superior de la pantalla y seleccione "Guardar como". Seleccione "Libro de trabajo habilitado para macros de Excel" en el campo desplegable y escriba un nombre para el libro. Clic en Guardar."
Paso 8
Cierre el archivo de Excel y luego vuelva 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 parpadeante.
