Transformación de color en programación VBA
1. Primero, descargue el control del temporizador VBA en línea y coloque el archivo ".ocx" en la unidad C - carpeta windows-system32, luego inicie - ejecute - "regsvr32 VBAtimer.ocx" -. OK (Nota: se supone que el archivo OCX que descargó se llama "VBAtimer.ocx").
2. Luego abra Excel, cree un formulario según sus propios requisitos, luego haga clic derecho en la barra de herramientas - "Controles adicionales" - busque el control VBAtimer que acaba de instalar y dibuje un temporizador en cualquier parte del formulario. controles.
3. Luego haga clic derecho en el nuevo formulario: "Ver código" e ingrese el siguiente código:
Private Sub CommandButton1_Click()
UserForm1.Label1. .Font.Bold = True
UserForm1.Label1.Font.Italic = True
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Sub timer1_timer()
Atenuar a mientras, b mientras, c mientras
Aleatorizar
a = Int(256 * Rnd )
b = Int(256 * Rnd )
c = Int(256 * Rnd )
UserForm1.Label1.ForeColor = RGB(a, b, c)
End Sub
Sub privado CommandButton2_Click()
UserForm1.Label1.Font.Bold = False
UserForm1.Label1.Font.Italic = False
Timer1.Enabled = False
End Sub
Finalmente, haga doble clic en el proyecto. ventana de administración Este libro de trabajo, ingrese el siguiente código en el cuadro de código emergente:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
5 .Adjunto: Si no sabes cómo realizar los pasos 2, 3 y 4, completa el primer paso y déjame tu dirección de correo electrónico.