UNIDAD 4
Actividad 1 Insertar ventana de color usando " Userform" Private Sub UserForm_Initialize() Me.BackColor = vbBlue End Sub Actividad 2 Insertar botón para ventana personalizada Private Sub CommandButton1_Click() UserForm1.Show End Sub Actividad 3 botón de ventana de mensaje Private Sub CommandButton2_Click() MsgBox "Hola, como te va?" End Sub Actividad 4 boton de mensaje de exclamación Private Sub CommandButton3_Click() MsgBox "seguimos!", vbExclamation End Sub Actividad 5 Mensaje con titulo "vamos estudiantes" Private Sub CommandButton4_Click() MsgBox "Vamos estudiantes", vbYesNo, "programacion electrica" End Sub Actividad 6 Mensaje de si o no Private Sub CommandButton5_Click() MsgBox "Mighty Chase", vbYesNo + vbExclamation, "Electrica" End Sub Actividad 7 Pintar una celda Private Sub CommandButton6_Click() Dim res As Variant res = MsgBox("¿Quieres pintar de rojo A1?", vbYesNo, "Colorear A1...