1
Abra el archivo de Microsoft Excel 2010 en el que desea que el flash de texto. Pulse la tecla " Alt" y " F11 " para abrir la consola de VBA.
2 Haga clic en la entrada " ThisWorkbook " en el lado izquierdo de la consola de VBA. Mueve el ratón sobre "Insertar" y elegir la opción " Módulo ".
3 Haga doble clic en la opción " ThisWorkbook " . Copie el siguiente código y pegarlo en el espacio en blanco en la parte derecha de la pantalla :
Private Sub Workbook_Open ()
Blink
End Sub
< p > Private Sub Workbook_BeforeClose ( Cancel As Boolean )
NoBlink
End Sub
este código se iniciará y el texto que parpadea cuando se abre el libro, y dejar el texto parpadea cuando cierra el libro , una vez que se inserta el código para decirle a Excel lo Blink y NoBlink significa realmente .
4
doble clic en " Módulo 1 " de la lista en el lado izquierdo de la pantalla. Coloca el cursor en el lado derecho de la pantalla e introduzca la siguiente línea: .
Timecount Pública As Double
Esto crea una variable llamada " Timecount " que se puede utilizar en todas las subrutinas
Página 5
Presione enter para mover el cursor a la siguiente línea y escriba el siguiente código: Sub
blink ()
ThisWorkbook.Worksheets ( "Sheet1 ") . Range (" A1: A10 ") . . . . Fuente
Si ColorIndex = 3 Entonces
ColorIndex = 2
demás
ColorIndex = 3
End If End
Con
Timecount = Ahora TimeSerial + ( 0 , 0, 1) spanish
Timecount Application.OnTime , "Blink " , Verdadero
End Sub
Esto crea un subprograma denominado "Blink " que hará que todo el texto dentro del rango definido a parpadear. Usted puede cambiar el rango de . "A1: A10 " a cualquier rango que desee, incluyendo una celda individual
6
Pulse " Enter" para acceder a la siguiente línea y escriba el siguiente código:
Sub noblink ()
ThisWorkbook.Worksheets ( "Sheet1 ") Range ("A1 : A10 ") . . Font.ColorIndex = _
xlColorIndexAutomatic
Aplicación . OnTime Timecount , "Blink " , False
End Sub
Esto creará un subprograma que se ejecutará cuando se cierra el libro. Resulta que todo el texto de nuevo a negro , de modo que alguien que abre el libro sin macros habilitadas no vea accidentalmente nada en los cuadros de texto .
7
Cierre la consola de VBA , haga clic en la "X" en la la esquina superior derecha . Haga clic en la ficha "Archivo " en la parte superior de la pantalla y elegir la opción " Guardar como ". Seleccione " Libro de Excel habilitado para macros " en el campo desplegable y escriba un nombre para el libro . Haga clic en " Guardar ".
8
Cierre el archivo de Excel y, a continuación , vuelva a abrirlo . Su texto , dentro del rango definido en la macro , comenzará a parpadear . Dependiendo de la configuración de seguridad , es posible que tenga que hacer clic en el botón " Enable Macros " en la parte superior de la pantalla para ver el texto parpadeante.