Cómo hacer que las palabras Blink en Excel

texto parpadeante puede atraer la mirada a una celda de hoja de cálculo en particular o rango de celdas, y alertar al usuario de información importante. Aunque puede cambiar el texto a muchos colores y fuentes en Microsoft Excel , el programa no tiene una función incorporada que hace parpadear el texto . Con Visual Basic para Aplicaciones ( VBA ), sin embargo , usted puede adaptar Excel para satisfacer sus necesidades - y que incluye la creación de un módulo de programación que hará parpadear el texto . Instrucciones
1

Abra el Editor de Visual Basic presionando " Alt" y " F11 " juntos.

2 Haga clic en " Insertar" y luego haga clic en " New Module. "
Página 3

Copia y pega el siguiente código en la ventana del módulo en blanco :

RunWhen Pública As Double

Sub StartBlink ()

Con ThisWorkbook.Worksheets ( "Sheet1 ") . Range (" A1") . Fuente

Si . ColorIndex = 3 Entonces ' Texto Red

. ColorIndex = 2 ' White Texto Fotos < p> Otras ventas

. ColorIndex = 3 'Red Texto Fotos

End If End

Con

RunWhen = Ahora + TimeSerial ( 0,0,1 )

RunWhen Application.OnTime ", " "y ThisWorkbook.Name &" ' ! StartBlink " , Verdadero

End Sub

Sub StopBlink ()
< p > ThisWorkbook.Worksheets ( "Sheet1 ") . Range (" A1") . Font.ColorIndex = _

xlColorIndexAutomatic

Application.OnTime RunWhen ", " "y ThisWorkbook.Name &" ' ! StartBlink " , False

End Sub
4

Cambiar la tercera línea del código al número de hoja actual y el número de celda que desee a parpadear. La dirección de la celda puede ser un rango . Por ejemplo, para hacer que las celdas B1 a B10 parpadeo , cambie "A1 " a "B1 : . B10 "
5

clic "Este libro de trabajo " de la lista en la barra lateral izquierda
< br . > 6

corte y pegue el siguiente código en la ventana del módulo en blanco :

Private Sub Workbook_Open ()

StartBlink

End Sub

privado Sub Workbook_BeforeClose ( Cancel As Boolean )

StopBlink

End Sub
7

Press "F5 " para ejecutar la rutina.