INFORMATICA II Compilador: Lic. Rosell Alejandro Valderrama Chumbes INTRODUCCIN Microsoft Excel, es una aplicacin prctica orientada a construir libros y hojas que facilitan eltrabajoymejorarlaproductividadesdecirmanejarExcelconeficiencia,enla asignatura de Informtica II se aprender a usar las herramientas, comandos y funciones orientadas a la parte contable. Seiniciarresolviendocasosoaplicacionescontablesyadministrativasparaquese vayan familiarizando con las funcionalidades que brinda Excel. DesarrollodeaplicacionesconmacrosyprogramacinVBAVisualBasicforAplication, conprocedimientosycreacindefuncionesparalaoptimizacinenfuncionalidady procesos. NDICE INTRODUCCIN SUMILLA UNIDAD IAPLICACIONES CON EXCEL Sesin 1 Clculo de Depreciacin Sesin 2Letras por Cobrar Sesin 3Libro Caja y Bancos Sesin 4Trabajar con Macros Sesin 5Comprobantes de pago Factura (Parte 1) UNIDAD IIVBA PARA EXCEL Sesin 6 Visual Basic para Aplicaciones Sesin 7Fundamentos de Programacin Sesin 8Aplicativo Factura (Parte 2) Sesin 9Creando Formularios y sus Controles Sesin 10Aplicativo Recibo por Honorarios SUMILLA LaasignaturadeInformticaIIpertenecealreacurriculardeformacinprofesional especializadaydenaturalezaprctica.Tieneelpropsitodebrindaralestudiantelas habilidades y destrezas en el manejo de las hojas electrnicas y elaboracin de frmulas electrnicasparaautomatizarprocesosdeclculoaplicado,paraqueelestudiantese desempeeconxitoenelcampoprofesionaldelaContabilidadylaAdministraciny NegociosInternacionales.Comprendelossiguientescontenidos:Desarrollode Aplicacionescontables,macrosysusaplicacionesavanzadasconVisualBasicpara Aplicaciones. Todo esto teniendo en cuenta la filosofa de la educacin Adventista. COMO ESTUDIAR LOS MDOLUS DIDCTICOS O TEXTOS AUTOINSTRUCTIVOS METODO A2D A2D El mtodo A2D, es un mtodo de f;acil aplicacin para la mayora de los estudiantes, inclusive para los no autodidactas. Si el estudiante aplica este mtodo su trabajo intelectual ser ms rpido y eficaz. A2D responde a las letras iniciales de los 3 pasos, que se propone para la lectura de una gua de autoaprendizaje, mdulo didctico o cualquier otro texto. Consiste en la exploracin preliminar y se debe: Antes de la lectura Echar un vistazo general empezando por el ndice, reconociendo unidades y actividades que se van explicando en la gua de autoaprendizaje. Anota tus dudas que van surgiendo durante el vistazo general, para esclarecerlos durante la lectura o despus de la lectura. Adoptar una actitud Psicolgica positiva. Esta es la fase ms importante del mtodo, el ritmo de lectura, lo pone cada lector. Debes tener presente los siguientes aspectos. Durante la lectura Mantn la actitud Psicolgica positiva. Participa activamente la lectura: Tomando apuntes, subrayando, resumiendo y esquematizando. Si no entiendes lo que lees o encuentras una palabra desconocida, consulta con tu profesor, tutor o un diccionario. Esta fase va afianzar tu lectura, mejorando tu comprensin de lectora, para ello debes tener en cuenta lo siguiente: Despus de la lectura Repasa los apuntes tomados, durante la lectura. Organiza el trabajo y planifica el horario de estudio. Trata de que siempre la misma hora. Realiza los trabajos diariamente. No dejes que se te acumulen las tareas. Procura ampliar las lecciones con lecturas complementarias. Al final de cada actividad o sesin has tu cuadro sinptico o mapa conceptual. Elabora tu propio resumen. Enriquece tu vocabulario para entender mejor las prximas lecturas. Por: Dr. Ral Paredes Morales Antes de la lectura Durante la lectura Despus de la lectura UNIDAD N I APLICACIONES CON EXCEL COMPETENCIAS A LOGRAR CONCEPTUALPROCEDIMENTALACTITUDINAL Al concluir la unidad el estudiante estar en condiciones de reconocer las herramientas, comandos y funciones de Excel orientadas a la contabilidad y finanzas. El estudiante domina una serie de habilidades y destrezas acerca de las estrategias para manejar y resolver aplicacionesen una hoja de clculo. El estudiante debe de cambiar de actitud frente al estudio de los conocimientos logrados. Sesin 1 CLCULO DE DEPRECIACION IntroduccinDeacuerdoconFrankAyres,Jr.MatemticasFinanciera:Teoray500Problemas Resueltos, serie Shaum, pgina 7, la depreciacin se define como la prdida de valor de un activo fsico (edificios, maquinarias, etc.) como consecuencia de su uso.Ladepreciacinesungastocomocualquierotrogastodeexplotacinelcualsedebe tomarencuentaantesdedeterminarlasgananciasdeunaempresa.Elproblema principal consiste en determinarqu proporcin del activo debe tomarse para un perodo determinado.Conestefinsehanpropuestovariosmtodos:Mtododelalnearecta, MtododelaSumadelosDgitosAnuales,MtododelaDobleDisminucindeSaldo, etc. Depreciacin. Mtodo de la Lnea RectaEste mtodo es el ms simple de todos y por lo tanto el que se usa con ms frecuencia. Simplemente se toma el costo de adquisicin del activo, el cual incluye, adems del valor segn factura, el flete y otros gastos, as como tambin el costo de instalacin en aquellos casos en que se requiera. A este importe se le resta el valor residual, el cual se estima por anticipado, prorrateando la diferencia entre la vida til estimada del activo en referencia. Bajo este mtodo, una parte proporcional del costo del activo se asigna por igual a cada ejerciciodurantelavidatilprefijadaparadichoactivo.Elcargoperidicoseex-presa mediante la frmula [1]: [1] Depreciacin = (Costo - Valor_Residual) / Vida Ejercicio hipottico:Supongan que Uds. adquieren una mquinapara hacer troquelescuyo costo instalado y listo para usar es tal como sigue:-Costo segn facturaS/. 94,540.00 -Flete martimo S/. 6,547.00 -Gastos de aduanaS/. 2,300.00-SeguroS/. 1,540.00-Acarreo en PerS/. 1,347.00-Gastos de instalacinS/. 1,300.00 Costo total instalada S/. 107,534.00 Se estima, adems, que la mquina tendr un valor residual de S/. 12,534.00 despus de unavidatilestimadaen10aos.Acuntoascenderelmontodeladepreciacin anual ?. Para conocer el resultado se deben sustituir los datos del problema en la frmula [1]. Resultado: S/. 9,500.00 anual.Ahora veamos de qu manera se calcula la depreciacin con la hoja de Microsoft Excel:Empezaremos diciendo que Microsoft Excel dispone de varias funciones (en la categora defunciones financieras) para el clculo dela depreciacin.Unadeellases la conocida con el nombre de la lnea recta, representada por la funcin =SLN( ). Las siglas aluden a la expresin Stright Line. La sintaxis o manera de escribir correctamente dicha funcin es la siguiente:[2] =SLN(Costo;Valor_Residual;Vida) Observenqueestafuncinutilizatresargumentosseparadosmediantepuntosycomas (;). Es obligatorio que colocar dichos argumentos en el mismo orden en que se muestran en la frmula:Costo: Es el costo inicial del activo.Valor_residual: Es el valor al final de la depreciacin (algunas veces se denomina valor residual del activo).Vida:Eselnmerodeperodosduranteloscualesocurreladepreciacindelactivo (tambin conocido como vida til del bien). Metodologa de clculoVamos a ilustrar a continuacin la forma de dar solucin al ejercicio hipottico plantea-do ms arriba, utilizando la funcin [2] de Microsoft Excel.1.Transcriban el Titulo y las etiquetas tal como aparecen en el Cuadro No. 12.Copien ahora los datos contenidos en los rangos B3:B5 y C3:C5, respectivamente. 3.Hagan clic en la celda A10 y escriban el ao: 04.HaganclicsobrelaceldaE10paraactivarla.Escribanelsignoigual(=).Haganclic sobrelaceldaB3paraseleccionarlayoprimanlateclaEnter.NotenqueExcel reproduce el contenido en la celda E10.5.Hagan clic en la celda A11 y escriban el primer ao de vida del activo: 16.Hagan clic en la celda B11, escriban el signo = y seleccionen la celda E10. Enter.7.HaganclicenlaceldaC11yescribanlasiguientefrmulaconelfindecalcularel cargo anual o depreciacin del activo:-Signo igual (=) para indicarle a Excel que se va a escribir una frmula-Escriban el nombre de la funcin SLN de Microsoft Excel con la cual se calcular la depreciacin anual (por el mtodo de la lnea recta).-Abra parntesis y escriban:ola direccin de la celda B3 la cual contiene el COSTO del activo. Opriman lateclaF4paraconvertirlaceldaB3enunaceldaabsoluta4:$B$3 Escriban ;oladireccindelaceldaB4,lacualcontieneelVALORRESIDUALdel activo, es decir Bs. 2.456.789. Opriman la tecla de funcin F4. Escriban ;ola direccin de la celda B5 la cual contiene la VIDA TIL del activo, es decir 10 aos. Opriman la tecla de funcin F4.-Cierren el parntesis y opriman la tecla Enter.Noten que Excel reporta un cargo por depreciacin anual deS/. 9,500.00. Puesto que este cargo es una constante anual, el fondo para reserva de depreciacin se incrementarenesemontocadaao,mientrasqueelvalornetoenlibros decrecertambinanualmenteendichacantidad.Veanestosmovimientosenel cuadro No. 18.EnlaceldaD11escribanladireccin=C11yoprimanlateclaEnter,conelfinde calcularladepreciacinacumulada(esdecir,elfondodereservaparala depreciacin).9.HaganclicenlaceldaE11paraactivarlayescribanlasiguientefrmula:=E10-C11 con el fin de calcular el valor neto en libros para el final del primer ao. Opriman Enter.10. Hagan clic en la celda A12 y escriban el 2do ao de vida del activo, es decir: 211. Hagan clic en la celda B12. Escriban =E11 y opriman la tecla Enter. La frmula tiene por finalidad colocar el valor neto en libros en la celda B12. (inicio del ao)12. HaganclicenlaceldaC12ysigalasinstruccionesdelpunto7paracalcularla depreciacindelactivoparaelsegundoao.Siloprefierecopieelcontenidodela celda C12 en C13 utilizando para ello el Visor del portapapeles de Windows.13. HaganclicenlaceldaD12yescribanlasiguientefrmulaparaacumularla depreciacindelprimeraoconladepreciacindelsegundoao,esdecir: =D11+C12. Opriman la tecla Enter14. HaganclicenlaceldaE12paraactivarlayescribanlasiguientefrmula:=E11-C12 con el fin de calcular el valor neto en libros para el final del segundo ao. Opriman la tecla Enter.15. AhoraHaganclicenlaceldaA12yarrastrehastalaceldaE12conelfinde seleccionar el rango que contiene todas las frmulas correspondiente al segundo ao, es decir: A12:E1216. Coloque el cursor sobre el Controlador de relleno y arrstrelo hacia abajo con el fin de copiar las frmulas en el rango A13:E20.17. Guardar el contenido sin antes renombrar la Hoja1 por Linea Recta. Grfico de la Depreciacin1.Seleccione los rangos: AOS, Cargo Anual a Depreciacin y Valor Neto en los libros2.Seleccione ficha Insertar luego grupo grficos, Dispersin-Dispersin lneas suavizadas y marcadores, en el cuadro de Diseos de grafico Diseo1.3.Escriba los ttulos del grfico segn la imagen y Finalizar Series1Depreciacin Contante Series2Valor Neto en Libros Decreciente Depreciacin. Mtodo Suma de los Dgitos AnualesDeacuerdoconJamesA.CashinyJoelJ.Lerner,losaosdelavidatildelactivose numeran1,2,3,4,etc.ylascantidadesdedepreciacinsebasanenunaseriede fraccionesquetienencomocomndenominadorlasumadelosdgitosdelosaosde vidatildelactivo.Eldgitomayorseusacomonumeradorparaelprimerao,eldgito inmediatamente anterior para el segundo, y as sucesivamente.MicrosoftExcelsebasenesteconceptoparaconstruirlafuncin=SYDconelfinde calcular la depreciacin por el mtodo Sum Year Digits = Suma de los Dgitos Anuales.[3] =SYD(Costo;Valor_Residual;Vida;Perodo) S/.- S/.20,000.00 S/.40,000.00 S/.60,000.00 S/.80,000.00 S/.100,000.00 S/.120,000.000 2 4 6 8 10 12Nuevos Soles Vida til (Anos) Depreciacin Mtodo de Lnea Recta Series1Series2Observenqueestafuncinutilizalossiguientescuatroargumentosseparadosmediante puntosycomas(;).EsobligatorioqueUds.coloquendichosargumentosenelmismo orden en que se muestran en la frmula:Costo: Es el costo inicial del activo.Valor_residual:Eselvalorremanentealfinaldelavidadelactivo(algunasve-cesse denomina valor residual del activo).Vida: Es el nmero de perodos durante los cuales se produce la depreciacin del activo (tambin conocido como vida til del bien).Perodo: Es el perodo y se deben utilizar las mismas unidades que en Vida.Metodologa de clculoVamosa ilustrara continuacin la forma dedar solucinal ejerciciohipottico planteado ms arriba, utilizando la funcin [3] de Microsoft Excel1.Transcriban el Ttulo y la las etiquetas tal como aparecen en el Cuadro No. 22.CopienahoralosdatoscontenidosenlosrangosB26:B28yC26:C28, respectivamente.3.Hagan clic en la celda A33 y escriban el ao: 04.HaganclicsobrelaceldaE33paraactivarla.Escribanelsignoigual(=).Haganclic sobrelaceldaB26paraseleccionarlayoprimanlateclaEnter.NotequeExcel reproduce el contenido en la celda E33.5.Hagan clic en la celda A34 y escriban el primer ao de vida del activo: 16.Hagan clic en la celda B34, escriban el signo = y seleccionen la celda E33. Opriman la tecla Enter.7.HaganclicenlaceldaC34yescribanlasiguientefrmulaconelfindecalcularel cargo anual o depreciacin del activo:-Signo igual (=) para indicarle a Excel que se va a escribir una frmula-Escriban el nombre de la funcin SYD con la cual se calcular la depreciacin anual (por el mtodo de la suma de los dgitos anuales).-Abra parntesis y escriba:La direccin de la celda B26 la cual contiene el COSTO del activo. Oprima latecladefuncinF4paraconvertirlareferenciarelativaB26enuna referencia absoluta, es decir: $B$26. Escriba;LadireccindelaceldaB27,lacualcontieneelVALORRESIDUALdel activo, es decir Bs. 2.456.789. Opriman la tecla de funcin F4. Escriba;LadireccindelaceldaB28lacualcontienelaVIDATILdelactivo,es decir 10 aos. Opriman la tecla de funcin F4. Escriba;LadireccindelaceldaA34,lacualcontieneelprimerperodoparael cual se quiere calcular la depreciacin, es decir el primer ao-Cierre el parntesis y opriman la tecla Enter.Noten que Excel reporta una depreciacin de S/. 17,273 para el primer ao 8.EnlaceldaD34escribanladireccin=C34yoprimanlateclaEnter,conelfinde acumular la depreciacin (es decir, el fondo de reserva para la depreciacin).9.HaganclicenlaceldaE34paraactivarlayescribanlasiguientefrmula:=E33-C34 con el fin de calcular el valor neto en libros para el final del primer ao. Enter.10. Hagan clic en la celda A35 y escriban el 2do ao de vida del activo, es decir: 211. Hagan clic en la celda B35. Escriban =E34 y opriman la tecla Enter. La frmula tiene por finalidad colocar el valor neto en libros en la celda B35. (inicio del segundo ao)12. HaganclicenlaceldaC35ysigalasinstruccionesdelpunto7paracalcularla depreciacin del activo para el segundo ao. Si lo prefieren copien el contenido de la celda C34 en C35 utilizando para ello el Visor del portapapeles de Windows.13. HaganclicenlaceldaD35yescribanlasiguientefrmulaparaacumularla depreciacindelprimeraoconladepreciacindelsegundoao,esdecir: =D34+C35. Opriman la tecla Enter14. HaganclicenlaceldaE35paraactivarlayescribanlasiguientefrmula:=E34-C35 con el fin de calcular el valor neto en libros para el final del segundo ao. Opriman la tecla Enter.15. AhoraHaganclicenlaceldaA35yarrastrenhastalaceldaE35conelfinde seleccionar el rango que contiene todas las frmulas correspondiente al segundo ao, es decir: A35:E3516. Coloque el cursor sobre el Controlador derellenoyarrstrenlo hacia abajo con el fin de copiar la frmula en el rango A36:E43.Grfico de la Depreciacin1.Con la ayuda de la tecla Control (Ctrl) seleccionen los rangos: AOS, Cargo Anual a Depreciacin y Valor Neto en los libros2.Seleccione ficha Insertar luego grupo grficos, Dispersin-Dispersin lneas suavizadas y marcadores, en el cuadro de Diseos de grafico Diseo1.3.Escriba los ttulos del grfico segn la imagen y Finalizar Series1Depreciacin Contante Series2Valor Neto en Libros Decreciente Depreciacin. Mtodo Doble Saldo DecrecienteDeacuerdoconJamesA.CashinyJoelJ.Lerner8,elmtododelDobleSaldo Decrecienteeselquedalamayorcifradedepreciacinenlosprimerosaosyno reconoce el valor de desecho. En cambio, el valor del activo que permanece en los libros alter-minarelperododedepreciacinseconvierteenelvalorresidualovalorde desecho.Muchasempresasprefierenestemtododebidoalorpidamentequese efectaladepreciacinenlosprimerosaos,queescuandoelactivoprestasumayor contribucinalnegocioycuandosehahechoelgasto.Elprocedimientoconsisteen aplicar una tasa fija al valordel activo que declinaenloslibroscadaao. A medida que declina el valor en los libros, la depreciacin es cada vez menor.MicrosoftExcelsebasenestadefinicinparaconstruirsufuncin=DDBconelfinde calcular la depreciacin por el mtodo Doble Saldo Decreciente.[4] =DDB(Costo;Valor_Residual;Vida;Perodo;Factor) Note que =DDB utiliza 5 argumentos separados por puntos y comas (;). Es obligatorio que dichos argumentos se coloquen en el mismo orden en que se muestran en la frmula:Costo: Es el costo inicial del activo.Valor_residual: Es el valor residual al final de la vida del activoVida: Es el nmero de perodos durante los cuales se produce la depreciacin del activo (tambin conocido como vida til del bien).S/.0.00S/.20,000.00S/.40,000.00S/.60,000.00S/.80,000.00S/.100,000.00S/.120,000.000 2 4 6 8 10 12Nuevos Soles Vida til (Anos Mtodo de la Suma de los Dgitos Anuales Series1Series2Perodo:Eselperodoparaelquesedeseacalcularladepreciacin.Elperododebe usar las mismas unidades que las utilizadas en Vida.Factor: Es la tasa (%) a la cual disminuye el saldo (si se omite este factor, DDB asumir el valor por defecto, es decir 2).Metodologa de clculoVamosa ilustrara continuacin la forma dedar solucinal ejerciciohipottico planteado ms arriba, utilizando la funcin [4] de Microsoft Excel1.Transcriba el Titulo y las etiquetas tal como aparecen en el Cuadro No. 32.CopienahoralosdatoscontenidosenlosrangosB49:B52yC49:C52, respectivamente.3.Hagan clic en la celda A57 y escriban el primer ao de vida del activo: 0 4.Haga clic sobre la celda E57 para activarla. Escriban el signo igual (=). Haga clic sobre la celda B49 para seleccionarla y opriman la tecla Enter. Note que Excel reproduce el contenido en la celda E57.5.Haga clic en la celda A58 y escriba el primer ao de vida del activo: 16.Haga clic en la celda B58, escriba el signo = y seleccionen la celda E57. Opriman la tecla Enter.7.Haga clic en la celda C58 y escriba la siguiente frmula con el fin de calcular el cargo anual o depreciacin del activo:-Signo igual (=) para indicarle a Excel que se va a escribir una frmula-Escriba el nombre de la funcin DDB de Microsoft Excel con la cual se calcular la depreciacin anual por el mtodo de la Doble Saldo Decreciente-Abra parntesis y escriban:la direccin de la celda B49 la cual contiene el COSTO del activo. Opriman la tecla de funcin F4 para convertir la celda B49 en una celda absoluta: $B$49. Escriban ;la direccin de la celda B50, la cual contiene el VALOR RESIDUAL del activo, es decir Bs. 2.456.789. Opriman la tecla F4. Escriban ;la direccin de la celda B51 la cual contiene la VIDA TILdel activo, es decir 10 aos. Opriman la tecla de funcin F4. Escriban ;la direccin de la celda A58, la cual contiene el primer perodo para el cual se quiere calcular la depreciacin, es decir el primer aoladireccindelaceldaB52enlacualestalmacenadalatasaalacual disminuir el activo. Opriman la tecla de funcin F4. -Cierre el parntesis y opriman la tecla Enter. Note que Excel reporta una depreciacin de S/. 21,507.00 para el primer ao. 8.EnlaceldaD58escribanladireccin=C58yoprimanlateclaEnter,conelfinde calcularladepreciacinacumulada(esdecir,elfondodereservaparala depreciacin).9.Haga clic en la celda E58 para activarla y escriba la frmula: =E57-C58 con el fin de calcular el valor neto en libros para el final del primer ao. Enter.10. Haga clic en la celda A59 y escriba el 2do ao de vida del activo, es decir: 211. HagaclicenlaceldaB59.Escriban=E58yoprimanlateclaEnter.Lafrmulatiene busca colocar el valor neto en libros en la celda B59. (inicio del 2do ao)12. HagaclicenlaceldaC59ysigalasinstruccionesdelpunto7paracalcularla depreciacin del activo para el segundo ao. Si lo prefiere, puede copiar el contenido de la celda C58 en C59.13. HagaclicenlaceldaD59yescribanlasiguientefrmulaparaacumularla depreciacindelprimeraoconladepreciacindelsegundoao,esdecir: =D58+C59. Opriman la tecla Enter14. Haga clic en la celda E59 para activarla y escriban la siguiente frmula: =E58-C59 con el fin de calcular el valor neto en libros para el final del segundo ao. Enter.15. Ahora haga clic en la celda A59 y arrastre hasta la celda E59 con el fin de seleccionar elrangoquecontienetodaslasfrmulascorrespondientealsegundoao,esdecir: A59:E5916. Coloque el cursor sobre el Controlador de relleno y arrstrelo hacia abajo con el fin de copiar la frmula en el rango A60:E67.Grfico de la Depreciacin1.Con la ayuda de la tecla Control (Ctrl) seleccionen los rangos: AOS, Cargo Anual a Depreciacin y Valor Neto en los libros2.Seleccione ficha Insertar luego grupo grficos, Dispersin-Dispersin lneas suavizadas y marcadores, en el cuadro de Diseos de grafico Diseo1.3.Escriba los ttulos del grfico segn la imagen y Finalizar Series1DepreciacinDecreciente Series2Valor Neto en Libros Decreciente 4.Haga clic en la opcin ARCHIVO y seleccionar el comando GUARDAR S/.0.00S/.20,000.00S/.40,000.00S/.60,000.00S/.80,000.00S/.100,000.00S/.120,000.000 2 4 6 8 10 12Nuevos Soles Vida til (Anos Mtodo de Doble Disminucin de Saldo Series1Series2ACTIVIDAD N1 APLICATIVO CUADRO DE CLCULO DE DEPRECIACIN Crearemos la plantilla Clculo de Depreciacin, en una hoja de Excel. Esta plantilla nos permitir calcular la depreciacin de unactivo fijo, por cada periodo de su vida til, aplicando el mtodo de valuacin Lnea recta. Enesteejemplosoloseingresanlosdatosenlasceldaspintadas,paraestecaso,el activo se adquiri el 1/7/2009 y ese misma fecha como inicio de la depreciacin, su costo esdeS/.2,400.00,tieneunavidatilde10aos,120meses,conunatasade depreciacin anual de 10%. Ingresando estos datos, la plantilla calcula hasta que ao se depreciara el activo, cuantos mesessedeprecianporao,ladepreciacindelperiodo(delao),depreciacin acumulada del periodo (del ao) y su saldo por ao, hasta su agotamiento. Enelsiguienteejemplocambiaremoslavidatila5aos,60meses,latasade depreciacin anual a 20% y el nuevo clculo ser el siguiente. Enelsiguienteejemplocambiaremoslafechadeadquisicina1/1/2009,mismafecha comoiniciodeladepreciacin,lavidatila4aos,48meses,latasadedepreciacin anual a 25% y el nuevo clculo ser el siguiente. Como se ve esta plantilla realiza el clculo, con solo ingresar los parmetros del activo a depreciar, ahora veremos que formulas tenemos que crear en la plantilla. CeldaFormula D9=D8*12 A14=SI(C14>0,1,0) A15=SI(C15>0,2,0) A16=SI(C16>0,3,0) A17=SI(C17>0,4,0) A18=SI(C18>0,5,0) A19=SI(C19>0,6,0) A20=SI(C20>0,7,0) A21=SI(C21>0,8,0) A22=SI(C22>0,9,0) A23=SI(C23>0,10,0) A24=SI(C24>0,11,0) B14=SI(D4>0,AO(D4),0) B15 B24=SI(Y(C14>0,A15>0),B14+1,0) C14=SI(D6>0,13-MES(D6),0) C15=SI(Y(G14>0,(D$9-C14)>=12),12,0) C16=SI(Y(G15>0,(D$9-(C14+C15))>=12),12,0) C17=SI(Y(G16>0,(D$9-(C14+C15+C16))>=12),12,0) C18=SI(Y(G17>0,(D$9-(C14+C15+C16+C17))>=12),12,SI(Y(G17>0,(D$9-(C14+C15+C16+C17))0,(D$9-(C14+C15+C16+C17+C18))>=12),12,SI(Y(G18>0,(D$9-(C14+C15+C16+C17+C18))0,(D$9-(C14+C15+C16+C17+C18+C19))>=12),12,SI(Y(G19>0,(D$9-(C14+C15+C16+C17+C18+C19))0,(D$9-(C14+C15+C16+C17+C18+C19+C20))>=12),12,SI(Y(G20>0,(D$9-(C14+C15+C16+C17+C18+C19+C20))0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21))>=12),12,SI(Y(G21>0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21))0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21+C22))>=12),12,SI(Y(G22>0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21+C22))0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21+C22+C23))>=12),12,SI(Y(G23>0,(D$9-(C14+C15+C16+C17+C18+C19+C20+C21+C22+C23))0,B14>0),D$5,0) E14=((D14*D$7)/12)*C14 F14=E14 F15 - F24=SI(E15>0,F14+E15,0) G14 G24=SI(F14>0,D14-F14,0) Sesin 2 LETRAS POR COBRAR Toda empresa tiene dificultad para ganarse un sitial en el mercado, dentro de las acciones atomarestajustamentelaventaalcrdito,extendiendoparaellounaletradecambio, comprometindoseelclienteacumplirconsucompromisodepagoenlafecha establecida,estasletrassoncontroladasporelvendedorenunauxiliarllamado REGISTRO DE LETRAS POR COBRAR . Concepto EsunlibroAuxiliarvoluntario,enelqueseregistraenformacronolgica,lasletras aceptadasporterceroscomoconsecuenciadeunaventaoprestacindeservicio, teniendo en cuenta la factura o el contrato de compra-venta. Rayado ElrayadodelregistrodeLetrasporcobrar,noesuniforme,seadecuadeacuerdoalas necesidades de la empresa, siendo el mas usual el siguiente: -Se registra la fecha de emisin de la letra. -Se especifica el N de la factura correspondiente. -Se registra el N de la letra -Se hace referencia al cliente o persona quien acepta la letra. -Se refiere a la fecha en que se acepta la letra. -Se registra el tiempo en que se debe cancelar las letras. -Se refiere a las fechas en que debe ser canceladas las letras. -Se especifica el importe de cada letra. -Se escribe las posibles observaciones a que hubiese lugar ACTIVIDAD N2 APLICATIVO LETRAS POR COBRAR Crearemos la plantilla Letras por Cobrar, en una hoja. Esta plantilla calculara la fecha de vencimiento de las letras, teniendo en cuenta la fecha de aceptacin y los das de plazo. En la imagen anterior, la letra N 1 tiene una fecha de aceptacin el 15/04/2009, pagadero a 30 das de plazo, la plantilla indica que la fecha de pago ser el 15/05/2009. Cambiemos ahora los das de plazo a 60 y veamos qu fecha de vencimiento nos muestra la plantilla. Como se ve la fecha de vencimiento ha cambiado y nos muestra el 14/06/2009. Crearemos lista para la columna: Endoso a Cargo de Ahora veremos que formulas tenemos CeldaFormula K7 K21=SI(I7>0,SI(MES($H7+$I7)=1,DIA($H7+$I7),""),"") L7 L21=SI(I7>0,SI(MES($H7+$I7)=2,DIA($H7+$I7),""),"") M7 M21=SI(I7>0,SI(MES($H7+$I7)=3,DIA($H7+$I7),""),"") N7 N21=SI(I7>0,SI(MES($H7+$I7)=4,DIA($H7+$I7),""),"") O7 O21=SI(I7>0,SI(MES($H7+$I7)=5,DIA($H7+$I7),""),"") P7 P21=SI(I7>0,SI(MES($H7+$I7)=6,DIA($H7+$I7),""),"") Q7 Q21=SI(I7>0,SI(MES($H7+$I7)=7,DIA($H7+$I7),""),"") R7 R21=SI(I7>0,SI(MES($H7+$I7)=8,DIA($H7+$I7),""),"") S7 S21=SI(I7>0,SI(MES($H7+$I7)=9,DIA($H7+$I7),""),"") T7 - 721=SI(I7>0,SI(MES($H7+$I7)=10,DIA($H7+$I7),""),"") U7 U21=SI(I7>0,SI(MES($H7+$I7)=11,DIA($H7+$I7),""),"") V7 V21=SI(J7>0,SI(MES($H7+$I7)=12,DIA($H7+$I7),""),"") W22=SUMA(W7:W21) Sesin 3 LIBRO CAJA Y BANCOS Esunlibroprincipalyobligatorio,dondeseregistratodasaquellasoperaciones comercialesenefectivo,chequesovaloresrepresentativosdedinero,yaseaingresoso egresos. Libro Caja y Bancos Su objetivo es el de registrar todas las operaciones comerciales que indiquen movimiento de dinero en efectivo. Laimportanciadeestelibrosedebeaquenospermitecontrolartodoslosvaloresque recibe y entrega la empresa, ya sea dinero en efectivo, cheques o una representacin de valor, determinar el saldo disponible. SISTEMAS DE LIBRO CAJA Caja Italiana o SimpleConocidocmocajacentralizado,eslaformamssimple deregistraringresosyegresosdefondos(Diario resumido) Caja Americana o TabularLlamadotambinAnaltica,estetipodesistemasnos permite controlar los fondos de la empresa a travs de un diseo especial adoptando la forma columnada. Caja BancosSu funcin es la de registrar entradas y salidas de fondos en efectivo o cheque. ACTIVIDAD N3 APLICATIVO CAJA Y BANCOS Crearemos la plantilla Caja y Bancos, en la hoja1 Empresa, en la hoja2 Caja, en la hoja3 Banco,enlahoja4Concbanc(Conciliacinbancaria),enlahoja5AstoCaja(Asiento caja),enlahoja6AstoBcos(AsientoBancos),enlahoja7PC(Plandecuentas),enla hoja 8 Operaciones y en la hoja9 T1 (Tipo de medio de pago). Esta plantilla nos permitir registrar las operaciones de caja, bancos, hacer la conciliacin bancaria y nos arrojara los asientos contables. Ahora veremos que formulas tenemos que crear en la plantilla. Nos ubicamos en la hoja Empresa Nos ubicamos en la hoja Caja EnlacolumnaDescripcindelaoperacin,crearunalistaconlosdatosdelahoja Operaciones Seleccionar las celdas D9 al D20 y nombrar la seleccin CRICAJA Seleccionar las celdas F9 al F20 y nombrar la seleccin DCAJA Seleccionar las celdas G9 al G20 y nombrar la seleccin HCAJA En esta hoja se crearan las siguientes formulas CeldaFormula A3=CONCATENAR("PERIODO: ",MES," - ",AO) A4=CONCATENAR("RUC: ",RUC) A5=SI(CIA>"",CIA,"") E9 E20=SI(D9="","",BUSCARV(D9,PLANC,2,0)) F21=SUMA(F9:F20) G21=SUMA(G9:G20) F22=SI(G21>F21,G21-F21,0) G22=SI(F21>G21,F21-G21,0) F23=SUMA(F21:F22) G23=SUMA(G21:G22) Nos ubicamos en la hoja Banco En la columna Descripcin de la operacin, crear una lista con los datos de la hoja T1 Seleccionar las celdas H11 al H21 y nombrar la seleccin CRICON Seleccionar las celdas I11 al I21 y nombrar la seleccin CRIBCO Seleccionar las celdas K11 al K21 y nombrar la seleccin DBCO Seleccionar las celdas L11 al L21 y nombrar la seleccin HBCO En esta hoja se crearan las siguientes formulas CeldaFormula A3=CONCATENAR("PERIODO: ",MES," - ",AO) A4=CONCATENAR("RUC: ",RUC) A5=SI(CIA>"",CIA,"") C11 C21 =SI(D11>"",BUSCARV(D11,MEDIOPAGOS,2,0),"") J11 J21=SI(I11="","",BUSCARV(I11,PLANC,2,0)) K22=SUMA(K11:K21) L22=SUMA(L11:L21) K23=SI(L22>K22,L22-K22,0) L23=SI(K22>L22,K22-L22,0) K24=SUMA(K22:K23) L24=SUMA(L22:L23) Nos ubicamos en la hoja Conc Banc En esta hoja se crearan las siguientes formulas CeldaFrmula A1=CONCATENAR("RUC: ",RUC) A2=SI(CIA>"",CIA,"") B4=CONCATENAR("CONCILIACION BANCARIA MES DE ",MES," DEL ",AO) D8=SUMAR.SI(CRICON,A8,DBCO)*-1 D9=SUMAR.SI(CRICON,A9,HBCO) D12=SUMA(D7:D11) D16=D8*-1 D17=D9*-1 D18=D11*-1 D19=D10*-1 D20=SUMA(D15:D19) Nos ubicamos en la hoja Asto Caja En esta hoja se crearan las siguientes formulas CeldaFrmula A1=CONCATENAR("PERIODO: ",MES," - ",AO) A2=SI(CIA>"",CIA,"") D6=SUMA(E7:E14) E7 E14=SUMAR.SI(CRICAJA,A7,DCAJA) D16=SUMA(D6:D15) E16=SUMA(E6:E15) D17=SI(D16E16,"NO CUADRA","") J6 J19=SUMAR.SI(CRICAJA,G6,HCAJA) K20=SUMA(J6:J19) J22=SUMA(J6:J21) K22=SUMA(K6:K21) J23=SI(J22K22,"NO CUADRA","") Nos ubicamos en la hoja Asto Bcos En esta hoja se crearan las siguientes formulas CeldaFrmula A1=CONCATENAR("PERIODO: ",MES," - ",AO) A2=SI(CIA>"",CIA,"") D6=SUMA(E7:E14) E7 E14=SUMAR.SI(CRIBCO,A7,DBCO) D16=SUMA(D6:D15) E16=SUMA(E6:E15) D17=SI(D16E16,"NO CUADRA","") J6 J19=SUMAR.SI(CRIBCO,G6,HBCO) K20=SUMA(J6:J19) J22=SUMA(J6:J21) K22=SUMA(K6:K21) J23=SI(J22K22,"NO CUADRA","") Ahora ingresemos la siguiente informacin en las hojas Caja Banco Estadodecuentabanco(Referencialnosecreaestahoja,solosirveparahacerla conciliacin) La plantilla calculara automticamente las siguientes hojas Conciliacin bancaria Los siguientes rubros se ingresan manualmente: (- )Nota de Cargo no consider. En Libro Banco (+)NotadeAbononoconsider.EnLibroBanco,segnconciliacinconelestadode cuenta bancario. Asiento de caja Asiento de banco Sesin 4 TRABAJAR CON MACROS Qu es una macro? Seguro que ha odo hablar de las macros. Alguien le habr dicho que es una herramienta muytilparasolucionarproblemasdeclculoenExcel.Enrealidadsonunaseriede instrucciones que se almacenan juntas para usarlas cuando sea necesario. Aunqueyadisponedeherramientasquefacilitansutrabajo,hayvecesquetendrque repetirsistemticamentelosmismospasos.Sehabrpreguntado:noexisteunaforma ms sencilla de realizar esta tarea? Puess!Puedeprepararunamacroyllamarlaparaqueejecutetodoslospasos automticamente. Haydosformasdecrearunamacro:grabarlaoescribirlaeneleditordeVisualBasic que tiene a su disposicin en Excel. Ejemplos: Realizaremos dos prcticas a modo de ejemplo: 1.Insertar automticamente mi nombre en la celda actual.2.Introducir la fecha de hoy en la celda actual. Grabar una macro Cuandograbaunamacro,MSExcelguardalainformacinsobrecadapasoqueda.Si comete algn errormientras se grabala macro,tambinsegraban lascorrecciones que realice. Antesdeempezaragrabarunamacro,esconvenientequepractiquelas operaciones que vaya a realizar, las veces que sean necesarias, hasta estar satisfecho. Recuerdequesicometealgnerrordurantelagrabacin,nodebepreocuparse,porque puede borrar la macro e intentarlo de nuevo. MSExcelalmacenacadamacroenunespaciollamadomduloquequedaadjuntoal libro con el que est trabajando. Prctica 1. Grabar una macro Grabar una macro que inserte su nombre. 1.AbraExcelyguardeellibroactualcomoEjerciciosdeMacros(Portenerel ejercicio controlado en todo momento).2.Ubquese en la celda donde quiere insertar su nombre.3.Seleccione Vista en la Cinta de Opciones Macros Grabar Macro Ver la ventana Grabar Macro: Debe darle el nombre a la macro y, si quiere, una tecla rpida (puede ser til despus para llamar a la macro). Tambin puede elegir donde guardar la macro. Hay tres posibilidades: -En un libro de macros personal, para utilizar la macro siempre que entres en Excel en la misma PC.-En un libro nuevo, para guardar la macro en un nuevo libro.-En este mismo libro, es decir, el que ests utilizando ahora. 4.Enlacajaqueseabreparaindicarel nombredelamacro,escriba InsertarNombre,yenlacajapara indicarladescripcin,escribaEsta macro inserta mi nombre. 5.Agregue una letra en el Mtodo Abreviado. Pulse el botn aceptar. EldilogoGrabarMacrodesapareceyvuelvealahojaactiva.Apartirdeeste momento todo lo que haga se grabar en la macro. 6.Escriba el nombre en la Celda actual y pulse la tecla Enter. 7.PulseelbotndetenergrabacinenlaCintadeOpciones,MacrosDetener Grabacin. 8.Presione las teclas Ctrl + j . Observe. Prctica 2. Grabar una macro Grabar una macro que inserte la fecha de hoy. Enrealidad,pararealizarestaoperacinbastaraconintroducirlafuncinHoy()enla casillaquedesee.Elproblemaquevaaencontrar,esqueestafuncininsertalafecha actual (de hoy) y cada vez (cada da) que abra el libro cambiar. ParasolucionaresteproblemapuedeutilizarlafuncindePegadoEspecial.Siesta operacinlatienequerealizarhabitualmente,puedegrabarunamacroqueleahorre bastante tiempo y equivocaciones: 1.Abrir Excel. 2.Seleccione Vista Macros Grabar nueva Macro. 3.En la caja para el nombre de la macro, escriba InsertarFecha, y en la caja para la descripcin escriba Esta macro inserta la fecha de hoy. 4.Pulsar Enter. 5.Escriba =HOY() en celda actual y pulse Enter. 6.ConelcursorenlaceldaD2,pulseelbotnCopiardelabarradeherramientas estndar. 7.Sobre la celda D2 pulse Inicio Pegado especial en la Cinta de Opciones. 8.Selecciona la opcin Valores en la seccin Pegar y pulsa Aceptar. 9.Excel copia el valor de la formula =HOY() en la celda D2. 10. Pulsa el botn de Centrado y el de Negrita. 11. Pulsa el botn detener grabacin.Ejecutar una Macro Una vez almacenada la macro, hay que ejecutarla para que se realicen las acciones que has grabado: 1.Seleccione Vista Macros Clic. 2.Seleccione la macro que va a ejecutar.3.Pulsar el botn Ejecutar. Hay distintas opciones para ejecutar una macro. Debes elegir la opcin ms adecuada a lo que quiere hacer. Estas son algunas de las posibilidades: 1.Asignar una tecla rpida. 2.Asociar un botn de la barra de herramientas. 3.Asociar un botn incrustado en la hoja. 4.Asociar un elemento grfico de la hoja. Prctica 3: Asociar una tecla rpida a una macro Asociar una tecla rpida a la macro Insertar Fecha 1.Cinta de Opciones, Vista 2. Macro Ver Macros, Clic Opciones 3.Ver un cuadro de dilogo que se llama Opciones de la Macro. 4.EnelcuadrodetextoTeclademtodoabreviadodebeintroducirlateclaque escoja. 5.Pulsar el botn Aceptar. Aadir un botn personalizado a la Barra de Herramientas de Acceso Rpido Unaopcinmuytilesaadirunbotnqueejecuteunamacroyagrabada,paraquela tengas disponible siempre que la necesites. Excelpermitepersonalizar lasbarras deHerramientas deAcceso Rpido, que es lo que vas a usar para solucionar este ejercicio. Prctica 4. Aadir una macro a la barra de herramientas Aadir un botn que ejecute la macro InsertarFecha. 1.ClicbotnderechodelmouseBarrasdeHerramientasPersonalizarenla barra de mens. ACTIVIDAD N4 1. Insertar un rectngulo o foto en la hoja que ejecute una macro. Sesin 5 COMPROBANTES DE PAGO - FACTURA Comprobantes de pago Estodo documento que acredita la transferencia debienes, entrega enuso o prestacin deservicios,calificadocomotalporlaSUNAT(SegnDecretoLey25632ysu reglamento).Elcomprobantedepagoesundocumentoformalqueavalaunarelacin comercial o de transferencia en cuanto a bienes y servicios se refiere Documentos considerados como comprobante de pago: a)Factura b)Recibos por honorarios c)Boletas de Venta d)Liquidaciones de Compra e)Ticket o Cintas emitidos por Mquinas Registradoras f)Gua de Remisin FACTURA Esundocumentoquepermitesustentargastoscostosydetalleenformaclarade bienesyelimportedelosmismos,losserviciosprestados,descuentos,condicionesde venta, etc. Con este documento el vendedor se ver en la obligacin de cobrar el importe fijado y el comprador de pagar el importe exigido o registrado, as como demostrar la propiedad del bien o servicio comprado. Estedocumentoseemitirafavordeadquirienteousuarioqueposeanmerode Registro nico del Contribuyente (RUC). ACTIVIDAD N5 APLICATIVO FACTURA PARTE 1 Ahora veremos que formulas tenemos que crear en la plantilla. Nos ubicamos en la hoja Clientes Seleccionar las celdas A4 al A15 y nombrar la seleccin CLIENTES Seleccionar las celdas A4 al C15 y nombrar la seleccin CLIENTES1 Nos ubicamos en la hoja Productos Seleccionar las celdas A4 al A15 y nombrar la seleccin PRODUCTOS Seleccionar las celdas A4 al C15 y nombrar la seleccin PRODUCTOS1 Nos ubicamos en la hoja Vendedor Seleccionar las celdas A4 al A15 y nombrar la seleccin VENDEDORES Nos ubicamos en la hoja Factura CeldaFormula D4=CONCATENAR(TEXTO(1,"00#")&" - "&TEXTO(J4,"0000#")) K4=J4 F6=HOY() C7=SI(A7>0,BUSCARV(A7,CLIENTES1,2,0),"") B8=SI(A7>0,BUSCARV(A7,CLIENTES1,3,0),"") C11 C18 =SI($A11>0,BUSCARV($A11,PRODUCTOS1,2,0),0) F11 F18=(C11*D11)-E11 B20=SI(F22>0,Num_Texto(F22),"") F20=SUMA(F11:F18) F21=F20*0.19 F22=SUMA(F20:F21) En la celda A7 B7, crear una lista con los datos de la hoja Clientes (Campo Nombre o Razn Social) En la celda E8 F8, crear una lista con los datos de la hoja Vendedor EnlaceldaA11B11,crearunalistaconlosdatosdelahojaProductos(Campo Descripcin) y copiar esta lista hasta la celda A18 Vuelve a leer la Unidad I, si no puedes responder las actividades. T eres el resultado de tus pensamientos

IMPORTANTE Si no has contestado las actividades no leas la Unidad II No te engaes a ti mismo RECUERDA SI TIENES ALGUNA DUDA DE LA UNIDAD ANTERIOR VUELVE A REPASAR PARA QUE ENTIENDAS MEJOR LA SIGUIENTE UNIDAD. Y si aplicas el mtodo de estudios A2D del Doctor Ral Paredes Morales para lectura de un mdulo didctico o cualquier otro texto tu trabajo intelectual ser ms rpido y eficaz. RECUERDA SIEMPRE LOS SIGUIENTES ASPECTOS: Mantn la actitud Psicolgica positiva. Participa activamente la lectura: Tomando apuntes, subrayando, resumiendo y esquematizando. Si no entiendes lo que lees o encuentras una palabra desconocida para ti, consulta con tu profesor, tutor o un diccionario.

TU PUEDES Repasa los apuntes tomados, durante la lectura. Organiza el trabajo y planifica el horario de estudio. Trata de que siempre la misma hora. Realiza los trabajos diariamente. No dejes que se te acumulen las tareas. Procura ampliar las lecciones con lecturas complementarias. Al final de cada actividad o sesin has tu cuadro sinptico o mapa conceptual. Elabora tu propio resumen. Enriquece tu vocabulario para entender mejor las prximas lecturas. TU PUEDES SER EL MEJOR ESTUDIANTE Saber cmo estudiar es el secreto Progrmate para ser el mejor y cambiar tu vida UNIDAD N II VBA PARA EXCEL COMPETENCIAS A LOGRAR CONCEPTUALPROCEDIMENTALACTITUDINAL Al concluir la unidad el estudiante estar en condiciones de reconocer, aplicar la programacin VBA para la optimizacin en funcionalidad y procesos en Excel. El estudiante domina una serie de habilidades y destrezas acerca del uso de procedimientos y creacin de funciones para resolver aplicaciones en Excel El estudiante estar en condiciones de desarrollar aplicaciones en su especialidad. Sesin 6 VISUAL BASIC PARA APLICACIONES VBA significa Visual Basic for Applications. Es un lenguaje de programacin que surge deVisualBasic(VB).SepodradecirqueesundialectodeVB.VBAdeExcelest adaptado a Excel, para trabajar con celdas, hojas, autofiltro etc. (es decir, los objetos de la aplicacin Excel). Qu puedo hacer con VBA? Con este lenguaje de programacin puedes crear tus propios programas en Excel. Estos programas pueden ser todo desde una macro (una pequea programa VBA, por ejemplo un atajo personalizado) hasta una aplicacin entera con listas desplegables, mens etc. Puedo acceder a VBA? S. VBA est incluido en el Excel normal y corriente. Se instala con Excel por defecto. Por qu VBA? VBAsirveparamuchascosas.Imagnatetodaslastareasrepetitivasquetienesque ejecutar todos los das. Un ejemplo - siempre vas aplicando el mismo formato a un grupo deceldasdeunlibroquetemandantodoslosdas.Envezdehacerunmontndeclic paraobteneresteformato,puedesautomatizarelproceso,aunbotn,ounatajode teclado. Tambin puedes crear aplicaciones que importan datos desde el libro mayor, reorganizan los datos, y crean informes personalizados para cada departamento. Casi no hay lmites. VBAdeExceltepermiteinteractuarnosoloconotroslibrosExcel,sinocontodoslos programasOffice,comoAccess,Wordetc.(menosInfoPathqueformapartedelOffice 2003). Origen de VBA EsdeMicrosoft,y surge deBASIC (Beginners All-purpose Symbolic Instruction Code, o CdigodeInstruccionesSimblicasdeUsoGeneralparaPrincipiantes),elcualensu turno es un lenguaje que tiene muchos aos ya (desde los aos sesenta). Existen varios VBAs? VBAexisteparatodaslasaplicacionesdeMicrosoftOffice,yestassellamanhost aplicacions.AsquehayVBAparaExcel,otroparaWordetc.CadaVBAsepareceal resto, pero tambin tienen diferencias, por servir distintos. Editor de Visual Basic ElobjetivoesmostrarloselementosdelaventanaprogramacindeVisualBasic. Haremosunadescripcindelaventanadelexplorador,delexaminadordecdigoentre otras. LoprimeroesteneractivadolafichaProgramadorysinoloestaseguirlossiguientes pasos: 1.Haga clic en la opcin y, acontinuacin, haga clic en Opciones. 2.Luego en la ventana Opciones dar clic en Personalizar cinta de opciones, en la seccin Fichas principales hacer un clic sobra Programador y luego clic en el botn Aceptar. 3.Ahora debe verse as: 4.LuegohacercliceneliconoVisualBasicoALT+F11paraingresaralEditordeVisual Basic para Aplicaciones. 1.Men principal 2.Barra de Herramientas 3.Explorador de Proyectos 4.Ventana de Propiedades 1.Men principal: permite acceder a las opciones Archivo, Edicin, Ver, Insertar, etc. 2.BarradeHerramientas:Poseeunaseriedebotonesquepermitenaccederatareas generalesdeedicin,comocopiar,cortarypegar,opcionesdelproyecto:Insertar procedimientos, mdulos y formularios: y acciones con el cdigo desarrollado, ejecutar un procedimiento, etc. 1.Volver a Microsoft Excel 2.Inserta un Formulario 3.Guardar el Proyecto 4.Ejecutar Sub/User Form (F5) 1 2 3 4 12 3 4 5 6 7 8 9 10115.Interrumpir6.Restablecer 7.Modo de diseo 8.Explorador de Proyectos (CTRL + R) 9.Ventana de Propiedades (F4) 10. Examinador de Objetos (F2) 11. Cuadro de Herramientas 3.Explorador de ProyectosEn el Explorador de Proyectos podr ver, modificar, y navegar los proyectos por cada libro de trabajo abierto o referenciado, documento, plantilla o presentacin. DentrodeunProyecto,puedehaberobjetosdeaplicacinquetieneeventosasociados conellos,lascajasdedilogos(llamadasformularios),mdulos,estndaresdeclasesy referencias. Elementos de un Proyecto Ver Cdigo Muestra la ventana Cdigo para que pueda escribir y editar cdigo asociado al elemento seleccionado. Por ejemplo: Objetos Excel Formularios Mdulos Ver Cdigo Alternar Carpeta Ver Objeto 1.Seleccionar el Objeto Formularios UserForm1 2.Hacer clic en el Botn Ver Cdigo Ver Objeto Muestra la ventana Objeto correspondiente al elemento seleccionado, u documento o un formulario existente: Por ejemplo: 1.Seleccionar el Objeto Formularios UserForm1 2.Hacer clic en el Botn Ver Objeto Objeto formulario para la programacin de Interface Objeto Eventos y Procedimientos Alternar Carpetas Ocultaymuestralascarpetasdeobjetosalavezmuestraloselementosindivisuales contenidos en dichas carpetas. 4.Ventana de Propiedades Una propiedad es una caracterstica de un objeto tal como el color o el ttulo del objeto. Se configuralapropiedadparaespecificarlacaractersticaocomportamientodeunobjeto. PorejemplopuedeconfigurarlapropiedadShowspellingErrordeldocumentoWordo True para mostrar los errores ortogrficos en el documento. Podemos accedera la ventana de propiedades de la siguiente manera: -Mediante la barra de herramientas estndar -Mediante el Men Ver -Presionando la tecla F2 Ventana de Propiedades del Objeto Formulario En este ejemplo se ha cambiado la propiedad Caption del Formulario por Lista de Clientes (Ttulo de Ventana Formulario ). Puede utilizar la ventana de propiedades para configurar las propiedades de un objeto en untiempodediseo.Laventanapropiedadesesmuytilcuandoestatrabajandocon cajas de dilogos personalizadas y controles ActiveX. Cada control presenta una lista de propiedades, algunas son comunes, como por ejemplo Caption, enabled, sin embargo hay otras propiedades de uso exclusivo. Ventana de Propiedades de un Cuadro de Textos Escribir un nuevo Procedimiento UnprocedimientoesunaunidaddecdigoencerradoenSubyEndSuboentrelas sentencias Function y End Function. Para crear un mdulo estndar Ir al Men Inserta luego elegir la opcin Mdulo. Ventana de Mdulo Para agregar un procedimiento 1.Abra el Mdulo (Hacer doble clic sobre el mdulo) 2.Haga clic a Procedimiento en el Men Insertar 3.Seleccionelasopcionesquedeseenlacajadedilogocomoelnombre,eltipoyel mbito. AgregarProcedimiento y luego haga clic en el botn Aceptar. Por ejemplo En la caja de dilogo, escriba prueba en la caja Nombre, haga clic en Procedimiento debajo de Tipo, haga a Pblico debajo de mbito, y luego haga clic en el botn de Aceptar. Se mostrar: Ventana Mdulo con el Procedimiento Prueba Observe que el sistema le aade las expresiones Public Sub y al final End Sub, esto debido a que todo bloque de instrucciones de cdigo se encuentra dentro de estas lneas que indican Inicio y Final del procedimiento. Public Sub Prueba() . End Sub Luego que usted a agregado un procedimiento a un mdulo, puede agregar un cdigo a un procedimiento. El siguiente ejemplo agrega al cdigo anterior una que muestre un cuadro de mensaje. Public Sub Prueba() MsgBox(Bienvenidos a la Programacin VBA) End Sub Si desea escribir cdigos que se ejecuten automticamente cuando cierto evento ocurre, porejemplocuandoundocumentoesabierto,unahojadeclculoescalculada,oun botnenlacajadedilogoPersonalizaresseleccionado,debedeescribirun procedimiento asociado con el evento para el objeto o el formulario. Para agregar una funcin 4.Abra el Mdulo (Hacer doble clic sobre el mdulo) 5.Haga clic a Procedimiento en el Men Insertar 6.Seleccionelasopcionesquedeseenlacajadedilogocomoelnombre,eltipoyel mbito. AgregarFuncin y luego haga clic en el botn Aceptar. ACTIVIDAD N6 Ingresando un Procedimiento 1.Desde el Editor de Visual Basic 2.Ir al Men Insertar Mdulo 3.Se aadir la carpeta Mdulo, dentro del cual se mostrar el objeto Mdulo1. 4.Ahora ingresaremos el procedimiento en el rea de cdigo. 5.Ir al Men Insertar luego la opcin Procedimiento 6.En nombre Saludo y en tipo Procedimiento. 7.Luego presionar F5 para ejecutar Sesin 7 FUNDAMENTOS DE PROGRAMACION El lenguaje Visual Basic para Aplicaciones (VBA), en el contexto de Excel, constituye una herramientadeprogramacinquenospermiteusarcdigoVisualBasicadaptadopara interactuarconlasmltiplesfacetasdeExcelypersonalizarlasaplicacionesque hagamos en esta hoja electrnica.LasunidadesdecdigoVBAsellamanmacros.Lasmacrospuedenserprocedimientos de dos tipos:- Funciones (Function)- Subrutinas (Sub) ).Lasfuncionespuedenaceptarargumentos,comoconstantes,variablesoexpresiones. Estnrestringidasaentregarunvalorenunaceldadelahoja.Lasfuncionespueden llamar a otras funciones y hasta subrutinas (en el caso de que no afecten la entrega de un valor en una sola celda)Unasubrutinarealizaaccionesespecficasperonodevuelvenningnvalor.Puede aceptar argumentos, como constantes, variables o expresiones y puede llamar funciones.Con las subrutinas podemos entregar valores en distintas celdas de la hoja. Es ideal para leerparmetrosenalgunasceldasyescribirenotrasparacompletaruncuadrode informacin a partir de los datos ledos. Editar y ejecutar macros.LasfuncionesylassubrutinassepuedenimplementareneleditordeVisualBasic(Alt-F11).ParausarunafuncinenunahojadeExcelsedebe,eneleditordeVB,insertarun mduloyeditarlafuncinenestemdulo.Estaaccindedescribemsadelante.Dela misma manera se pueden editar subrutinas en un mdulo.Una funcin se invoca en una hoja, como se invoca una funcin de Excel o una frmula. Unasubrutinasepuedeinvocarporejemplodesdelaventanadeejecucindemacros (Alt-F8) o desde un botn que hace una llamada a la subrutina (como respuesta al evento de hacer clic sobre l, por ejemplo). El cdigo que ejecuta un botn puede llamar a subrutinas y a las funciones de la hoja. El cdigodelbotnnoestenunmdulo.Enlahojadeedicindondeseencuentrael cdigodelbotn,sepuedenimplementarfuncionesparausodeestecdigoperoque sern desconocidas para la hoja (mensaje de error #NOMBRE?).Nota:Unerrorfrecuenteeseditarunafuncinenunmduloquecorrespondeaunahojay llamarlodesdeotrahoja.Enestecasosedespliegaelerror(mensajedeerror #NOMBRE?). FuncionesUna funcin tiene la siguiente sintaxis:Function NombreFun(arg1, arg2,...,argn)Declaracin de Variables y constantesInstrucccin 1Instrucccin 2...Instrucccin kNombreFun = Valor de retorno 'comentarioEnd FunctionUnafuncinpuedeteneronotenerargumentos,peroesconvenientequeretorneun valor. Observe que se debe usar el nombre de la funcin para especificar la salida:NombreFun = Valor de retorno Nota 1: Al interior de las funciones, se pueden hacer comentarios utilizando (antes de stos) la comilla ('). Nota 2: Para el uso de nombres de variables o de cualquier otra palabra reservada de VBA, no se discrimina entre el uso de letras maysculas y minsculas. Ejemplo 1: implementar una funcin.Vamos a implementar como una macro la funcin con la que se trabaj previamente:()

() ()

() Para su definicin y utilizacin, se siguen los pasos:1.Ingresamos a la ficha Programador, luego se elige Editor de Visual Basic: Primeros pasos para la definicin de una macro.Tambin puede usar Alt - F112.Nuevamente, en el men de la ventana que se abre, se elige Insertar, para luego seleccionar Mdulo: Se inserta un mdulo en el que se escribir el cdigo de las macros.3.Ahora en la pantalla de edicin del mdulo, escribimos el siguiente cdigo: Function f(x) f = 2 * x ^ 3 + Log(x) - Cos(x) / Exp(x) + Sin(x) End Function Escritura del cdigo de una macro. Una vez que ha sido editado el cdigo del macro, se guarda y salimos del ambiente de programacinenVisualBasicparavolveralahojaelectrnicadedondepartimos. Esto se hace en el men Archivo, seleccionando Cerrar y Volver a Excel.4.Para evaluar la funcin () en algunos valores que se localicen, por ejemplo, desde lafila3hastalafila6delacolumnaB,nossituamosenunaceldaenlaquenos interesedejarelresultadodedichaevaluacinysedigita+f(B3).Luegosearrastra hasta C6 para copiar la frmula, quedando: Evaluacin de una funcin definida por el usuario. Nota:Paraconocercondetallelasintaxisdelasfuncionesmatemticasestndarquese pueden evaluar en Visual Basic, puede usarse la Ayuda del Editor de Visual Basic. Esta sintaxisesunpocodiferentealaquemanejaExcelparalasmismasfunciones. Como ya vimos, para implementar la funcin()

() ()

() En Excel la sintaxis es: 2*B3^3+LN(B3)-COS(B3)/EXP(B3)+SENO(B3)En VBA la sintaxis es 2 * x ^ 3 + Log(x) - Cos(x) / Exp(x) + Sin(x) Observe, por ejemplo, que la funcin logaritmo natural(), en Excel se escribe LN mientras que en VBA se escribe Log. Ejemplo 2: Lectura de parmetros en celdasUnavezmsvamosatrabajarconelmodelodecrecimientopoblacionaldescrito anteriormente. La funcin()

con

Ahora evaluaremos P(t) para distintos valores del tiempo t en das, pero esta vez haremos dicha evaluacin mediante una macro para definir P(t).LosparmetroslosvamosaleerdesdeunasceldasubicadasenlacolumnaC.Para hacer referencia a una celda, se usa el cdigoCells(fila,columna)pero escribiendo 'columna' en formato numrico. Por ejemplo, la celda C5 se invoca comoCells(5,3)Loprimeroquehacemosesescribir,eneleditordeVBA,lafrmuladeP(t),luegola invocamosenlaceldaF3(denuestrahojadeejemplo)yarrastramos.Paraesto,se siguen los siguientes pasos:1.Enprimerlugar,abrimosunahojaExcel,quesellameporejemploPoblacion.xls. Luegose escribenlos valoresdelosparmetros, tal y como puedeobservarse enla siguiente figura: Ubicacin inicial de los parmetros. 2.Ahora ingresamos al men y en la opcin Vista seleccionamos Macros. Luego se elige Editor de Visual Basic.Nuevamente,enelmendelaventanaqueseabre,seeligeInsertar,paraluego seleccionar Mdulo y escribir el siguiente cdigo: Function P(t) P0 = Cells(2, 3) 'P0 esta en la celda C2 LimPobl = Cells(4, 3) 'Kesta en la celda C4 k = Cells(5, 3) 'kesta en la celda C5 A = (LimPobl - P0) / P0 P = LimPobl / (1 + A * Exp(-k * t)) End Function De esta forma, la ventana de edicin de Visual Basic, quedara as: Captura de algunos parmetros constantes de las celdas de la hoja. 3.Una vez que ha sido editado el cdigo de la macro, se guarda y salimos del ambiente de programacin en Visual Basic para volver a la hoja electrnica de donde partimos. EsteretornosehacesiguiendoelmenArchivoyseleccionandoCerraryVolvera Excel.ParaevaluarlafuncinP(t)enlosvaloresdetqueestnenlafilaqueiniciaenF2, nos situamos en la celda F3 y se digita +P(F2). Luego se arrastra hasta J2 para copiar la frmula, quedando: Resultado final al evaluar la macro del modelo poblacional. Elementos de programacin en VBAUn programa computacional escrito mediante cualquier lenguaje deprogramacinpuede verseagrandesrasgoscomounflujodedatos,algunosjugandoelpapeldedatosde entrada,otrossondatosquecumplenalgunafuncintemporaldentrodelprogramay otros son datos de salida. A lo largo del programa es muy frecuente que sea necesaria la entrada en accin de otros programas o procesos. A mayor complejidad del problema que resuelve el programa, mayor es la necesidad de programar por aparte algunos segmentos de instrucciones que se especializan en una tarea o conjunto de tareas.Haytrestiposdeestructurasbsicasquesonmuyutilizadasenlaprogramacindeun algoritmo, a saber, la estructura secuencial, la estructura condicional y la repetitiva.Acontinuacinseexplica,conejemplosprogramadoscomomacrosdeExcel,estas estructuras.Tambinseincluyenlosprogramasenseudocdigoydiagramasdeflujo para explicar de un modo ms grfico la lgica del programa. El uso de estos ltimos es cada vez menor, pues el seudocdigo por lo general es suficientemente claro y se escribe en lenguaje muy cercano al lenguaje natural.Identificadores Losidentificadoresrepresentanlosobjetosdeunprograma(constantes,variables,tipos dedatos,procedimientos,funciones,programas,camposderegistros,etc.).Un identificadoresunasecuenciadecaracteresquepuedeserdecualquierlongitud,pero slo255primeroscaracteressonsignificativos.Unidentificadorsecaracterizaporestas reglas: 1.Debe comenzar con una letra (A a Z, maysculas o minsculas) y no puede contener blancos. 2.Letras,dgitosycaracteressubrayados(_)estnpermitidosdespusdelprimer carcter excepto como ltimo carcter. 3.No se puede utilizar una palabra reservada como identificador. 4.Loscaracteres%,&,!,#,@,$solopuedenserusadosalfinaldel identificador(variable) para indicar el tipo de datos que almacenar dicha variable. Estos pueden ser identificadores vlidos: -Nombre -Area_Rectangulo -Lado1 -Impuesto_Sobre_La_Renta -ImpuestosTotales Estos son identificadores no validos: -Area&Rectangulo El ampersand (&) solo puede ser usado al final-Lado1Contiene espacios en blanco-Impuesto@Renta Tiene un @ despus del primer carcter -ForEs una palabra reservada en Visual Basic Comentarios Cuando una frase va precedida de una comilla simple (), Visual Basic Interpreta que esa frase es un comentario y no ejecuta accin alguna sobre ella. Ejemplo: Operandosuma = n1 + n2Esto sumara las dos variables. resta = n1 - n2 multi = n1 * n2 Multiplicar las dos variables solicitadas. Constantes Esunvalorquenocambiadurantelaejecucindeunprograma,VisualBasicadmite nmerosdecimales(base10),hexadecimales(base16)yoctales(base8).Unnmero hexadecimal va precedido por el &H y un nmero octal va precedido por &O (letra O).Loscomentariossondemuchautilidadparapoderentenderelcdigodelprograma utilizado.Enprogramasconpocaslneasdecdigopuedesernoimportanteperoparaproyectos realmente complejos o desarrollados por varios programadores su importancia es evidente. Por ejemplo: 9171034Son nmeros decimales &H9&HF&H40ASon nmeros hexadecimales & 011&0665&020123Son nmeros octales Unaconstantedecaracteresoconstantesalfanumricasesunacadenadecaracteres encerrada entre comillas dobles. Por ejemplo: Grados Centgrados: Las constantes son privadas por defecto Const igv=0.19 Declaracin de una constante pblicaPublic Const saludo= Bienvenido Declaracin de un entero constante Private Const altura as Integer=15 -Es aconsejable definir todas las constantes globales en un nico mdulo. Variables Unavariablecontieneunvalorquepuedemodificarsealolargodelaejecucindela aplicacin. Cada variable tiene atributos propios como: -Nombre: es el nombre que utilizaremos para referirnos a la variable en la aplicacin. -Tipo: el tipo determina qu clase de valores puede almacenar la variable. -mbito: especfica en qu parte de la aplicacin es conocida la variable y por lo tanto puede utilizarse. a.Consideraciones en Nombres de las Variables -Elnombredeunavariabletienequecomenzarporunaletra,puedetener hasta 255 caracteres de longitud y debe ser nico de su mbito. -Loscaracterespuedesserletras,dgitos,elcarctersubrayadoylos caracteres de declaracin del tipo de la variable (%,&,!,#,@ y $) -Nosepuedeutilizaelpuntoniotroscaracteresquetieneunsignificado especialparaVisualBasic;porejemplo,losparntesis.Loscaracteresde declaracin del tipo, cuando se utilicen, tiene que ocupar la ltima posicin. -Elnombredeunavariablenopuedeserunapalabrareservada.Una palabrareservadatieneunsignificadoespecialenVisualBasiccomofor, val, hide, caption, long etc. b.Tipos de Datos Intrnsecos Todaslasvariablestienenuntipodedatoquedeterminalaclasededatosquepueden almacenar. Una variable puede ser de alguno de los tipos siguientes: TipoDescripcinCar-tipoRango Integer Entero (2 bytes)%-32768 a 32.767 Long Entero largo(4 bytes)&-2147.483.648 a 2.147.483.648 Single Comaflotante.Precisin simple (4bytes) !-3,40E+38 a -3,40E+38 DoubleComaflotante.Precisin doble (8 bytes). #-1,79D+308 a -1,79D+308 Currency Nmero con punto decimal fijo (8 bytes) @+/- 922.337.203.685.477,5807 String Cadenadecaracteresde longitud variable: (10 bytes + 1 bytes por carcter.) $De 0 a 65500 caracteres aprox. Byte Carcter (1 byte)(ninguno)0 a 255 Boolean Boolean (2 bytes)(ninguno)True o False DateFecha/Hora (8 bytes)(ninguno)1/enero/100 a 31/diciembre/9.999 ObjectReferenciaaunobjeto(4 bytes) (ninguno)Cualquier referencia a tipo Object Variant Fecha/hora;nmeros enteros,reales0 caracteres(16bytes+1 byte/car,encadenasde caracteres). (ninguno)F/h: como Date: nmeros: mismo rangoqueeltipodevalor almacenado. Decimal Nmeroscon0a28 decimales (14 bytes) (ninguno)Valor mayos con 0 decimales. c.Declaraciones de variables Antes de utilizar una variable, es aconsejable declarar su tipo. Una forma de hacerlo es utilizando la sentencia DIM (o una de las palabras Public, Private o Static). Cualquier declaracin se stas inicia las variables numricas con el valorceroylasvariablesalfanumricasconelvalorceroylasvariables alfanumricas con el carcter nulo. Por ejemplo: Dim I As Integer I una variable entera Dim R As Double R variable real de precisin doble Dim Nombre As StringNombre variable de cadena DimEtiquetaAsString*10Etiquetavariabledecaracteresconlongitud fija(10 caracteres)Dim F as Currency F como variable fraccionaria DimLasLong,XasCurrencyLcomovariableenteralargayXcomo variable fraccionaria. ObservaquelasentenciaDimpuederealizarmsdeunadeclaracin.La clusula As tipo de la instruccin. Dim le permite definir el tipo de dato o de objeto de la variable que va a declarar. -Cuandosedeclaraunavariableynosedefinesutiposeasumequees de tipo Variant. Por ejemplo: Dim A, B As Integer Aqu se considera A (por omisin) es de tipo Variant y B de tipo Integer. -Otraformadedeclararunavariableesutilizandoloscaracteresde declaracin de tipo. Por ejemplo:I%Variable entera. R#Variable real de Precisin doble. Nombres$ Cadena de caracteres de longitud variable f@Variable fraccionaria -Cuando se utiliza una variable que no se ha declarado, se asume que es de tipo Variant por ejemplo: L=dato L=3.25678 d.Option Explicit LasentenciaOptionExplicitenlaseccindedeclaracionesdelformularioydel mdulo,generaunmensajedeerrorsiseencuentraunavariablenodeclarada explcitamente.Sisedeseaqueestaopcinestesiemprepresenteencada aplicacinseleccionemenherramientas/opciones/editor/Requerirdeclaracinde variables. e.OperadoresUnoperadoresunsmboloopalabraqueejecutaunaaoperacinmatemticao manejainformacin.Lasiguientetablamuestraelconjuntodeoperadoresque soporta Visual Basic. TipoOperacinOperador Aritmtico Exponenciacin. Cambio de signo Multiplicacin y divisin Divisin entera Resto de una divisin entera Suma y resta ^ - *, / \ Mod +,- Concatenacin Concatenar o enlazar& Relacional Igual, distinto, menor, mayor=,,,= LgicoNegacinAnd Or inclusiva Or exclusiva Equivalencia (opuesta a Xor) Implicacin(falsosiprimeroperando verdadero y segundo operando falso). Not And Or Xor Eqv Imp Flujo secuencialElflujosecuencialconsisteenseguirunasecuenciadepasosquesiguenunorden predeterminado.Porejemplo,unprogramaqueapartirdeunnmeroNdedas,calculalacantidadde segundosquehayenestacantidaddedas.Esteprogramasepuedevercomouna secuencia de varios pasos:-Inicio: Ingresa el nmero N de das-Paso 1: H = 24*N, para determinar la cantidad de horas-Paso 2: M = 60*H, para determinar la cantidad de minutos.-Paso 3: S = 60*M, para determinar la cantidad de segundos.-Paso 4: Retorne S.-Fin. Flujo secuencialLa macro correspondiente a esta secuencia de clculos puede escribirse como sigue: Function CalculeSegundos(Dias) CantHoras = 24 * Dias CantMinutos = 60 * CantHoras CalculeSegundos = 60 * CantMinutos End Function Flujo condicional (If - Else)Un flujo condicional se presenta en unprograma o procedimiento que debe escoger una accin o proceso a ejecutar, dependiendo de condiciones que puedan cumplirse.El caso ms sencillo ocurre cuando el programa verifica si una condicin se cumple y en caso de ser verdadera ejecuta un proceso, en tanto que si es falsa ejecuta otro proceso.En VBA tenemos la instruccinIf...Then...ElseEjecuta condicionalmente un grupo de instrucciones, dependiendo del valor de una expresin.SintaxisIf condicin TheninstruccionesElse instrucciones-elsePuede utilizar la siguiente sintaxis en formato de bloque:If condicin TheninstruccionesElseIf condicin Then instrucciones-elseif...Else instrucciones-elseEnd IfNota: En la ayuda del editor de Visual Basic, tenemos acceso a la referencia del lenguaje.Ejemplo 2En este ejemplo veremos cmo usar la instruccin If...Then...ElseObtenerunprogramaquecalculeaproximacionesde,sabiendoquelasucesin {

} converge a , definida en forma recurrente mediante la relacin:{

(

)

Elprogramadeberestimarelerrorabsolutodelasaproximacionesysercapazde escribirunmensajedexitoodefracaso,dependiendodesielerrorabsolutoesono menor que una tolerancia dada. Resultado de la aproximacin de .Para los resultados que aparecen en la grfica anterior pueden programarse las siguiente macros para ser evaluadas en cada columna: Function AproxDeRaiz(x) AproxDeRaiz = (1 / 2) * (x + 2 / x) End Function Function CalculoElError(Aproximacion, ValorExacto) CalculoElError = Abs(Aproximacion - ValorExacto) End Function Function verificaTol(Error, Tol) If (Error < Tol) Then verificaTol = "EXITO" Else verificaTol = "FRACASO" End If End Function El diagrama siguiente ilustra la forma en que esta ltima funcin de verificacin acta con base en el valor de sus dos parmetros de entrada: Diagrama de flujo condicional para verificar si se alcanz la tolerancia.Flujo repetitivo (For-Next, While-Wend)El flujo repetitivo se presenta en un algoritmo cuando se requiere la ejecucin de un proceso o parte de un proceso sucesivamente, hasta que ocurra una condicin que permita terminar.Este tipo de flujos repetitivos se presentan en tres formas que obedecen a maneras diferentes de razonarlos pero que en el fondo hacen lo mismo:-Utilizar un contador que empiece en un nmero y termine en otro, ejecutando el proceso cada vez que el contador tome un valor distinto.-Mientras una condicin sea verdadera, ejecutar un proceso y regresar a la condicin.-Ejecutar un proceso, hasta que una condicin deje de cumplirse.En VBA tenemos las siguientes instrucciones para realizar procesos iterativos:1.For ... NextRepite un grupo de instrucciones un nmero especificado de veces.Sintaxis (las instrucciones entre `[ ]' son instrucciones adicionales)For contador = inicio To fin [Step incremento]instrucciones[Exit For]instruccionesNext contador2.While...WendEjecuta una serie de instrucciones mientras una condicin dada sea True.SintaxisWhile condicinintruccionesWend Nota: No hay un Exit While. En una subrutina, si fuera necesario, se podra usa Exit Sub3.Una instruccin muy parecida a While pero ms eficiente de DoSintaxisDo while condicininstrucciones[Exit Do]LoopEjemplo 3Para ilustrar estas formas de realizar un flujo repetitivo, vamos a aproximar la suma de una serie alternada con un error estimado menor que una cantidad TOL dada.Consideremos la serie alternada( )211 1 1 11 1 ...4 9 16== + + kkk La suma parcial N-sima viene dada por: ( ) ( )2 211 1 1 1 11 1 ... 14 9 16== = + + + Nk NNkSk N es decir: 12341 11 1/ 4 0.751 1/ 4 1/ 9 0.861111...1 1/ 4 1/ 9 1/16 0.798611......= = = + = = + = = + + = SSSSDe acuerdo con la teora de series alternadas, la serie ( )2111=kkk es convergente. Si su suma es S, al aproximarla con la suma parcial SN , el error de la aproximacin es menor que ( )211 + N, es decir:( )211 s+NS SN Primer problemaDada una tolerancia TOL, calcular cada una de las sumas parciales hasta que el error de aproximacin sea menor que TOL Sumas parciales y estimacin del errorImplementamos dos macros, una para el clculo de las sumas parciales y otra para hacer la verificacin del error estimado. En este caso, vamos a suponer que TOL est en la celda B33 Function sumaParcial(hastaN) Dim Acum, signo As Integer Acum = 0 signo = -1 For k = 1 To hastaN Acum = Acum + signo * 1 / k ^ 2 signo = -signo Next k sumaParcial = Acum End Function '-------------------------------------------------------------------- Function verificaTol(elN, tol) If (1 / (elN + 1) ^ 2 > tol) Then verificaTol = "Error estimado > " + Str(tol) 'tol es un nmero Else'no una String verificaTol = "OK, error estimado