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:

 Prevé y 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 > 8 Then
descuento = llegada - 15
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?

Muestra un mensaje referente a la hora de llegada

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?

Cambia el precio final al momento de modificar la cantidad

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 >= 2000 Then
ActiveCell = sueldo / 10
Else
ActiveCell = sueldo / 20
End If
If sueldo >= 2000 then
MsgBox "El colaborador tiene un sueldo menor a 2000 soles. Se cubre
al 100%. Beneficio: " & beneficio & " soles."
Else
beneficio = 100
MsgBox "El colaborador tiene un sueldo mayor a 2000 soles. Se cubre
al 50%. Beneficio: " & beneficio & " soles."
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

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Etiqueta: Texto que proporciona

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

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

Se agrega en la barra de herramientas la opción de desarrollador

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

Sí, porque sin esa ventana habilitada no podríamos acceder a los macros

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:

C
B
D

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
TextBox3.Text = Empty
TextBox4.Text = Empty
TextBox5.Text = Empty
OptionButton1.Value = False
OptionButton2.Value = False
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
Range("B2:H19").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

ActiveCell = TextBox1.Text
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2.Text
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3.Text
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4.Text
ActiveCell.Offset(0, 1).Select

If OptionButton1.Value = True Then

ActiveCell = "Soltero"
ElseIf OptionButton2.Value = True Then
ActiveCell = "Casado"
ElseIf OptionButton3.Value = True Then
ActiveCell = "Viudo"
ElseIf OptionButton4.Value = True Then
ActiveCell = "Divorsiado"
End If
ActiveCell.Offset(0, 1).Select
ActiveCell = ComboBox1.Text
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5.Text
ActiveCell.Offset(0, 1).Select
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"
Case "Electricidad"

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

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 ("Cálculo")
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?

Permite borrar el contenido o el Caption de un control.

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

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Me proporciona un valor de prueba lógico

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

Para repetir un conjunto de expresiones

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

Me permite organizar el código VBA

¿Qué propiedades has utilizado para los controles y para qué sirve cada una?

- If (sirve para determinar si un valor es verdadero o falso)

- End sub (para terminarla expresión) y las propiedades que se ha utilizado

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

Si ya que tiene un mejor aspecto y es más practico al momento de usarlo y sirvieron para
ingresar datos de una manera más organizada.

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:

Los algoritmos constituyen una manera de describir cualquier situación mediante una
secuencia de pasos organizados de manera lógica. Su objetivo es aclarar problemas,
identificar necesidades, describir procesos y obtener resultados consistentes. Se busca la
existencia de alternativas para diversas soluciones posibles.

En cuanto a los diagramas de flujo, representan gráficamente un algoritmo con el propósito

de facilitar su comprensión. Estos diagramas utilizan una variedad de símbolos para
especificar componentes iniciales, procedimientos, posibles caminos y resultados,

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

contribuyendo así a una visualización más clara y completa del proceso descrito por el
algoritmo.

C21/C22

Rúbrica

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 Periodo 2023-1
Procesamiento de Datos
Actividad Semestre I
Macros Nivel Básico
Nombre del Alumno Semana 06

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Docente Edgar Loayza Lozada 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