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.