Manual de Excel Avanzado
Práctica de Laboratorio Nº 3
Objetivos:
Diseñar una tabla de multiplicar para que pueda ser utilizada por un niño que no
necesariamente sepa el uso de Excel.
• Usar la grabadora de macros.
• Creación de formatos personalizados
• Uso de las funciones:
SI, ELEGIR, [Link], ESBLANCO, ENTERO Y ALEATORIO.
• Uso del menú Pegado especial para convertir fórmulas en valores.
• Uso de las herramientas para crear Formularios.
• Edición de macros en el Editor de Visual Basic para Aplicaciones.
1. Confeccione la Tabla de Multiplicar siguiendo siguientes instrucciones:
2. En la celda B5 escriba la fórmula = B$3 y luego copiarla en el rango B6:B16
3. Llene el rango C5:C16 con números consecutivos del 1 al 12.
4. En la celda C3 escribir el carácter ç (Alt + 0231) y darle el tipo de letra Wingdings.
Luego alinearlo a lado derecho de la celda
5. Igualmente, escribir en la celda D17 el carácter è (Alt + 0232) y darle el tipo de letra
Wingdings.
Mg. Edith Giovanna Cano Mamani Pág. 104
Manual de Excel Avanzado
6. En la celda E5 escribir la formula: =B5*C5 y luego copiarla en el rango E6:E16.
7. Luego seleccione el rango C5:C16 y con el menú Formato/Celdas/Número, cree el
formato personalizado:
Tipo: "x"* 0 "=" .
8. Defina los siguientes nombres de rango:
A1:J17 TABLA C5:C16 NUMEROS
D5:D16 UNO E5:E16 DOS
F5:F16 CALIFICAR E17 ORDEN
F17 TOTAL K5:K16 ASCENDENTE
L5:L16 DESCENDENTE M5:M16 AZAR
9. En el rango AZAR escriba la formula =ENTERO(ALEATORIO()*12)+1
Ascendente
10. Confeccione las macros: Ajustar, Calificar, Borrar y Orden, para que realicen las
siguientes acciones: (use la grabadora de macros).
Ajustar – Seleccionar el rango TABLA.
– En la herramienta Zoom elegir Selección.
– Seleccionar la celda D5.
Calificar – Seleccionar el rango CALIFICAR
– Escribir la formula
Mg. Edith Giovanna Cano Mamani Pág. 105
Manual de Excel Avanzado
=SI(ESBLANCO(UNO);"";SI(UNO=DOS;"Bien";"Mal"))
y luego presionar Ctrl + Enter
– Seleccionar la celda TOTAL
– Escribir la formula =[Link](CALIFICAR;"Bien") y luego
hacer un clic en el botón Introducir que se encuentra en la
barra de fórmulas.
– Seleccionar la celda D5.
Borrar – Seleccionar los rangos CALIFICAR, UNO y TOTAL
– Presionar la tecla Suprimir.
– Seleccionar la celda D5.
Orden – Seleccionar el rango ASCENDENTE,
– Copiar el rango haciendo clic en la herramienta de Copiar.
– Seleccionar el rango NUMEROS
– Llamar al menú Edición / Pegado especial / Valores y Aceptar.
– Presionar la tecla Escape para liberar el rango punteado.
– Seleccionar la celda B3, escribir en ella la formula
=ELEGIR(N3;2;4;10;12)
.. y luego presionar la tecla Enter.
– Seleccionar la celda D5.
11. Crear los botones AjustarTamaño, Calificar y BorrarTodo; y luego asignarles a
cada uno la macro correspondiente.
12. Diseñar el formulario como se muestra en la figura, conteniendo los elementos
siguientes:
Etiqueta Con el texto Edad:
Cuadro combinado Para elegir las edades escritas en el rango N5:N8 y
vinculado a la celda N3.
Cuadro de Grupo Para encerrar a los botones de opción
Botones de opción Para elegir Ascendente, Descendente o Al azar.
Estos botones de opción están vinculados con la
celda E17
Botón Aceptar Para asignarle la macro ORDEN
13. En la celda K3 escribir la formula:
=ELEGIR(E17,"ASCENDENTE","DESCENDENTE","AZAR")
14. A la derecha de la celda B3 diseñar un elemento de formulario del tipo Control de
número, para que vinculada a la celda B3, se encargue de aumentar o disminuir el
Mg. Edith Giovanna Cano Mamani Pág. 106
Manual de Excel Avanzado
valor de esta celda, desde un mínimo de 0 hasta un máximo de 12, y con incrementos
de 1.
15. Si se ingresa al Editor de Visual Basic para Aplicaciones de Excel, tendremos macros
semejantes a las siguientes::
Sub Ajustar()
[Link] Reference:="TABLA"
[Link] = True
Range("D5").Select
End Sub
Sub Borrar()
Range("UNO,CALIFICAR,TOTAL").Select
[Link]
Range("D5").Select
End Sub
Sub Calificar()
[Link] Reference:="CALIFICAR"
[Link] = "=IF(ISBLANK(UNO),"""",IF(UNO=DOS,""Bien"",""Mal""))"
[Link] Reference:="TOTAL"
[Link] = "=COUNTIF(CALIFICAR,""Bien"")"
Range("D5").Select
End Sub
Sub Orden()
[Link] Reference:="ASCENDENTE"
[Link]
[Link] Reference:="NUMEROS"
[Link] Paste:=xlValues
[Link] = False
Range("B3").Select
[Link] = "=CHOOSE(N3,2,4,10,12)"
Range("D5").Select
End Sub
16. En el Editor de Visual Basic modifique las 4 primeras instrucciones de la macro Orden,
para que queden de la forma siguientes:
Sub Orden()
Range(Range("K3")).Copy
Range("NUMEROS").PasteSpecial Paste:=xlValues
[Link] = False
Range("B3").Formula = "=CHOOSE(N3,2,4,10,12)"
Range("D5").Select
End Sub
17. Una vez que las macros se ejecuten sin errores, ocultar las columnas E, K, L, M y N.
18. A la celda TOTAL darle el siguiente formato personalizado:
Mg. Edith Giovanna Cano Mamani Pág. 107
Manual de Excel Avanzado
[=1]0 "Buena";0 "Buenas" .
19. Finalmente Guardar el Libro con el nombre Tabla de Multiplicar.
Como Usar La Tabla De Multiplicar
− En el cuadro de formulario elegir la edad que tiene el niño que va ha practicar la Tabla,
y el orden en que se desea que aparezcan los números a multiplicarse. Luego hacer un
clic en el botón Aceptar.
− La macro seleccionará entonces la tabla de multiplicar según la edad del niño. Sin
embargo si uno desea podrá luego seleccionar otra tabla haciendo clic en los botoncitos
de aumentar o disminuir número a la derecha de la celda B3.
− A continuación el niño deberá escribir (en la columna D) las respuestas
correspondientes a cada multiplicación.
− Una vez que termine de contestar deberá hacer un clic en el botón Calificar para saber
cuantas respuestas fueron buenas.
− Utilizar el botón BorrarTodo para borrar las respuestas y las calificaciones obtenidas,
y poder contestar las multiplicaciones otra vez nuevamente.
Mg. Edith Giovanna Cano Mamani Pág. 108