¿Cómo hacer que una forma parpadee o parpadee una y otra vez en Excel?
Si desea hacer que una forma parpadee una y otra vez en una hoja de trabajo, un método en este artículo puede ayudarlo.
Haz una forma parpadeando una y otra vez con el código VBA
Haz una forma parpadeando una y otra vez con el código VBA
En la hoja de trabajo, para hacer que una forma parpadee, haga lo siguiente.
1. presione el otro + F11 teclas 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 código VBA en la ventana Código.
Código de VBA: haga que una forma parpadee una y otra vez en la hoja de trabajo
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End SubNotas:
3. presione el otro + Q llaves juntas para salir del Microsoft Visual Basic para aplicaciones ventana.
4. Inserte un botón en la hoja de trabajo haciendo clic en Developer > recuadro > Botón (Control de formulario) como se muestra a continuación.
5. En la aparición Asignar macro cuadro de diálogo, seleccione Flash existentes Nombre de la macro cuadro, y luego haga clic en el OK del botón.
6. Luego cambie el texto de la pantalla en el botón según lo necesite. En este caso, cambio el texto de la pantalla a Comenzar a parpadear como se muestra a continuación.
7. Repita los pasos 4 y 5 anteriores para insertar un nuevo botón y asignar el Para macro a este botón.
8. Cambie el texto de visualización de este nuevo botón.
Luego puede ver que dos botones asignados con diferentes macros se insertan en la hoja de trabajo. Ver captura de pantalla:
A partir de ahora, al hacer clic en el botón Comenzar a parpadear, la forma comienza a parpadear con diferentes colores. Si desea detener el flash, haga clic en el botón Dejar de parpadear.
Artículo relacionado:
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!
