




















































Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Prepara tus exámenes
Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Prepara tus exámenes con los documentos que comparten otros estudiantes como tú en Docsity
Encuentra los documentos específicos para los exámenes de tu universidad
Estudia con lecciones y exámenes resueltos basados en los programas académicos de las mejores universidades
Responde a preguntas de exámenes reales y pon a prueba tu preparación
Consigue puntos base para descargar
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Comunidad
Pide ayuda a la comunidad y resuelve tus dudas de estudio
Ebooks gratuitos
Descarga nuestras guías gratuitas sobre técnicas de estudio, métodos para controlar la ansiedad y consejos para la tesis preparadas por los tutores de Docsity
Ejemplos de Macros VBA, y sus ejercicios para resolver los problemas
Tipo: Ejercicios
1 / 60
Esta página no es visible en la vista previa
¡No te pierdas las partes importantes!





















































2.1.1 Esquemas Automáticos
Nota: Vera que Excel selecciona automáticamente todas las filas seleccionadas y aplica la agrupación correspondiente.
2.1.2 Esquemas manuales
Nota: Agrupar manualmente significa que usted deberá seleccionar que filas son las que desea esquematizar. Sin embargo si desea agrupar mediante un dato, estas filas deben estar contiguas; si acaso tiene filas dispersadas por toda la tabla, es recomendable hacer una Ordenación primero por la columna que vaya a agrupar para poder realizar el esquema.
Algunas funciones estadísticas
Algunas Funciones de bases de datos.
2.4.1 Buscar
2.4.2 BuscarV Aprenderá a usar las funciones de búsqueda con que cuenta Excel.
2.5 Escenarios Aprenderá a crear escenarios para responder la pregunta ¿Qué pasa Si? Los escenarios muestran diferentes situaciones sobre una misma base de información.
La idea es que la fórmula que estamos usando, tome diversos valores y no del resultado. ¿Cuánto debemos pagar modificando la tasa de interés y la cantidad de meses a pagar, por ejemplo a 6, 12 y 24 meses?
3.3 Función Si Tenemos la siguiente relación de alumnos con su respectiva calificación final. La condición es: Si la calificación es mayor a 10.5 debe decir APROBADO , si no, debe decir DESAPROBADO.
La fórmula es:
¿Cómo modificas para que el primer alumno no salga desaprobado?
3.4.1 Función Si anidada
Tenemos un listado de alumnos y sus calificaciones finales, las condiciones para obtener una beca son:
La sintaxis es la siguiente:
3.4.1 Sumar Si Otra función de condición es la función SUMAR.SI() que permite hacer una suma condicional.
La función es: = SUMAR.SI( rango, criterio, rango_suma) Ejemplo:
3.5 Tablas Dinámicas Los informes de tabla dinámica permiten presentar desde distintos puntos de vista una misma información, usando para ello funciones como la suma o el promedio.
Tenemos la siguiente tabla de datos:
3.6 Gráficos Dinámicos
Es la misma idea de las tablas dinámicas pero con un gráfico. Se recomienda que para que los gráficos sean fáciles de entender, la tabla dinámica no debe tener más de dos campos de filas y dos de columnas. Realiza una gráfica dinámica del listado de alumnos de la práctica anterior. Debe quedar así:
3.7 Añadir Imágenes a una Gráfica Usaremos la opción efectos de Relleno dentro de las gráficas. El procedimiento es el mismo de crear una gráfica, la diferencia se encuentra en la pestaña TRAMAS en el botón efectos de relleno.
Insertamos un gráfico estadístico y vayamos a Formato de serie de datos / Opciones de Serie / Relleno / Relleno de trama y seleccionamos una trama.
4.1 Tablas Dinámicas 2 Personal de la Empresa Realizamos la siguiente tabla
Realice una consulta para cada columna.
4.3 Filtros Avanzados Abrir el Archivo Excel Avanzado 3 Hoja 4.
Y Realice Filtros para:
4.4 Tablas Dinámicas 4 Cursos CCI Sea la tabla:
Utilizando una tabla dinámica, mostrar la cantidad de cursos que ha realizado cada alumno en los diferentes períodos.
5.1 Macros: Formato de Fuente Nos ubicamos en la primera celda de la hoja 5.1 y vamos a Vista / MaĐros / Graďar MaĐro… , Dar el Nombre a la macro como FormatoFuente , crear un atajo de teclas C. Y hacemos clic en Aceptar.
Y Aceptar.
Ejemplo: 20 → Veinte Nos ubicamos en la Hoja 5.2 y vamos a Microsoft Visual Basic para Aplicaciones pulsando la combinación de teclas ALT + F11. Luego creamos un Módulo, haciendo clic derecho en VBAProject ;ExĐel Avanzado 4 …Ϳ y vamos a Insertar / Módulo, tal como se muestra en la figura siguiente:
En Módulo ingrese el código siguiente:
Function NumLetras(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("UNO", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUNO", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For I = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case I Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next I Select Case lnNumeroBloques Case 1 NumLetras = lcBloque Case 2 NumLetras = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL" & NumLetras) Case 3 NumLetras = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES" & NumLetras) End Select