¿Cómo parpadear o parpadear el texto de una celda especificada en Excel?
Para hacer que una determinada celda destaque en su hoja de trabajo, ¿qué tal si parpadea el texto de esta celda? Este artículo le mostrará el método para hacer parpadear el texto de una celda específica en Excel.
Texto intermitente o intermitente de la celda especificada con código VBA
Texto intermitente o intermitente de la celda especificada con código VBA
Haga lo siguiente para hacer parpadear el texto de una celda específica en Excel.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código en la ventana Código.
Código de VBA: texto parpadeante de la celda especificada en Excel
Sub StartBlink()
'Updated by ExtendOffice 20181010
Dim xCell As Range
Dim xTime As Variant
On Error Resume Next
Set xCell = Range("Sheet2!A1")
On Error Resume Next
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Note: en este código de VBA, Sheet2 y A1 indican que el texto en la celda A1 de Sheet2 parpadeará en el libro de trabajo actual.
3. presione el otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.
Ahora necesita un botón para iniciar y detener el parpadeo.
4. Hacer clic en Developer > recuadro > Botón (Control de formulario). Ver captura de pantalla:
5. Dibuje un botón en su hoja de trabajo, luego un Asignar macro aparece el cuadro de diálogo, haga clic en InicioBlink existentes Macro nombre cuadro, y luego haga clic en el OK botón. Ver captura de pantalla:
6. Haga clic derecho en el botón insertado y haga clic en Editar texto desde el menú contextual. Luego, cambie el texto del botón al texto que necesita, como Iniciar / Dejar de parpadear.
A partir de ahora, al hacer clic en el botón, el texto de la celda A1 comienza a parpadear. Y al volver a hacer clic en el botón, el texto de la celda A1 deja de parpadear.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!