texto intermitente puede atraer la mirada a un celular, en particular, o rango de celdas, y alertar al usuario de la información importante. Aunque se puede cambiar el texto de muchos colores y fuentes en Microsoft Excel, el programa no tiene una función incorporada que hace que un abrir y cerrar de texto. Con Visual Basic para Aplicaciones (VBA), sin embargo, se puede adaptar Excel para adaptarse a sus necesidades - y que incluye la creación de un módulo de programación que hará que un abrir y cerrar de texto.
Instrucciones
1 Abra el Editor de Visual Basic presionando "Alt" y "F11" juntos.
2 Haga clic en "Insertar" y luego en "Nuevo módulo".
3 Copia y pega el siguiente código en la ventana del módulo en blanco:
Como RunWhen pública Doble
Sub StartBlink ()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Si .ColorIndex = 3 A continuación, 'Texto Rojo
.ColorIndex = 2 'texto blanco
Más
.ColorIndex = 3 'Red Text
Terminara si
Terminar con
RunWhen = ahora + TimeSerial (0,0,1)
Application.OnTime RunWhen, " '" & ThisWorkbook.Name & "'! StartBlink",, True
End Sub
Sub StopBlink ()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, " '" & ThisWorkbook.Name & "'! StartBlink",, False
End Sub
4 Cambie la tercera línea del código para el número de hoja y la celda número real desea hacer parpadear. La dirección de la celda puede ser un rango. Por ejemplo, para hacer que las células B1 a B10 abrir y cerrar, sustituyen a "A1" a "B1: B10."
5 Haga clic en "Este libro de trabajo" de la lista en la barra lateral izquierda.
6 Corte y pegue el siguiente código en la ventana del módulo en blanco:
Private Sub Workbook_Open ()
StartBlink
End Sub
Private Sub Workbook_BeforeClose (Cancel As Boolean)
StopBlink
End Sub
7 Pulse la tecla "F5" para ejecutar la rutina.
Consejos y advertencias
- Parpadear el texto puede ser muy molesto en un libro, y el usuario ocasional puede no saber cómo acceder a VBA para apagarlo.