Entradas

UNIDAD 5

Imagen
 Actividad 1  creación de Agenda personal con "Private Type" Option Explicit Private Type agenda nombre As String apellido As String cpostal As Integer End Type Dim x As Integer Sub datosagenda() 'llenar datos primer persona Dim personas(1 To 3) As agenda personas(1).nombre = "Juan" personas(1).apellido = "Matinez" personas(1).cpostal = "20256" 'segunda persona personas(2).nombre = "Jorge" personas(2).apellido = "Quezada" personas(2).cpostal = 20000 'tercer persona personas(3).nombre = "Victor" personas(3).apellido = "Guerrero" personas(3).cpostal = 20430 For x = 1 To 3 Cells(x, 1) = personas(x).nombre Cells(x, 2) = personas(x).apellido Cells(x, 3) = personas(x).cpostal Next x End Sub Actividad 2 Lista de estudiantes Sub librito() Dim estudiantes(1 To 4) As agenda For x = 1 To 4 estudiantes(x).nombre = Application.InputBox("Dame tu nombre ", "Nombre") estudiantes(x).apellido ...
Publicar un comentario
Leer más

UNIDAD 4

Imagen
 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...
Publicar un comentario
Leer más