Procesamiento de Datos

LABORATORIO 06: MACROS NIVEL BÁSICO

Objetivos:

• Escribir algoritmos y pseudocódigos para los casos planteados

• Crear un algoritmo usando PSEINT
• Utilizar instrucciones de programación.
• Crear y personalizar formularios
• Programar los controles de los formularios

Equipos, Materiales, Programas y Recursos:

• PC personal con Windows 10 Professional.

• Microsoft Office Excel 2016
• Material adicional en Canvas Tecsup.

Introducción:

Este laboratorio nos permite conocer los elementos fundamentales de los lenguajes de programación,
la importancia de los algoritmos, nos da un alcance de los diferentes lenguajes de programación.
El laboratorio está planificado para Diseñar, personalizar y programar formularios e ingresar datos
que después serán trasladados hacia una hoja de cálculo de Excel 2016.

Seguridad:

 Prever tener datos de internet / conexión a internet para poder trabajar el laboratorio.
 Tener completamente cargada la batería de la laptop para trabajar sin inconvenientes.
 Antes de apagar la laptop asegurarse de guardar toda la información del laboratorio.
 Al culminar la sesión de laboratorio, apagar correctamente la computadora o laptop.

Preparación:

Para ello el alumno previamente deberá haber revisado el material publicado en el CANVAS, la
participación activa en el transcurso de la clase previa al desarrollo del Laboratorio y así lograr
cumplir con los objetivos y metas trazados al final de cada clase.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Procedimiento y Resultados:

Descargar el programa PSEINT y DFD de su sitio virtual “CANVAS”. El programa DFD

servirá para realizar los DFD o Diagramas de flujo de datos y el PSEINT para comprobar la
estructura algorítmica planteada.

Pseudocódigo y diagramas de Flujo

Para este ejemplo se utilizará el PSEINT, hay que recordar algunos conceptos de matemática:
1. Ejemplo - Hallar el área de un triangulo
Inicio del programa

Fin del programa

Como se puede apreciar el PSEINT usa una sintaxis de PROCESO- FINPROCESO que equivale decir INICIO
– FIN que corresponde al desarrollo de un algoritmo estándar.
Para este caso el comando ESCRIBIR, permite mostrar los mensajes que irán siempre entre comillas La
palabra LEER permitirá leer las variables según lo que escoja el usuario.
Los cálculos como operaciones, se utilizarán el símbolo  que significa asignación en una estructura de
algoritmo. Aunque el PSEINT también puede validar el símbolo “=” como alternativa si se realiza las
configuraciones respectivas.
El diagrama de flujo del área de un triángulo en DFD sería el siguiente:

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Realice los siguientes ejercicios en PSEINT y DFD

2. Crear el DFD y código que permita sumar 3 números. Guarde ambos archivos con el nombre ejercicio2.

3. Crear un algoritmo que permita ingresar 3 números enteros y luego muestre el promedio, guarde ambos
archivos con el nombre ejercicio3.

4. Crear un algoritmo que permita ingresar el valor de tres productos, sume los tres valores (Subtotal), calcule
el IGV (0.15%) y calcule el Total, guarde ambos archivos con el nombre ejercicio4.

5. Calcular el área y el volumen de un cilindro. Su pseudocódigo deberá de pedir el radio (R) y la altura (H),
guarde ambos archivos con el nombre ejercicio5

6. Escriba el pseudocódigo que permita convertir un monto en soles a un monto en dólares (cambio 3.52),
deberá de ingresar el monto y el tipo de cambio. Guarde ambos archivos con el nombre ejercicio6.

7. Escriba un algoritmo que permita ingresar la velocidad de un auto en km por hora y lo convierta a metros
por segundo, guarde ambos archivos con el nombre ejercicio7.

8. Escriba un algoritmo que permita hallar la Nota final de un alumno, este tendrá tres notas de laboratorios,
cuyo promedio vale el 80% del curso y un examen final que vale el 20% del curso. Guarde ambos archivos
con el nombre ejercicio9.

Excel

1. Abrir el libro asignado que corresponde al laboratorio y ubíquese en la primera hoja

(hoja 1).
a. En la pestaña desarrollador (Programador) seleccione macros y cree el nuevo macro
“descuentotardanza”, esta macro se encargará de determinar si un trabajador llego a
tiempo o llego tarde.
b. En la ventana que aparece por defecto ingrese el siguiente código.

Sub descuentotardanza()

Dim llegada, descuento As Integer

hora = ActiveCell.Value
llegada = Minute(hora)
If llegada > 40 Then
descuento = llegada - 30
MsgBox "Se le descontará " & descuento & " minutos el día de hoy"
Else
MsgBox "Gracias por su puntualidad"
End If

End Sub

c. Seleccione cualquier celda que contenga la hora y ejecute la macro ¿Qué es lo que
hace el programa?

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

d. Modifique el programa para que aplique la tardanza a los 15 minutos después de las
8, en vez de a los 40.
e. Cree el diagrama que flujo que represente el programa.
f. En la segunda hoja se generará una macro el cual permitirá hacer descuentos en el
precio de un producto dependiendo del volumen de la compra (mientras más
unidades compren, mayor será el descuento).
g. Para esto cree un botón (al igual que en el laboratorio anterior) y nómbrelo
“descuentovolumen” y asígnele un nuevo macro llamado “descuentovolumen”.

Sub descuentovolumen()
Dim cantidad1 As Double
Dim cantidad2 As Double
Dim cantidad3 As Double
Dim precio1 As Double
Dim precio2 As Double
Dim precio3 As Double
Dim precio4 As Double
Dim unid As Double

cantidad1 = Range("a2")
cantidad2 = Range("a3")
cantidad3 = Range("a4")
precio1 = Range("b2")
precio2 = Range("b3")
precio3 = Range("b4")
precio4 = Range("b5")
unid = Range("b8")

If unid <= cantidad1 Then

Range("b9") = precio1
Range("b10") = precio1 * unid
ElseIf unid <= cantidad2 Then
Range("b9") = precio2
Range("b10") = precio2 * unid
ElseIf unid <= cantidad3 Then
Range("b9") = precio3
Range("b10") = precio3 * unid
Else
Range("b9") = precio4
Range("b10") = precio4 * unid
End If
End Sub

h. ¿Qué es lo que hace el programa?

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

2. En la hoja 3 nos encargaremos de crear dos macros que calculen ciertos

beneficios para los trabajadores

a. Toda el área comercial se desplaza constantemente para cubrir rutas

según zonas, los puestos de mando medio en adelante utilizan su
movilidad propia y los demás usan el transporte público para realizar
este recorrido mensual.

b. Se asigna a cada uno un monto específico: Si el sueldo está por encima

de los 2500 soles, el monto será de 600 soles. Si está por debajo de
2500 soles, el monto será de 450 soles.
c. Crear una macro con el siguiente código, ubíquese en la celda donde
desea calcular la movilidad y ejecútelo.

Sub calc_movilidad()
Dim sueldo As Integer
sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value
If sueldo >= 2500 Then
ActiveCell = 600
Else
ActiveCell = 450
End If

End Sub

d. Usando como referencia el código anterior cree una macro que permita
calcular la alimentación según las siguientes pautas.
e. Si el colaborador tiene un sueldo menor a 2000 soles se le cubre al
100% la alimentación en el concesionario de la empresa, por lo que el
beneficio es de 200 soles. Si tiene un sueldo mayor a 2000 soles, la
alimentación se cubre al 50% por lo que el beneficio sería sólo de 100
soles. Saldría un mensaje con la explicación del monto asignado.

Envíe todos sus archivos empaquetados a la plataforma Canvas Semana 06.

REVISEMOS AHORA FORMULARIOS

¿Qué es un formulario?

Se llama formulario a una ventana que permite realizar una determinada operación o aplicación.

¿Qué es una propiedad?

Una propiedad define el aspecto físico de un control como tamaño, color, posición, tipo de letra, etc.

CONTROL NOMBRE DESCRIPCION

Etiqueta: Texto que proporciona

Label información. El nombre de un control, por
ejemplo.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Cuadro de texto: para ingreso de datos por

TextBox parte del usuario.

Cuadro combinado: despliega los valores

ComboBox posibles de un campo. El usuario puede
ingresar otro valor.

Botón de comando: ejecuta un programa

CommandButton asociado.

Botón de opción: permite marcar una sola

OptionButton opción de entre un grupo de opciones

Marco: permite agrupar controles dentro de

Frame su marco para tener una mejor presentación
de su formulario.

EMPEZAR A TRABAJAR DE FORMA GUIADA

1. Abrir una nueva hoja de cálculo

2. Seguidamente se debe ingresar información de algunos datos que se requiere en
administración pedagógica, como en la imagen, desde la celda B2 hasta la celda
H2.

3. Luego para poder crear un formulario en el editor de Visual Basic primero se debe de
activar el panel del programador/Dearrollador “Según versión” para eso hacemos
clic según la imagen y la versión “Opciones de Excel”.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

A2

4. A continuación, se visualizará una ventana, donde se debe de activar la opción

“Mostrar ficha programador en la cinta de opciones”, luego hacemos clic en el
botón Aceptar.

¿Qué sucede cuando hacemos clic en el botón Aceptar? Conoces otra forma
para crear un formulario. Explica

¿Cree qué es necesario activar la ficha del programador/Desarrollador? ¿Porque?

5. A continuación, haremos clic en la ficha del programador, seguidamente

hacemos clic en el botón Visual Basic de la sección código.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

6. Esta acción permitirá visualizar la ventana del editor de Visual Basic

6.1 A continuación insertamos un formulario para empezar a diseñar en nuestro

formulario.

Para ingresar un formulario hacer clic en el menú insertar, luego hacer clic
en la opción “UserForm” tal como se ve en la imagen:

6.2.- Una vez hecho un clic en UserForm se visualizará lo que se observa en el

cuadro siguiente al cual hay que:
Poner nombre a cada una de las letras según
corresponda:

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

7. A continuación, diseñaremos el siguiente formulario en el editor de Visual

Basic. Poner Nombre según corresponda

INSERTAR EN EL FORMULARIO LOS SIGUIENTES CONTROLES

A. Primero insertamos 4 controles Label (etiqueta) para:

 Apellidos, Nombres, Fecha de nacimiento y edad.
B. Luego insertamos 4 controles TextBox (cuadro de texto) para:
 Cada etiqueta.
C. Luego insertamos un control Frame (Marco o contenedor de objetos)
D. luego insertamos 4 controles OptionButton (botones de opción):
 Estos controles Option deben estar dentro del control Frame que son:
soltero, casado, viudo y divorciado, tal como en la imagen.
E. Seguidamente insertamos nuevamente 2 controles Label (etiqueta) para:
 Área y Carga horaria
F. Después insertamos 1 control Cuadro combinado para: área.
G. Luego 1 TextBox (cuadro de texto) para carga horaria.
H. Finalmente insertamos 3 controles “Command Button” (Botones de comando).
NOTA:

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

 Con la propiedad Caption les pondremos nombres al Formulario, a las

Etiquetas, a los OptionButton, a los Botones de Comandos y al Control
Frame.
 Con la propiedad BackColor cambiaremos de color al Formulario, Control
Frame, Las Etiquetas y Los Botones de Comando.
8. A continuación, procederemos a programar en algunos controles para poder
insertar los datos del formulario a la hoja de cálculo.
8.1. Procederemos a programar el botón “Limpiar”, el botón limpiar se utilizará
para borrar el contenido de todos los casilleros y desactivar las opciones
seleccionadas para volver a ingresar otros datos de otro profesor.
Para eso hacemos doble clic en el botón limpiar y procedemos a ingresar
la siguiente secuencia de código.
Private Sub CommandButton1_Click()
TextBox1.Text = Empty
TextBox2.Text = Empty NOTA:
TextBox3.Text = Empty La instrucción
TextBox4.Text = Empty Empty permite
borrar el
TextBox5.Text = Empty
contenido o el
OptionButton1.Value = False Caption o el
OptionButton2.Value = False Text de un
control. La
OptionButton3.Value = False
OptionButton4.Value = False
ComboBox1.Text = Empty
TextBox1.SetFocus
End Sub
8.2.- A continuación, procederemos a programar el botón “Enviar Datos”, el
botón enviar datos se utilizará para trasladar los datos del formulario
hacia la hoja de cálculo de Excel.
Para eso hacemos doble clic en este botón y procedemos a insertar la
siguiente secuencia de código.

Private Sub CommandButton2_Click()

Sheets("Hoja1").Select  Seleccionando la hoja con la que se trabajara
Range("B2:H19").Select  Seleccionando el rango de celdas a utilizar
Do While Not IsEmpty(ActiveCell)  Hacer mientras no esté vacio
ActiveCell.Offset(1, 0).Select  Escribir en la siguiente fila
Loop

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

ActiveCell = TextBox1.Text  Llenando en la celda el contenido del text1

ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox2.Text  Llenando en la celda el contenido del text2
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox3.Text  Llenando en la celda el contenido del text3
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox4.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna

If OptionButton1.Value = True Then Si el valor de option1 esta activado

entonces

ActiveCell = "Soltero"  Llenando en la celda “Soltero”

ElseIf OptionButton2.Value = True Then
ActiveCell = "Casado"
ElseIf OptionButton3.Value = True Then
ActiveCell = "Viudo"
ElseIf OptionButton4.Value = True Then
ActiveCell = "Divorsiado"
End If  Fin Del Si
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = ComboBox1.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox5.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
End Sub
8.3.- Seguidamente programaremos el Combobox, este control se utilizara para seleccionar
una Área o curso que el profesor Dicta, dependiendo del curso seleccionado saldrá
una cierta cantidad de horas automáticamente en el casillero carga horaria.

Private Sub ComboBox1_Click()

Select Case ComboBox1.Text
Case "Matematica"
TextBox5.Text = "14"
Case "Comunicación"
TextBox5.Text = "13"
Case "Procesamiento de Datos"
TextBox5.Text = "10"

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Case "Electricidad"
TextBox5.Text = "8"
Case "Actitudes y Valores"
TextBox5.Text = "5"
Case "Ingles"
TextBox5.Text = "6"
Case "Química"
TextBox5.Text = "9"
Case "Dibujo técnico"
TextBox5.Text = "7"
Case "Programación"
TextBox5.Text = "4"
End Select
End Sub
8.4.- Seguidamente programaremos en el evento Initialize del Formulario el
ingreso de las áreas o cursos al control ComboBox. “Clic derecho en una
área blanca del formulario-Buscar en actívate y cambiar por initialize”

Private Sub UserForm_Initialize()

ComboBox1.AddItem ("Matematica")
ComboBox1.AddItem ("Comunicación")
ComboBox1.AddItem ("Procesamiento de Datos")
ComboBox1.AddItem ("Electricidad")
ComboBox1.AddItem ("Actitudes y Valores")
ComboBox1.AddItem ("Ingles")
ComboBox1.AddItem ("Química")
ComboBox1.AddItem ("Dibujo Técnico")
ComboBox1.AddItem ("Programación")
End Sub
8.5.- Luego programaremos el botón “Finalizar”, el botón finalizar se utilizara
para finalizar la aplicación con el formulario.
Par eso hacemos doble clic en este botón de comandos.
Private Sub CommandButton3_Click()
End  Finalizar aplicación
End Sub
8.6.- Finalmente insertaremos un módulo haciendo clic en el menú insertar y después
haremos clic en la opción módulo donde programaremos que aparezca el
formulario en la hoja de cálculo de Excel utilizando un botón de comando.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

8.7.- Luego en la ventana de código del módulo ingresamos la siguiente secuencia.

Sub Activarformulario()
UserForm1.Show
End Sub

NOTA: En este módulo crearemos una subrutina

llamada activar formulario. Un modulo es como si fuera
una macro. El método Show permite llamar a un
formulario en este caso estamos llamado al
formulario1.

9.- Para Finalizar insertaremos un botón de comando en la hoja de cálculo y le

asignaremos la macro o módulo que habíamos creado con el nombre “Activar
Formulario”
9.1.- Hacemos clic en el botón Insertar de la sección controles del panel programador
y hacemos clic sobre el botón (control de formulario).

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

9.2.- Una vez hecho clic en el botón, insertarlo en la hoja de cálculo, una vez diseñado
se visualizará una ventana donde pedirá se le asigne una macro, seleccionar el
nombre que se le dio en el editor de Visual Basic “Activar Formulario”, luego en
la opción macros en: seleccionamos Este libro y hacemos clic en el botón
Aceptar.

9.3.- Finalmente le ponemos un nombre al botón de comando que será “Ejecutar Formulario”
9.4.- Luego hacemos clic en este botón Ejecutar Formulario y mostrará el formulario creado.
9.5.- Procedemos a llenar los casilleros en blanco con los datos que se requiere de los
profesores.
9.6.- Luego para activar el formulario e ingresar los datos del formulario a la hoja de cálculo
hacemos clic en el botón de comandos Enviar Datos.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

9.7.- Y así sucesivamente empezamos a ingresar los datos de los profesores a nuestra
hoja de cálculo.
9.8.- Finalmente guardamos nuestro trabajo con el nombre TareaMacros_Nombre,
En el casillero Guardar como tipo seleccionamos la opción “Libro de Excel
habilitado para macros” y hacemos clic en Guardar.

BUSCAR INOFRMACIÓN Y RESPONDER:

¿La instrucción Empty para qué sirve?

empty() determina si una variable está vacía. Una variable es considerada vacía si no
existe (No declarada) o si su valor es igual a FALSE

¿Según su apreciación que utilidad le da Ud. a IF THEN?

La instrucción If…Then es de bastante utilidad para ejecutar acciones si una

condición se cumple. es una palabra clave o reservada de Visual Basic, que significa
en español (si) y Then es otra palabra reservada que significa en español (entonces).

¿Según su apreciación que utilidad le da Ud. a DO WHILE?

La instrucción do-while permite repetir una instrucción o una instrucción compuesta

hasta que una expresión especificada sea false

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

¿Según tu apreciación para que nos sirve un MODULO?

Los módulos nos permiten organizar el código de VBA en diferentes archivos dentro

de VBA de manera rápida, fácil e intuitiva

¿Qué propiedades has utilizado para los controles y para qué sirve cada una de
las propiedades que se ha utilizado?

Todos los controles disponen de una serie de propiedades las cuales podemos cambiar al
incluirlos en nuestras aplicaciones. Ejemplos de propiedades son el color, el tipo de letra, el
nombre, el texto, el tamaño de letra, etc...

¿Crees que es importante trabajar con formularios? Justifica tu respuesta.

Si creo que es muy importante trabajar con formularios porque un formulario es un
documento físico o digital que sirve para recopilar información de manera estructurada, para
después almacenarla y ocuparla con un fin en especial. Está conformado por casillas, y los
datos a solicitar varían de acuerdo con su objetivo.

Conclusiones:

Indique con color azul las conclusiones a las que llegó acerca de los temas tratados de manera
práctica y teórica en esta unidad:
 una macro es un conjunto de comandos que se almacena en
un archivo de Excel para que el usuario la ejecute cuando lo
desee. El objetivo principal de esta funcionalidad es agilizar
los flujos de trabajo mediante la automatización de tareas
monótonas, repetitivas y rutinarias.
 Un macro nos permite hacer más rápido los reportes en
Excel, crear reportes automáticamente, dar formato
rápido a informes.
 Crear funciones personalizadas.
 Las macros de Excel nos permiten automatizar tareas que
realizamos cotidianamente de manera que podamos ser más
eficientes en nuestro trabajo
 Si necesitas analizar datos de una manera rápida lo
recomendable es usar la función de macros

C21/C22
Rúbrica

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Resultado 2 Los estudiantes aplican conocimientos de matemática, ciencia y tecnología para identificar
y analizar problemas en equipos de cómputo, redes y sistemas de telecomunicaciones.
Criterio de desempeño 2.2. Utiliza conceptos de ciencias e informática en el diagnóstico y evaluación de
sistemas de cómputo, redes y sistemas de telecomunicaciones
Curso Procesamiento de Datos Periodo 2022-2

Actividad Macros Nivel Básico Semestre I

Nombre del Alumno Semana 06

Docente Fecha Sección

Requiere No Puntaje
Criterios a Evaluar Excelente Bueno
Mejora Aceptable Logrado
3 2 1 0
 Conocen y utilizan diferentes tipos de datos.
5 4 3 2-0
 Conocen y utilizan diagramas de flujo
6 5 3 1
 Conocen y utilizan estructuras condicionales.
6 4 3 2-0
 Realizan formularios de datos
Total 20 15 10 5-0

Criterios de Evaluación

Acciones a cumplir Menos

4
 Cumple con el desarrollo de los laboratorio 06 en clase
1
 Ortografía y redacción.

Puntaje Final

Comentarios respecto del desempeño

del alumno

Descripción

Demuestra un completo entendimiento del problema o realiza la actividad cumpliendo

Excelente
todos los requerimientos especificados.
Demuestra un considerable entendimiento del problema o realiza la actividad cumpliendo
Bueno
con la mayoría de los requerimientos especificados.
Demuestra un bajo entendimiento del problema o realiza la actividad cumpliendo con
Requiere mejora
pocos de los requerimientos especificados.
No Aceptable No demuestra entendimiento del problema o de la actividad.

Dpto. de Tecnologías digitales y Gestión