EXCEL INTENSIVO
EXPOSITOR:
DANIEL LOZA SANTA CRUZ
CORREOS:
dlozas2016@[Link]
dlozas2011@[Link]
dlozas@[Link]
EXPERIENCIA EN DOCENCIA
FUNDAMENTOS DE PROGRAMCIÓN
LENGUAJE DE PROGRAMACIÓN
DISEÑO DE BASE DE DATOS
BASE DE DATOS CON SQL SERVER Y ORACLE
PROGRAMACIÓN WEB CON BASE DE DATOS
APLICACIONES MOVILES CON ANDROID
APLICACIONES JAVA Y JAVA WEB
TEMA:
CONTROL MULTIPAGE
Un MultiPage es un control que contiene una colección de una o más
páginas.
Cada página, de una página múltiple es un formulario que contiene
sus propios controles y como tal, puede tener un diseño único.
Por lo general, las páginas, de una página múltiple tienen pestañas
para que el usuario pueda seleccionar las páginas individuales.
Una página múltiple incluye dos páginas, llamadas Página1 y Página2.
Cada uno de estos es un objeto de Página y juntos representan
la colección de Páginas de MultiPage .
Si se agrega más páginas, se convierten en parte de la misma colección
de páginas .
Ejercicio 1
Crear una aplicación que permita
ingresar en una pagina los datos del
alumno y en la otra pagina los
cursos
Solución 1
Abrir el archivo de Excel:
02MACROSMULTIPAGE
1.- Clic en la ficha Programador
2.- Clic en el icono: Visual Basic
1.- Clic derecho en: VBAProject
3.- Clic en la opción: UserForm
2.- Clic en la opción: Insertar
Pulsar: F4 (Ventana de Propiedades) Propiedad Caption: REGISTRO DE ALUMNOS Control MultiPage, insertado en el formulario
Propiedad StartUpPosition: Centrar en pantalla
Propiedad Name : frmregistro
Clic y arrastre del icono
Multipage (Pagina
Múltiple) hacia el
formulario
En la pagina 1 (Page 1)
Caption: DATOS DEL ALUMNO
Insertar el objeto Frame
(Marco), hacia el
formulario
Propiedad Caption: DATOS
PERSONALES
Seleccionar un tipo de letra,
estilo: Negrita y tamaño: 14
Clic en la flecha debajo de
Clic en el
la propiedad ForeColor
botón: Aceptar
Clic en los tres puntos consecutivos de la
propiedad Font
Seleccionar un color
Clic y arrastre del icono
Label (Etiqueta), dentro
En la propiedad
del Frame (Marco)
caption, digitar:
CODIGO :
Clic en la flecha abajo de
la propiedad: BorderColor
Clic en la flecha abajo de
la propiedad: BorderStyle
Seleccionar un color
Clic en la opción:
1- frmBorderStyleSingle
Clic en la flecha abajo de
la propiedad: Autosize
Seleccionar el objeto Frame (Marco)
Clic derecho / Pegar = Ctrl + V
Clic en la opción: True
Copiar y pegar objetos
Segundo objeto Label
Seleccionar el objeto
Clic derecho / Copiar = Ctrl + C
ALINEACION DE OBJETOS
Seleccionar los objeto con: Ctrl + Clic
Modificar el caption por PATERNO :
De la barra de menús, clic
en la opción: Formato
Agregar los siguientes Clic en la opción: Alinear
objetos Label (Etiquetas)
Clic en la opción: Derecha
Objetos alineados
a la derecha
Propiedad Name txtcodigo
Clic en la flecha abajo de
la propiedad: BackColor
Clic y arrastre del icono Seleccionar un color
TextBox (Cuadro de
Texto), dentro del Frame
(Marco)
Clic en la flecha abajo de
Clic en la flecha abajo de la propiedad: Font
la propiedad: ForeColor
Seleccionar un color
Seleccionar la fuente, estilo: Negrita, tamaño : 16
Clic en
el botón:
Aceptar
Clic en la flecha abajo de
la propiedad:
BorderStyle
Seleccionar la
opción:
frmBorderStyleSingle
Clic en la flecha abajo de
la propiedad: BorderColor
Seleccionar un color
ALINEACION AL MEDIO INSERTAR EL OBJETO COMBOBOX (CUADRO COMBINADO)
Seleccionar los objetos:
Label y TextBox
Clic y arrastre del icono
Clic en: Formato ComboBox (Cuadro
Combinado), dentro del
Frame (Marco)
Clic en: Alinear
Clic en la opción : Medio
Copiar y pegar los
cuadros de textos
Propiedad Name:
cbosexo
Clic en la flecha abajo de
la propiedad: BackColor
Seleccionar un color
Clic en la flecha abajo de
la propiedad: Font
Clic en la flecha abajo de Clic en
la propiedad: ForeColor el botón:
Seleccionar la fuente, estilo: Negrita, tamaño : 16 Aceptar
Seleccionar un color
Clic en la flecha abajo de
la propiedad: BorderStyle
Clic en la opción: Copiar los cuadros de textos
1- frmBorderStyleSingle
Alinear los objetos
Clic en la flecha abajo de
la propiedad: BorderColor
Seleccionar un color
Formato a una pagina (Page 1)
Clic en el primer Page1
Clic en los tres puntos consecutivos
de la propiedad Picture
Doble Clic en el
archivo img01
Clic en la flecha abajo de la
propiedad: TransitionEffect
Clic en la transición 8
Tiempo de transición Propiedad TransitionPeriod : 10000
Clic en la flecha abajo de la
propiedad: PictureSizeMode
Clic en la opción: 1- frmpictureSizeModeStretch
Propiedad del objeto Frame (Marco)
Clic en los tres puntos consecutivos
de la propiedad: Picture
Doble clic en el archivo:
img01
Clic en la flecha abajo de la
propiedad:
PictureSizeMode
Clic en la opción:
Propiedad del objeto Multipage 1- frmPictureSizeModeStretch
Clic en los tres puntos
consecutivos de la propiedad: Font
Seleccionar un tipo de letra,
estilo: Negrita y tamaño: 14 Clic en el
botón:
Aceptar
Clic en la flecha abajo de la
propiedad: ForeColor
Seleccionar un color
En la pagina 2 (Page 2), propiedad
Caption: CURSOS DEL ALUMNO
Clic en la flecha abajo de la
propiedad: Style
Clic en la opción:
1.-
frmTabStyleButtons
Diseño de la pagina 2 (Page 2)
Objeto Name Objeto Name
TextBox txtcurso TextBox txtpronotas
TextBox txtn1 TextBox txtexfinal
TextBox txtn2 TextBox txtpromfinal
TextBox txtn3
TextBox txtn4
Clic en los tres puntos consecutivos
de la propiedad: Transition Effect
Doble clic en el
Clic en la flecha abajo de la archivo: img02
propiedad: Transition Effect
En la propiedad Clic en la opción 2
TransitionPeriod
Digitar 10000
Clic en la flecha abajo de la
propiedad:
PictureSizeMode
Clic en la opción: 1- frmpictureSizeModeStretch
Objeto Frame2 (Marco) Doble clic en el archivo:
img02
Clic en la flecha abajo de
la propiedad: Picture
Clic en la flecha abajo de la
propiedad: PictureSizeMode
Clic en la opción: 1-
frmPictureSizeModeStretch
Objeto CommandButton (Botón de comando)
Clic y arrastre del icono
CommandButton (Botón de
comando)
Propiedad Name cmdnuevo
Clic en los tres puntos consecutivos Clic en
Propiedad Caption NUEVO de la propiedad: Font el botón:
Seleccionar la fuente, estilo: Aceptar
Negrita, tamaño : 14
Clic en la flecha abajo de
la propiedad: BackColor
Copiar y pegar los
objetos CommandButton
Seleccionar un color
Clic en la flecha abajo de
la propiedad: ForeColor
Objeto Name Caption
Seleccionar un color
CommandButton1 cmdnuevo NUEVO
CommandButton2 cmdgrabar GRABAR
CommandButton3 cmdsalir SALIR
Nombre de los objetos de la pagina 1 (Page 1)
Objeto Name
TextBox1 txtcodigo
TextBox2 txtpaterno
TextBox3 txtmaterno
TextBox4 txtnombres
ComboBox1 cbosexo
TextBox5 txtedad
TextBox6 txtcorreo
En el objeto UserForm, evento Activate Botón Nuevo (cmdnuevo)
Limpiar los cuadros de
Se agregan los textos
elementos al objeto
cbosexo (ComboBox)
Se muestra el valor inicial del objeto
cbosexo (ComboBox)
Para iniciar la primera
pagina (Page1), se usa el
método value=0 Limpiar los cuadros de
textos
Se enfoca en la primera pagina (Page 1)
Se toma el enfoque del objeto txtcodigo
Botón Grabar (cmdgrabar)
Se verifica si no se ingreso ningún dato en los objetos de la pagina 1 (Page 1)
Se envía un mensaje
Se direcciona hacia la pagina 1 (Page1) y se toma el enfoque hacia el objeto txtcodigo
Se verifica si no se ingreso ningún dato en los objetos de la pagina 2 (Page 2)
Se envía un mensaje
Se direcciona hacia la pagina 2 (Page2) y se toma el enfoque hacia el objeto txtcurso
Se declara una variable contadorfilas de tipo Long, para el conteo de las filas
Se declara un objeto hoja de tipo Worksheet
Se setea el objeto hoja, hacia la Hoja 1 (1) (Hoja Registro)
Se utiliza a la variable contadorfilas, la cual contiene al método Cells del objeto hoja.
Con el primer parámetro, [Link], se realiza el conteo de fila y va hacia la
ultima fila de la hoja electrónica, cuyo valor es: 1048576 y se almacena hacia la
variable contador de filas (Contadorfilas= 1048576)
El segundo parámetro 1, es la columna A
Con el método End(xlUP), retrocede a la fila anterior
Retrocede a la fila anterior, hasta encontrar un valor.
El valor de la columna A es: CODIGO
Con Offset(1,0) , Pasa a la siguiente fila, la cual sería la última fila libre.
Row = Se Indica que grabe el número de la fila encontrada
SE ALMACENAN LOS DATOS
HACIA LA HOJA ELECTRONICA
Se crea un procedimiento que permita calcular
el promedio de notas y el promedio final
Doble clic en el objeto: txtexfinal
En el evento change, se utiliza al
método calcularpromedios
Botón Salir (cmdsalir)
Se agrega un Modulo
Clic derecho en el proyecto VBAProject
Clic en la opción: Insertar Clic en la opción:
Se genera una macro
Módulo
mostrarformulario
Por medio del método show
del objeto frmregistro, se
muestra al formulario
Módulo agregado al proyecto
En la hoja electrónica
Clic en la Ficha Programador
Clic en el icono:
Diseño Clic en la macro: Mostrarformulario
Clic en el icono Insertar
Clic y arrastre formando un área rectangular
Clic en el icono: Botón
Clic en el botón: Aceptar
Se muestra el siguiente botón 1
Digitar: INGRESO
Clic en el
botón: Ingreso
Clic en el
botón: Grabar