Home

Complemento en Excel® 2010 para el Pronóstico No Paramétrico

1. Fecha dd mm aa 28 11 2011 A z Complemento en excel O 2010 para el pron stico No Nombre del proyecto Param trico De Series De Tiempo Director del proyecto Javier Jaramillo Betancur Nombre del estudiante Quintero Cata o Jonathan Nombre del Jurado Nicol s Arango Londo o Fredy Ocaris P rez Evaluaci n del proyecto No aprobado Menci n P blica __ Menci n honor fica Trabajo laureado a 1 Justificaci n del reconocimiento Articulo 28 del Acuerdo 11 El director del Programa presentar el acta final de evaluaci n al Consejo Acad mico donde consta la solicitud de menci n especial debidamente justificada y el Consejo determinar si se otorga o no AA lines afloat RECTOR DEL TRABAJO DE GRADO w peee JURADO 2 Evaluaci n Trabajo de grado formulario oficial a partir de enero de 2009 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA
2. Next contadordedatos pron sticos extramuestrales se debe calcular el ultimo promedio promedio 0 For contadork 0 To k 1 promedio promedio datosYt nrodatos contadork Next contadork promedio promedio k se asigna el ultimo promedio muestral a los pron sticos extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos promedio Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA sse calcula de los errores de pron stico primero redimensionando el vector errort al n mero de datos y limpi ndolo valor 1000000 para reconocerlo ReDim errort nrodatos For contadordedatos 1 To k errort contadordedatos 0 Next contadordedatos se cargan los errores calculados al vector For contadordedatos k 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos se calcula el MAD MAD 0 For contadordedatos k 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos k se calcula el MAPE si es posible MAPE 0 For contadordedatos k 1 To nrodatos If datosYt contadordedatos 0 Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para poder mostrar el mensaje de error contadordedatos
3. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Tiempo Gr fico 1 4 Series Tipo 2 e Series tipo 3 La serie presenta un comportamiento creciente o decreciente en el largo plazo es decir que tiene un patr n de tendencia El modelo es Ye Ti ut Donde T es la tendencia Hanke amp Reitsh Pron sticos en los negocios 5ed 1996 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Serie 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 iempo Gr fico 1 5 Series Tipo 3 e Series tipo 4 La serie presenta adem s de un patr n de tendencia un componente estacional El modelo de la serie est dado por Yt Ti St Ut Donde T es la tendencia S es el componente estacional Hanke Reitsh Pron sticos en los negocios 5ed 1996 30 25 20 15 Serie 10 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Tiempo Gr fico 1 6 Series Tipo 4 e Series estacionarias Se considera que una serie es estacionaria si o Carece de componente de tendencia o Es homoced stico es decir que tiene varianza independiente del tiempo o Carece de componente de estacionalidad o Si hay dependencia entre los datos esta se presenta siempre y la influencia de las observaciones sobre las posteriores decrece con el tiempo La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA
4. Error Exit Sub End If End If End If ACF True PACF True tomarelrango se llama la macro denominada tomarelrango que permite evaluar si el rango elegido por el usuario tiene errores ver Herramientas Descriptivas End Sub C digo cuando se hace clic en Graficar PACF c digo similar al anterior Sub MacroPACF control As IRibbonControl If niveldeconfianza Then MsgBox Debe digitar un valor del Nivel de Confianza en el intervalo 0 100 vbCritical Error Exit Sub Else If IsNumeric niveldeconfianza False Then MsgBox Ha digitado un valor no num rico del Nivel de Confianza vbCritical Error Exit Sub Else If niveldeconfianza lt 0 Or niveldeconfianza gt 100 Then MsgBox El valor del Nivel de Confianza debe estar en el intervalo 0 100 vbCritical Error La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Exit Sub End If End lf End If ACF False PACF True tomarelrango se llama la macro denominada tomarelrango que permite evaluar si el rango elegido por el usuario tiene errores ver Herramientas Descriptivas End Sub 3 3 EJECUCI N DEL COMPLEMENTO El usuario que desee ejecutar la pesta a en Microsoft Excel 2010 s lo deber darle doble clic al archivo denominado Pronosticador xlam el cual contiene todos los c digos descritos anteriormente y los que se muestran en los cap tulos siguientes para mayor inform
5. La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 4 2 1 Formulario Series Tipo 2 ESCUEL y DE ATOR A DE MIGO Ilustraci n 4 3 Formulario Series Tipo 2 A continuaci n se muestra el c digo desarrollado en VBA para el pron stico no param trico de este tipo de series luego que el formulario est cargado C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub checkMuestrales KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then eval a si la tecla presionada es Escape Unload Me descarga el formulario si se presion escape End If End Sub C digo que se ejecuta al dar clic en el bot n Aceptar es el mismo c digo que se mostr en el formulario Series Tipo 1 hasta que se eval a las opciones de m todo Private Sub cmdAceptar_Click On Error Resume Next Set RangoYt Range Me RefRangoY t Text On Error GoTo 0 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If RangoYt Is Nothing Then MsgBox No ha elegido un rango de entrada de la serie Yt v lido vbCritical Error RefRangoYt SetFocus Exit Sub Else nrocolumnas RangoYt Columns Count nrofilas RangoYt Rows Count If nrocolumnas gt 1 And nrofilas gt 1 Then MsgBox El rango de entrada de
6. Las series Tipo 1 son un caso particular de este tipo de serie 1 3 3 M todos no param tricos de series temporales Tipos de m todos e M todos de estructura fija Consideran que la tendencia y el componente estacional son constantes a lo largo de todos los periodos muestrales e M todos de estructura variable Suponen que el aporte de la tendencia y del componente estacional es distinto en cada uno de los periodos muestrales Hanke Reitsh Pron sticos en los negocios 5ed 1996 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA T cnicas de pron stico no param trico En la tabla presentada a continuaci n se describen las principales t cnicas de pron sticos para las series tipo 1 2 3 y 4 Nombre Ingenuo Tipo 1 Tipo 1 Ingenuo Tipo 2 Tipo 2 Media simple Tipo 1 Medias m viles Tipo 1 Suavizamiento E Tipo 1 exponencial Medias Tipo 2 estacionales Dobles medias Tipo 3 m viles Series a las que aplica Tabla 1 T cnicas de pron stico no param trico Estructura Consideraciones Variable Variable Fija Variable Variable Fija Variable Te Bo Bit k 1 DDM k MM k t 2 t T 2MM k DMM k le BL mm DMM k 1 Pron stico muestral MM k Dey1 aje Pen x X 1 ye Peri X ye 1 Si pertenece a la estaci n Pera T AE Pron s
7. c lculo de los errores de pronostico ReDim errort nrodatos For contadordedatos 1 To 2 k 1 errort contadordedatos 1000000 Next contadordedatos For contadordedatos 2 k To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 k To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA MAD MAD nrodatos 2 k 1 c lculo del MAPE MAPE 0 For contadordedatos 2 k To nrodatos If datosYt contadordedatos 0 Then MAPE 1 contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 2 k 1 End If variable1 k ptimo valorvariable1 k variable2 variable3 variable4 C digo para eliminar la hoja usada por el Solver Application DisplayAlerts False Sheets 1 Select ActiveWindow SelectedSheets Delete La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Application DisplayAlerts True Application ScreenUpdating True se activa la opci n de actualizaci n de pantalla inmediata End Sub Suavizamiento exponencial lineal de Holt Sub
8. DMMt t tulo en C2 Sheets 1 Cells 1 3 k t tulo en D1 Sheets 1 Cells 1 4 k coloca el k como inicial Sheets 1 Cells 2 6 MAD t tulo en G1 Sheets 1 Cells 2 4 Pron stico t tulo en D2 Sheets 1 Cells 2 5 Error t tulo en E2 c digo para ingresar en la hoja los datos de la serie For cont 1 To nrodatos Sheets 1 Cells cont 2 1 datosYt cont Next cont Sheets 1 Cells 3 2 Select f rmula de la media m vil k ActiveCell Formula _ IF ROW ROW A 3 lt D 1 AVERAGE INDIRECT G3 Sheets 1 Cells 3 2 Select Selection AutoFill Destination Range Cells 3 2 Cells nrodatos 2 2 Type xIFillDefault Sheets 1 Cells 3 3 Select f rmula de la doble media m vil k La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ActiveCell Formula _ IF ROW ROW A 3 lt 2 D 1 1 AVERAGE INDIRECT H3 Sheets 1 Cells 3 3 Select Selection AutoFill Destination Range Cells 3 3 Cells nrodatos 2 3 Type xIFillDefault Sheets 1 Cells 3 4 Select f rmula del pron stico ActiveCell Formula IF C3 2 B3 C3 2 D 1 1 B3 C3 Sheets 1 Cells 3 4 Select Selection AutoFill Destination Range Cells 3 4 Cells nrodatos 2 4 Type xIFillDefault Sheets 1 Cells 3 5 Select f rmula del valor absoluto del error de pron stico ActiveCell Formula IF D3 ABS A3 D3 Sheet
9. Mostrar Pron sticos Muestrales Private Sub checkMuestrales_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then eval a si la tecla presionada es Escape Unload Me descarga el formulario si se presion escape End If End Sub C digo que se ejecuta cuando cambia el cuadro de verificaci n Mostrar la Soluci n ptima Private Sub checkOptima_Change If checkOptima Value True Then eval a si est chuleado y se inhabilitan los controles innecesarios cuando se desea la soluci n ptima en caso contrario los habilita La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txtGamma Enabled False lblDelta Enabled False txtDelta Enabled False IblAdvertencia Visible True Else IblAlfa Enabled True txtAlfa Enabled True lblGamma Enabled True txtGamma Enabled True lblDelta Enabled True txtDelta Enabled True IblAdvertencia Visible False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n Mostrar la Soluci n Optima el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub checkOptima_KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If La informaci n presentada en e
10. No ha elegido un valor de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If If txtGamma Then se eval a que el dato necesario no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox No ha elegido un valor de gamma vbCritical Error txiGamma SetFocus Exit Sub End If If txtDelta Then se eval a que el dato necesario no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error se eval a que el dato necesario no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox No ha elegido un valor de delta vbCritical Error txtDelta SetFocus Exit Sub End If If IsNumeric txtAlfa Value False Then MsgBox No ha elegido un valor num rico de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If If IsNumeric txtGamma Value False Then La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MsgBox No ha elegido un valor num rico de gamma vbCritical Error txiGamma SetFocus Exit Sub End If If IsNumeric txtDelta Value False Then MsgBox No ha elegido un valor num rico de delta vbCritical Error txiDelta SetFocus Exit Sub End If alpha txtAlfa Value gamma txtGamma Value delta txtDelta Value If alpha lt 0 Or alpha gt 1 Then se eval
11. SeriesCollection 2 XValues xlist 2PACF SeriesCollection 2 Values ylist2PACF SeriesCollection NewSeries SeriesCollection 3 XValues xlist3PACF SeriesCollection 3 Values ylist3PACF Axes xlCategory HasTitle False SetElement msoElementChartTitleAboveChart ChartTitle Select ChartTitle Text PACF End With Selection Format TextFrame2 TextRange Characters Text PACF With Selection Format TextFrame2 TextRange Characters 1 3 ParagraphFormat TextDirection msoTextDirectionLeftToRight La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Alignment msoAlignCenter End With With Selection Format TextFrame2 TextRange Characters 1 3 Font BaselineOffset 0 Bold msoTrue NameComplexScript mn cs NameFarEast mn ea Fill Visible msoTrue Fill ForeColor RGB RGB 0 0 0 Fill Transparency 0 Fill Solid Size 18 Italic msoFalse Kerning 12 Name mn It UnderlineStyle msoNoUnderline Strike msoNoStrike End With mychartPACF Axes xlValue MajorGridlines Select With Selection Format Line Visible msoTrue Weight 0 5 End With With Selection Format Line La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Visible msoTrue DashStyle msoLineSysDash End With With Selection Format Line Visible msoTrue ForeColor ObjectThemeColor m
12. k 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos k c lculo del MAPE MAPE 0 For contadordedatos k 1 To nrodatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA If datosYt contadordedatos 0 Then MAPE 1 contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos k End If variable1 k ptimo valorvariable1 k variable2 variable3 variable4 C digo para eliminar la hoja usada por el Solver Application DisplayAlerts False Sheets 1 Select ActiveWindow SelectedSheets Delete Application DisplayAlerts True Application ScreenUpdating True se activa la opci n de actualizaci n de pantalla inmediata End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Media simple Sub mediasimpletipo1 se declaran variables necesarias para el desarrollo del algoritmo Dim promedio As Double promedio 0 se calcula el promedio de los datos muestrales For contadordedatos 1 To nrodatos promedio promedio datosYt contadordedatos Next contadordedatos promedio promedio nrodatos pron sticos muestrales empieza en 1 y es el promedio de los datos For contadorde
13. la primera observaci n en cada estaci n ReDim Tt nrodatos ReDim Beta1 nrodatos ReDim St nrodatos For contadordedatos 1 To s Tt contadordedatos 0 Beta1 contadordedatos 0 St contadordedatos datosYt contadordedatos pronosticosYt contadordedatos 1000000 errort contadordedatos 1000000 Next contadordedatos para los dem s muestrales se usa la f rmula del marco de referencia For contadordedatos s 1 To nrodatos Tt contadordedatos alpha datosYt contadordedatos St contadordedatos s 1 alpha Tt contadordedatos 1 Beta1 contadordedatos 1 Beta1 contadordedatos gamma Tt contadordedatos Tt contadordedatos 1 1 gamma Beta1 contadordedatos 1 St contadordedatos delta datos Yt contadordedatos Tt contadordedatos 1 delta St contadordedatos s pronosticosYt contadordedatos Tt contadordedatos 1 Beta1 contadordedatos 1 St contadordedatos s Next contadordedatos pron sticos extramuestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA se usa la f rmula del marco de referencia For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos Tt nrodatos Beta1 nrodatos contadordedatos nrodatos St nrodatos nropronosticosextra s contadordedatos nrodatos Mod s Next contadordedatos c lculo de l
14. n Mostrar Pron sticos Muestrales Private Sub checkMuestrales KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then eval a si la tecla presionada es Escape Unload Me descarga el formulario si se presion escape End If End Sub C digo que se ejecuta cuando cambia el cuadro de verificaci n Mostrar la Soluci n ptima Private Sub checkOptima_Change If checkOptima Value True Then eval a si est chuleado If optMediasMoviles Value True optSuavizamiento Value True Then eval a si la opci n de m todo medias m viles o la opci n de suavizamiento est activada IblAdvertencia Visible True si se cumple que se desea soluci n ptima para el m todo medias m viles se saca un mensaje de advertencia Else IblAdvertencia Visible False si es otro m todo se oculta el mensaje de advertencia End If se inhabilitan los controles innecesarios cuando se desea la soluci n ptima txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False Else IblAdvertencia Visible False oculta la advertencia La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If optMediasMoviles Value True Then eval a si la opci n de m todo medias m viles est activada para dejar habilitados los controles requeridos e inhabilitar los dem s txtK Enabled True IbIK Enabled True IblAlfa Enab
15. nrodatos 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos k End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 k valorvariable1 k variable2 variable3 variable4 End If End Sub Optimizado de medias m viles Sub optimizarmediasmovilestipo1 se declaran variables necesarias para el desarrollo del algoritmo Dim cont As Integer Dim contadork As Integer Dim promedio As Double La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Application ScreenUpdating False se desactiva la opci n de actualizaci n de pantalla inmediata resetear el solver SolverReset c digo para poner los datos necesarios en una nueva hoja para usar el solver Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos Sheets 1 Activate Sheets 1 Cells 1 1 Yt t tulo en A1 Sheets 1 Cells 1 2 Pron stico t tulo en B1 Sheets 1 Cells 1 3 Error t tulo en C1 Sheets 1 Cells 1 4 k t tulo en D1 Sheets 1 Cells 1 5 k coloca el k como inicial Sheets 1 Cells 1 7 MAD t tulo en
16. xlist3ACF SeriesCollection 3 Values ylist3ACF Axes xICategory HasTitle False SetElement msoElementChartTitleAboveChart ChartTitle Select ChartTitle Text ACF End With Selection Format TextFrame2 TextRange Characters Text ACF With Selection Format TextFrame2 TextRange Characters 1 3 ParagraphFormat TextDirection msoTextDirectionLeftToRight Alignment msoAlignCenter End With With Selection Format TextFrame2 TextRange Characters 1 3 Font BaselineOffset 0 Bold msoTrue NameComplexScript mn cs NameFarEast mn ea Fill Visible msoTrue Fill ForeColor RGB RGB 0 0 0 Fill Transparency 0 Fill Solid La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Size 18 Italic msoFalse Kerning 12 Name mn It UnderlineStyle msoNoUnderline Strike msoNoStrike End With mychartACF Axes xlValue MajorGridlines Select With Selection Format Line Visible msoTrue Weight 0 5 End With With Selection Format Line Visible msoTrue DashStyle msoLineSysDash End With With Selection Format Line Visible msoTrue ForeColor ObjectThemeColor msoThemeColorBackground1 ForeColor TintAndShade 0 ForeColor Brightness 0 25 Transparency 0 End With La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA mychartACF SeriesCollection 2 Char
17. 1 carga 1000000 en esas posiciones del vector de pronosticos Yt For contadordedatos 1 To 2 k 1 pronosticosYt contadordedatos 1000000 Next contadordedatos For contadordedatos 2 k To nrodatos pronosticosYt contadordedatos 2 MMt contadordedatos DMMt contadordedatos 2 k 1 MMt contadordedatos DMMt contadordedatos Next contadordedatos pron sticos extramuestrales se usa la f rmula del marco de referencia For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos 2 MMt nrodatos DMMt nrodatos 2 contadordedatos nrodatos k 1 MMt nrodatos DMMt nrodatos Next contadordedatos sse calcula de los errores de pron stico primero redimensionando el vector errort al n mero de datos y limpi ndolo valor 1000000 ReDim errort nrodatos For contadordedatos 1 To 2 k 1 errort contadordedatos 1000000 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Next contadordedatos For contadordedatos 2 k To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 k To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos 2 k 1 c lculo del MAPE MAPE 0 For contadordedatos 2 k To nrodatos
18. ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then eval a si la tecla presionada es Escape La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Unload Me descarga el formulario si se presion escape End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n Mostrar la Soluci n Optima el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub checkOptima_KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando cambia el cuadro de verificaci n Mostrar la Soluci n ptima Private Sub checkOptima_Change If checkOptima Value True Then eval a si est chuleado se inhabilitan los controles innecesarios cuando se desea la soluci n ptima txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txtGamma Enabled False Else IblAdvertencia Visible False oculta la advertencia La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA If optDoblesMediasMoviles Value True Then eval a si la opci n de m todo dobles medias m viles est activada para dejar habilitados los controles requeridos e inhabilitar los d
19. For contadordedatos 1 To s pronosticosYt contadordedatos 1000000 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next contadordedatos For contadordedatos s 1 To nrodatos pronosticosYt contadordedatos datosYt contadordedatos s Next contadordedatos pron sticos extramuestrales es el ltimo dato observado en la estaci n a la que pertenece For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos datosYt nrodatos nrodatos nropronosticosextra contadordedatos Mod s Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos For contadordedatos 1 To s errort contadordedatos 1000000 Next contadordedatos For contadordedatos s 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos s 1 To nrodatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos s c lculo del MAPE MAPE 0 For contadordedatos s 1 To nrodatos If datosYt contadordedatos O Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el m
20. MacroACF label Graficar ACF gt En esta l nea de c digo es donde se agrega un primer bot n dentro del men de la segunda agrupaci n el cual tiene una identificaci n btnACF instrucci n id un r tulo Graficar ACF instrucci n label una imagen que se denomina ACF la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image y es la instrucci n onAction denominada MacroACF la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt button id btnPACF image PACF onAction MacroPACF label Graficar PACF gt En esta l nea de c digo es donde se agrega un segundo bot n dentro del men de la segunda agrupaci n el cual tiene una identificaci n btnPACF instrucci n id un r tulo Graficar PACF instrucci n label una imagen que se denomina PACF la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image y es la instrucci n onAction denominada MacroPACF la que permite que dentro de Visual Basic For La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt button id btnAmbas image ACFyPACF onAction MacroACFyPACF label Grafica
21. ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverAdd CellRef E 1 Relation 1 FormulaText 25 SolverAdd CellRef E 1 Relation 3 FormulaText 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA SolverAdd CellRef E 1 Relation 4 FormulaText entero SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverOptions MaxTime 0 lterations 0 Precision 0 000001 Convergence _ 0 0000000000001 StepThru False Scaling True AssumeNonNeg True _ Derivatives 1 SolverOptions PopulationSize 100 RandomSeed 0 MutationRate 0 075 Multistart _ False RequireBounds True MaxSubproblems 0 MaxIntegerSols 0 _ IntTolerance 0 1 SolveWithout False MaxTimeNolmp 30 SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverSolve UserFinish True con esta l nea de c digo el usuario no necesita darle clic en ok cuando el solver encuentra la soluci n C digo para copiar y pegar como valores con los resultados dados por el Solver Cells Select Selection Copy Selection PasteSpecial Paste xlPasteValues Operation xlNone SkipBlanks _ False Transpose False Columns F F Selec
22. With Selection Format TextFrame2 TextRange Characters 1 3 Font BaselineOffset 0 Bold msoTrue NameComplexScript mn cs NameFarEast mn ea Fill Visible msoTrue La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Fill ForeColor RGB RGB 0 0 0 Fill Transparency 0 Fill Solid Size 18 Italic msoFalse Kerning 12 Name mn It UnderlineStyle msoNoUnderline Strike msoNoStrike End With mychart Axes xIValue MajorGridlines Select With Selection Format Line Visible msoTrue Weight 0 5 End With With Selection Format Line Visible msoTrue DashStyle msoLineSysDash End With With Selection Format Line Visible msoTrue ForeColor ObjectThemeColor msoThemeColorBackground1 ForeColor TintAndShade 0 ForeColor Brightness 0 25 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Transparency 0 End With ActiveChart Legend Select Selection Delete If nrodatos gt 15 Then ActiveChart Axes xlCategory TickLabelSpacing 2 Else ActiveChart Axes xlCategory TickLabelSpacing 1 End If ActiveSheet Shapes 1 Height 300 ActiveSheet Shapes 1 Width 400 ActiveSheet Shapes 1 Top 65 ActiveSheet Shapes 1 Left 450 Range E8 Select Else Sheets 1 Columns A E Select Selection Delete Shift xIToLeft Sheets 1 Cells 1 3 Sele
23. contadordedatos contadordedatos Next contadordedatos End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If Range E8 Select End Sub A continuaci n se observa un ejemplo del gr fico de la PACF con los datos tabulados 1 0 0160 2 0 0266 PACF 3 0 0717 4 0 1371 na 5 0 0240 0 4 4 6 0 0357 7 0 0052 0 3 7 8 0 1912 ga 9 0 0857 10 0 0782 0 1 a A 11 0 0330 o A 1 5 7 Ta 15 b 19 21 3 25 27 29 13 0 0141 01 14 0 0006 MS A a 15 0 0965 0 2 4 16 0 0003 Bad 17 0 0617 18 0 0084 0 4 4 19 0 1068 20 0 0403 ba 21 0 0144 Ilustraci n 5 3 Ejemplo PACF La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 6 DISCUSI N DE RESULTADOS Con el fin de evaluar el complemento desarrollado en Microsoft Excel 2010 se eval o los algoritmos desarrollados con una serie de tiempo real se us los controles del Pronosticador en la serie de tiempo correspondiente a los rendimientos diarios de la acci n de Grupo Sura entre octubre de 2010 y septiembre de 2011 Para ver en detalle los datos correspondientes a la serie de tiempo ver Anexo 1 6 1 PRON STICOS NO PARAM TRICOS A continuaci n se presenta los datos obtenidos por la primera secci n del Pronosticador denominada Pron sticos No Param tricos Para este caso se utiliz el m todo de pr
24. datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos 1 c lculo del MAPE La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MAPE 0 For contadordedatos 2 To nrodatos If datosYt contadordedatos O Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 1 End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 Alpha valorvariable1 alpha variable2 variable3 variable4 End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Optimizado de suavizamiento exponencial Sub optimizarsuavizamientotipol se declaran variables necesarias para el desarrollo del algoritmo Dim cont As Integer Application ScreenUpdating False se desactiva la opci n de actualizaci n de pantalla inmediata resetear el solver SolverReset c
25. de ste se ha hecho m s eficiente la manera de recopilar informaci n Adicionalmente se han desarrollado muchas herramientas que permiten el manejo de dicha informaci n para distintos fines Los pron sticos de series de tiempo buscan por medio de la recopilaci n de diferentes datos e informaci n poder determinar bajo ciertos m todos y con un alto grado de confianza c mo ser el comportamiento futuro de la variable estudiada A pesar de las imprecisiones que puede llevar el proceso de pronosticar bajo m todos cuantitativos el combinar el juicio personal con los pron sticos realizados bajo estas t cnicas aprovechando la llegada de los computadores y la aparici n de las t cnicas modernas de pron stico se consideran que son m s precisos que los que se realizan nicamente con los juicios personales Hanke 8 Wichern Pronosticos en los negocios 8ed 2006 Desde la aparici n de Microsoft Excel O a finales de los a os 80 esta herramienta para el procesamiento de datos ha venido ganando gran posici n dentro de la sociedad y actualmente es de las m s usadas por las personas dentro y fuera de las organizaciones Actualmente la necesidad tanto de las personas como de las empresas en poder determinar el entorno futuro al cual se van a enfrentar y con el fin de tomar decisiones que le otorguen cierta ventaja sobre las dem s en conjunto con el avance en materia de tecnolog a que ha tenido la humanidad y el uso masivo que tiene M
26. del m todo sin optimizaci n junto con el c lculo del error k Sheets 1 Cells 1 4 pron sticos muestrales ReDim MMit nrodatos For contadordedatos k 1 To nrodatos promedio 0 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA For contadork 1 To k promedio promedio datosYt contadordedatos contadork Next contadork promedio promedio k MMt contadordedatos promedio Next contadordedatos ReDim DMMt nrodatos For contadordedatos 2 k To nrodatos promedio 0 For contadork 0 To k 1 promedio promedio MMt contadordedatos contadork Next contadork promedio promedio k DMMt contadordedatos promedio Next contadordedatos For contadordedatos 1 To 2 k 1 pronosticosYt contadordedatos 1000000 Next contadordedatos For contadordedatos 2 k To nrodatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA pronosticosYt contadordedatos 2 l MMt contadordedatos DMMt contadordedatos 2 k 1 MMt contadordedatos DMMt contadordedatos Next contadordedatos pron sticos extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos 2 MMt nrodatos DMMt nrodatos 2 contadordedatos nrodatos k 1 MMt nrodatos DMMt nrodatos Next contadordedatos
27. el desarrollo de dicho proyecto En segundo lugar se puede visualizar la metodolog a utilizada en el desarrollo del proyecto Luego puede observar el desarrollo de los c digos necesarios para generar la pesta a en Microsoft Excel 2010 denominada Pronosticador el cual tiene dos secciones llamadas Pron sticos No Param tricos y Herramientas Descriptivas Estas dos secciones se desarrollan cada una con sus controles desarrollados La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 1 PRELIMINARES 1 1 PLANTEAMIENTO DEL PROBLEMA El futuro es un tema que siempre ha preocupado al hombre por ello ha buscado formas para conocerlo En la antig edad el uso de artes adivinatorias fue muy utilizado por reyes y jerarcas tambi n muy cuestionado en las cortes con fuerte vinculaci n con la iglesia Instituto Tecnol gico Superior de Calkin En la actualidad no son s lo los seres humanos quienes desean conocer cu les ser n los acontecimientos futuros sino que en un mundo globalizado donde las compa as tienen prisa por tomar una ventaja competitiva sobre las dem s se hace importante para todo tipo de organizaci n poder determinar con un alto grado de confianza los comportamientos venideros y sacar provecho de esta informaci n En las ltimas d cadas la humanidad ha logrado un desenfrenado avance en materia de tecnolog a y como consecuencia
28. ha elegido un rango de entrada de la serie Yt v lido vbCritical Error Exit Sub Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA nrocolumnas RangoYt Columns Count se cargan en la variable el n mero de columnas del Rango Yt nrofilas RangoYt Rows Count se cargan en la variable el n mero de filas del RangoYt If nrocolumnas gt 1 And nrofilas gt 1 Then Verifica que el rango sea un vector y no una matriz en caso contrario saca un mensaje de error MsgBox El rango de entrada de la serie Yt debe ser una sola fila o columna vbCritical Error Exit Sub Else C digo para asignar el n mero de datos seg n si el vector es vertical u horizontal If nrocolumnas 1 Then nrodatos nrofilas Else nrodatos nrocolumnas End If For Each celda In RangoYt se verifica que sean datos num ricos los que se encuentran en el RangoYt si no es as saca un mensaje de error If IsNumeric celda False Then La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MsgBox Existen datos no num ricos en el rango elegido vbCritical Error Exit Sub Else se verifica que no existan vac os en el RangoYt si no es as saca un mensaje de error If IsEmpty celda True Then MsgBox Existen celdas sin datos en el rango elegido vbCritical Error Exit Sub End If
29. la etiqueta del control al que se hace referencia es igual al valor de la variable If checknivel True Then eval a lo que el usuario chule en el cuadro de verificaci n La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA returnedVal True returnedVal es verdadero habilitado Else returnedVal False returnedVal es falso inhabilitado End If Else returnedVal False returnedVal es falso inhabilitado End If End If End Sub Macro habilitarporct de la instrucci n getEnabled cambia el control pero es el mismo c digo que el del cuadro de texto descrito anteriormente Sub habilitarporct control As IRibbonControl ByRef returnedVal If habilitarNCLabel inhabilitar Then returnedVal False Else If control Tag Like habilitarNCLabel Then If checknivel True Then returnedVal True Else returnedVal False End If Else returnedVal False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA End If End If End Sub C digo cuando carga el complemento Sub RibbonOnLoad Ribbon As IRibbonUl Set Rib Ribbon establece que la variable Rib es el complemento cargado End Sub C digo cuando cambia el valor del cuadro de texto Sub CambioTxt control As IRibbonControl Text As String NCtomado Text se almacena el valor digitado en la variable niveldeconfianza NCtomado e
30. metodosuavizamientotipo3 se declaran variables necesarias para el desarrollo del algoritmo Dim Tt As Double Dim Beta1 As Double If solucionoptima True Then eval a si el usuario desea la soluci n ptima entonces llama la macro que lo optimiza de lo contrario sigue con el algoritmo optimizarsuavizamientotipo3 Else pron sticos muestrales Tt para el t 1 es el dato de t 1 Beta1 1 es cero ReDim Tt nrodatos ReDim Beta1 nrodatos Tt 1 datosYt 1 Beta1 1 0 pronosticosYt 1 1000000 para los dem s muestrales se usa la f rmula del marco de referencia For contadordedatos 2 To nrodatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA pronosticosYt contadordedatos Tt contadordedatos 1 Beta1 contadordedatos 1 Tt contadordedatos alpha datosYt contadordedatos 1 alpha pronosticosYt contadordedatos Beta1 contadordedatos gamma Tt contadordedatos Tt contadordedatos 1 1 gamma Beta1 contadordedatos 1 Next contadordedatos pron sticos extramuestrales se usa la f rmula del marco de referencia For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos Tt nrodatos Beta1 nrodatos contadordedatos nrodatos Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos errort 1 1000000 For co
31. o del complemento Inicio Insertar Dise o de p gina F rmulas Datos Revisar Vista Programador Complementos Pronosticador Pta Pta l x L y Mr Nivel de Confianza MO Aoa Mo Bo man Series Series Series Series Autocorrelaci n Tipoi Tipo2 Tipo3 Tipo4 X Pron sticos No Param tricos Herramientas Descriptivas Tabular datos Ilustraci n 3 1 Imagen de Pesta a Pronosticador A continuaci n se presenta el c digo XML que se implement dentro de la herramienta lt customUI xmlns http schemas microsoft com office 2009 07 customui onLhoad RibbonOnLoad gt lt ribbon gt stabs lt tab id Tabl label Pronosticador gt lt group id Groupl label Pron sticos No Param tricos gt button id btnTipol La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA label Series Tipo 1 image Tipol onAction MacroTipol size large gt lt button id pta poz label Series Tipo 2 image Tipo2 onAction MacroTipo2 size large gt lt button id btnTipo3 label Series Tipo 3 image Tipo3 onAction MacroTipo3 size large gt Fputton id btnTipo4 label Series Tipo 4 image Tipo4 onAction MacroTipo4 size large gt lt group gt lt group id Group2 label Herramientas Descriptivas gt lt menu id MenuAutocorrelacion image ACFyPACF itemSize large label Autocorrelaci n size large gt butt
32. presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If optMediasMoviles Value True Then se eval a si quiere la soluci n ptima y se almacena esta respuesta en una variable If checkOptima Value False Then solucionoptima False If txtk Then se eval a que el dato necesario no este vac o y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox Debe elegir un valor de k para este m todo vbCritical Error txtK SetFocus Exit Sub End If k txtK Value If k gt nrodatos Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Ha elegido un valor de k inv lido recuerde que no puede ser mayor al n mero de datos vbCritical Error txiK SetFocus Exit Sub End If Else solucionoptima True k 3 End If mediasmovilestipo1 se llama la macro con el m todo de pron stico End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA c digo para cuando est activado el m todo de suavizamiento exponencial If optSuavizamiento Value True Then If checkOptima Value False Then se eval a si quiere la soluci n ptima y se almacena esta respuesta en una variable solucionoptima False If txtAlfa Then se eval a que el dato necesario no este vac o que sea num rico y se almacena en una va
33. y tiene el siguiente c digo C digo cuando cambia el cuadro de verificaci n Nivel de Confianza Sub PresionNivel control As IRibbonControl pressed As Boolean checknivel pressed se almacena en la variable el valor de True o False seg n si est o no chuleado el cuadro de verificaci n habilitarNivelConfianza se llama la macro denominada habilitarNivelConfianza If checknivel False Then se eval a si no est chuleado niveldeconfianza NCpordefecto se establece el valor de la variable niveldeconfianza con el valor por defecto NCpordefecto 95 cuando no est chuleado Else niveldeconfianza NCtomado se establece el valor de la variable niveldeconfianza con el valor tomado del cuadro de texto NCtomado cuando est chuleado La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If End Sub C digo cuando cambia el cuadro de verificaci n Tabular Datos Sub PresionTabular control As IRibbonControl pressed As Boolean mostrartabla pressed se almacena en la variable el valor de True o False seg n si est o no chuleado el cuadro de verificaci n End Sub Macro habilitarNivelConfianza Sub habilitarNivelConfianza C digo que llama las macros para recargar el cuadro de texto Nivel de Confianza y el r tulo con las etiquetas dadas Call RecargarTxt Tag txtNC Call RecargarLabel Tag lblPorct End Sub Mac
34. y no compromete a la ElA SolverAdd CellRef G 1 Relation 3 FormulaText 0 SolverAdd CellRef G 2 Relation 3 FormulaText 0 SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange G 1 G 2 _ Engine 3 EngineDesc Evolutionary SolverOptions MaxTime 0 lterations 0 Precision 0 000001 Convergence _ 0 00000000001 StepThru False Scaling True AssumeNonNeg True _ Derivatives 1 SolverOptions PopulationSize 100 RandomSeed 0 MutationRate 0 075 Multistart _ False RequireBounds True MaxSubproblems 0 MaxIntegerSols 0 _ IntTolerance 0 1 SolveWithout False MaxTimeNolmp 30 SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange G 1 G 2 _ Engine 3 EngineDesc Evolutionary SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange G 1 G 2 _ Engine 3 EngineDesc Evolutionary SolverSolve UserFinish True con esta l nea de c digo el usuario no necesita darle clic en ok cuando el solver encuentra la soluci n C digo para copiar y pegar como valores con los resultados dados por el Solver Cells Select Selection Copy Selection PasteSpecial Paste xlPasteValues Operation xlNone SkipBlanks _ False Transpose False Application CutCopyMode False Sheets 1 Cells 1 1 Select toma los valores ptimos de alpha y de gamma y se ejecuta el mismo c digo del m todo sin optimizaci n junto con el c lculo del error La informaci n presentada en este docume
35. 0 37 700 00 0 00 22 12 2010 37 800 00 0 26 23 12 2010 38 300 00 1 31 24 12 2010 38 480 00 0 47 27 12 2010 39 160 00 1 75 28 12 2010 38 200 00 2 48 29 12 2010 37 700 00 1 32 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Fecha Precio Cierre Rendimiento 30 12 2010 37 480 00 0 59 03 01 2011 37 260 00 0 59 04 01 2011 37 940 00 1 81 05 01 2011 37 300 00 1 70 06 01 2011 37 000 00 0 81 07 01 2011 37 500 00 1 34 11 01 2011 36 520 00 2 65 12 01 2011 36 900 00 1 04 13 01 2011 37 340 00 1 19 14 01 2011 37 000 00 0 91 17 01 2011 37 200 00 0 54 18 01 2011 37 000 00 0 54 19 01 2011 36 200 00 2 19 20 01 2011 35 460 00 2 07 21 01 2011 35 420 00 0 11 24 01 2011 35 680 00 0 73 25 01 2011 35 700 00 0 06 26 01 2011 35 880 00 0 50 27 01 2011 36 000 00 0 33 28 01 2011 35 500 00 1 40 31 01 2011 35 300 00 0 56 01 02 2011 35 600 00 0 85 02 02 2011 35 300 00 0 85 03 02 2011 35 000 00 0 85 04 02 2011 34 800 00 0 57 07 02 2011 34 520 00 0 81 08 02 2011 35 180 00 1 89 09 02 2011 35 080 00 0 28 10 02 2011 34 840 00 0 69 1
36. 1 02 2011 35 380 00 1 54 14 02 2011 35 680 00 0 84 15 02 2011 34 900 00 2 21 16 02 2011 34 900 00 0 00 17 02 2011 33 900 00 2 91 18 02 2011 33 560 00 1 01 21 02 2011 33 540 00 0 06 22 02 2011 33 300 00 0 72 Fecha Precio Cierre Rendimiento 23 02 2011 33 980 00 2 02 24 02 2011 34 000 00 0 06 25 02 2011 33 900 00 0 29 28 02 2011 35 400 00 4 33 01 03 2011 35 700 00 0 84 02 03 2011 35 700 00 0 00 03 03 2011 36 320 00 1 72 04 03 2011 36 820 00 1 37 07 03 2011 36 780 00 0 11 08 03 2011 36 580 00 0 55 09 03 2011 37 100 00 1 41 10 03 2011 36 100 00 2 73 11 03 2011 35 980 00 0 33 14 03 2011 36 000 00 0 06 15 03 2011 35 400 00 1 68 16 03 2011 35 080 00 0 91 17 03 2011 37 100 00 5 60 18 03 2011 38 600 00 3 96 22 03 2011 38 600 00 0 00 23 03 2011 38 480 00 0 31 24 03 2011 38 480 00 0 00 25 03 2011 38 100 00 0 99 28 03 2011 37 720 00 1 00 29 03 2011 37 300 00 1 12 30 03 2011 37 100 00 0 54 31 03 2011 37 180 00 0 22 29 03 2011 37 300 00 0 32 30 03 2011 37 100 00 0 54 31 03 2011 37 180 00 0 22 01 04 2011 36 980 00 0 54 04 04 2011 36 620 00 0 98 05 04 2011 37 300 00 1 84 06 04 2011 37 300 00 0 00 07 04 2011 37 180 00 0 32 08 04 2011 37 320 00 0 38 11 04 2011 37 380 00 0 16 12 04 2011 37 360 00 0 05 La informaci n presentada en este documento es de exclusiva responsabi
37. 1613 21 0 0249 9 0 0788 22 0 0271 10 0 0511 23 0 1288 11 0 0437 24 0 0145 12 0 0583 25 0 0009 13 0 0215 26 0 0004 14 0 0290 27 0 0746 15 0 0593 28 0 0482 16 0 0201 29 0 0295 17 0 0974 30 0 0871 18 0 0244 Ilustraci n 6 2 Gr fica ACF PACF La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Se muestra entonces los datos tabulados que se obtuvieron al igual que la gr fica de la Funci n de Autocorrelaci n Tabla 6 Resultados PACF k PACF k PACF 1 0 0160 16 0 0003 2 0 0266 17 0 0617 3 0 0717 18 0 0084 4 0 1371 19 0 1068 5 0 0240 20 0 0403 6 0 0357 21 0 0144 7 0 0052 22 0 0272 8 0 1912 23 0 1056 9 0 0857 24 0 0220 10 0 0782 25 0 0130 11 0 0330 26 0 0309 12 0 0136 27 0 0492 13 0 0141 28 0 0707 14 0 0006 29 0 0492 15 0 0965 30 0 1033 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Ilustraci n 6 3 Gr fica PACF La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 7 CONCLUSIONES Y CONSIDERACIONES FINALES e Los objetivos espec ficos se pudieron cumplir a cabalidad lo que permiti el cumplimiento del objetivo general e Luego de investigaciones y b squedas siempre p
38. 39 440 00 1 74 14 10 2010 39 400 00 0 10 15 10 2010 38 560 00 2 16 19 10 2010 39 200 00 1 65 20 10 2010 39 500 00 0 76 21 10 2010 40 540 00 2 60 22 10 2010 41 000 00 1 13 25 10 2010 40 900 00 0 24 26 10 2010 39 600 00 3 23 27 10 2010 39 380 00 0 56 28 10 2010 39 880 00 1 26 29 10 2010 41 000 00 2 77 02 11 2010 41 200 00 0 49 03 11 2010 41 500 00 0 73 04 11 2010 41 300 00 0 48 05 11 2010 41 480 00 0 43 08 11 2010 41 960 00 1 15 09 11 2010 41 700 00 0 62 10 11 2010 41 000 00 1 69 11 11 2010 39 660 00 3 32 12 11 2010 39 000 00 1 68 16 11 2010 38 400 00 1 55 Fecha Precio Cierre Rendimiento 17 11 2010 39 480 00 2 77 18 11 2010 39 000 00 1 22 19 11 2010 39 000 00 0 00 22 11 2010 38 580 00 1 08 23 11 2010 37 800 00 2 04 24 11 2010 38 400 00 1 57 25 11 2010 38 600 00 0 52 26 11 2010 38 780 00 0 47 29 11 2010 38 200 00 1 51 30 11 2010 38 300 00 0 26 01 12 2010 38 760 00 1 19 02 12 2010 39 500 00 1 89 03 12 2010 39 680 00 0 45 06 12 2010 39 720 00 0 10 07 12 2010 39 400 00 0 81 09 12 2010 39 400 00 0 00 10 12 2010 38 880 00 1 33 13 12 2010 38 500 00 0 98 14 12 2010 38 500 00 0 00 15 12 2010 37 500 00 2 63 16 12 2010 37 580 00 0 21 17 12 2010 37 600 00 0 05 20 12 2010 37 700 00 0 27 21 12 201
39. 4 14 09 2011 34 500 00 0 00 15 09 2011 34 960 00 1 32 16 09 2011 34 780 00 0 52 19 09 2011 34 700 00 0 23 20 09 2011 34 500 00 0 58 21 09 2011 34 220 00 0 81 22 09 2011 33 240 00 2 91 23 09 2011 33 880 00 1 91 26 09 2011 33 000 00 2 63 27 09 2011 33 400 00 1 20 28 09 2011 33 500 00 0 30 29 09 2011 33 960 00 1 36 30 09 2011 33 200 00 2 26 03 08 2011 35 340 00 1 01 04 08 2011 33 820 00 4 40 05 08 2011 33 500 00 0 95 08 08 2011 32 180 00 4 02 09 08 2011 33 480 00 3 96 10 08 2011 33 800 00 0 95 11 08 2011 34 640 00 2 45 12 08 2011 34 680 00 0 12 16 08 2011 34 400 00 0 81 17 08 2011 34 180 00 0 64 18 08 2011 33 480 00 2 07 19 08 2011 33 900 00 1 25 22 08 2011 33 780 00 0 35 23 08 2011 34 880 00 3 20 24 08 2011 34 900 00 0 06 25 08 2011 34 780 00 0 34 26 08 2011 34 980 00 0 57 29 08 2011 35 000 00 0 06 30 08 2011 35 000 00 0 00 31 08 2011 35 460 00 1 31 01 09 2011 35 460 00 0 00 02 09 2011 34 960 00 1 42 05 09 2011 34 020 00 2 73 06 09 2011 34 500 00 1 40 07 09 2011 35 100 00 1 72 08 09 2011 35 140 00 0 11 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Tia Sa Saber y Sot ESCUELA DE INGENIER A DE ANTIOQUIA ACTA DE EVALUACI N FINAL DE TRABAJO DE GRADO
40. 51 0 0014 Errores Medios El pron stico optimizado que se realiz con el precio de la acci n de Grupo Sura arroj los siguientes errores medios Tabla 4 Resultados Errores Medios Errores Medios Absoluto Porcentual 0 0111 NA Gr fica Datos Vs Pron sticos Se muestra la gr fica obtenida al comparar los datos reales con los pron sticos calculados La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Datos vs Pron sticos gt Datos gt Pron sticos Ilustraci n 6 1 Gr fico Datos vs Pron sticos 6 2 HERRAMIENTAS DESCRIPTIVAS A continuaci n se presenta los resultados obtenidos por la segunda secci n del Pronosticador denominada Herramientas Descriptivas Para este caso se utiliz el nivel de confianza predeterminado de 95 se decidi tabular los datos y se grafic la ACF y la PACF ACF Se muestra entonces los datos tabulados que se obtuvieron al igual que la gr fica de la Funci n de Autocorrelaci n Tabla 5 Resultados ACF k ACF 0 1 0000 3 0 0708 1 0 0160 4 0 1379 2 0 0269 5 0 0308 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA k ACF k ACF 6 0 0313 19 0 0575 7 0 0128 20 0 0740 8 0
41. 6 de Julio de 2011 de http www rondebruin nl ribbon htm Escuela Superior Polit cnica del Litoral s f DSpace Recuperado el 13 de Marzo de 2010 de www dspace espol edu ec bitstream 123456789 5729 3 CAPITULO2 20C0N 20 FORMATO doc Hanke J E Reitsh A G 1996 Pron sticos en los negocios 5ed Mexico Prentice Hall Hanke J E amp Wichern D W 2006 Pronosticos en los negocios 8ed Mexico Pearson Instituto Tecnol gico Superior de Calkin s f IMPORTANCIA DE LOS PRON STICOS Prospectiva Recuperado el 21 de Abril de 2011 de https www itescam edu mx principal sylabus fpdb recursos r48969 DOC Quintero Cata o J 2010 Modelo De Pron sticos Para La Valoraci n De Empresas Basada En Los Riesgos Y La Estructura De Capital Hist rico Envigado La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ANEXO 1 DATOS DE ACCI N DE GRUPO SURA Tabla 7 Precio Acci n Grupo Sura Fecha Precio Cierre Rendimiento 01 10 2010 38 300 00 04 10 2010 38 100 00 0 52 05 10 2010 38 300 00 0 52 06 10 2010 38 680 00 0 99 07 10 2010 38 360 00 0 83 08 10 2010 38 440 00 0 21 11 10 2010 38 880 00 1 14 12 10 2010 38 760 00 0 31 13 10 2010
42. 700 00 1 78 09 06 2011 41 660 00 2 33 10 06 2011 41 960 00 0 72 13 06 2011 38 920 00 7 52 14 06 2011 39 000 00 0 21 15 06 2011 38 180 00 2 12 16 06 2011 38 640 00 1 20 17 06 2011 38 880 00 0 62 20 06 2011 38 000 00 2 29 21 06 2011 38 300 00 0 79 22 06 2011 39 000 00 1 81 23 06 2011 38 900 00 0 26 24 06 2011 38 960 00 0 15 28 06 2011 38 780 00 0 46 29 06 2011 38 800 00 0 05 30 06 2011 37 800 00 2 61 01 07 2011 37 920 00 0 32 05 07 2011 38 900 00 2 55 06 07 2011 37 100 00 4 74 07 07 2011 37 000 00 0 27 08 07 2011 36 480 00 1 42 11 07 2011 35 380 00 3 06 12 07 2011 34 960 00 1 19 13 07 2011 34 900 00 0 17 14 07 2011 34 900 00 0 00 15 07 2011 34 800 00 0 29 18 07 2011 34 700 00 0 29 19 07 2011 35 240 00 1 54 21 07 2011 35 280 00 0 11 22 07 2011 35 440 00 0 45 25 07 2011 36 000 00 1 57 26 07 2011 36 180 00 0 50 27 07 2011 35 400 00 2 18 28 07 2011 35 920 00 1 46 29 07 2011 36 000 00 0 22 01 08 2011 35 980 00 0 06 02 08 2011 35 700 00 0 78 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Fecha Precio Cierre Rendimiento Fecha Precio Cierre Rendimiento 09 09 2011 34 880 00 0 74 12 09 2011 34 860 00 0 06 13 09 2011 34 500 00 1 0
43. ActiveSheet Shapes 1 Top 20 ActiveSheet Shapes 1 Left 200 Range E8 Select If mostrartabla True Then se eval a si el usuario desea mostrar los datos en ese caso se ingresan en la hoja nueva Sheets 1 Cells 1 1 k Sheets 1 Cells 1 2 ACF sse cambia de estilo para la tabla de los valores de la ACF Sheets 1 Range Cells 1 1 Cells 1 2 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xlThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA End With Selection Font Bold True Sheets 1 Columns B B Select Selection NumberFormat 0 0000 se cargan los datos calculados en la hoja nueva For contadordedatos 0 To kAutocorrelacion Sheets 1 Cells 2 contadordedatos 1 contadordedatos Sheets 1 Cells 2 contadordedatos 2 Rho contadordedatos Next contadordedatos End If End Sub A continuaci n se muestra un ejemplo de gr fica de ACF con los datos tabulados 0 1 0000 1 0 0160 ACF 2 0 0269 3 0 0708 Sa 4 0 1379 0 4 4 5 0 0308 0 3 l 6 0 o313 7 0 0128 0 2 8 0 1613 y ll a _ _ 0 1 4 9 0 0788 l L ly 10 0 0511 o 44 Ak T Me E my rn L OLI LI
44. Cell Formula CONCATENATE D ROW H 4 Sheets 1 Cells 2 10 Select Selection AutoFill Destination Range Cells 2 10 Cells nrodatos 1 10 Type xIFillDefault Sheets 1 Cells 1 10 Select f rmula del promedio del error absoluto que es el que se va a minimizar ActiveCell Formula AVERAGEIF F F lt gt EF Sheets 1 Cells 1 1 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA c digo por medio del cual se usa el solver indicando cual es el valor a minimizar junto con las restricciones de las variables que se deben cambiar SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange 5H 1 H 3 _ Engine 3 EngineDesc Evolutionary SolverAdd CellRef H 1 Relation 1 FormulaText 1 SolverAdd CellRef H 2 Relation 1 FormulaText 1 SolverAdd CellRef H 3 Relation 1 FormulaText 1 SolverAdd CellRef H 1 Relation 3 FormulaText 0 SolverAdd CellRef H 2 Relation 3 FormulaText 0 SolverAdd CellRef H 3 Relation 3 FormulaText 0 SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange 5H 1 H 3 _ Engine 3 EngineDesc Evolutionary SolverOptions MaxTime 0 lterations 0 Precision 0 000001 Convergence _ 0 00000000001 StepThru False Scaling True AssumeNonNeg True _ Derivatives 1 SolverOptions PopulationSize 100 RandomSeed 0 MutationRate 0 075 Multistar
45. Complemento en excel 2010 para el pron stico no param trico de series de tiempo AUTOR Jonathan Quintero Cata o Trabajo de grado para optar al t tulo de Ingeniero Administrador DIRECTOR Javier Vicente Jaramillo Betancur Docente Escuela de Ingenier a de Antioquia Ser i le y Sorin ESCUELA DE INGENIER A DE ANTIOQUIA INGENIER A ADMINISTRATIVA ENVIGADO 2011 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA AGRADECIMIENTOS Por medio de este proyecto que es una manera de culminar con 5 a os de vivencias en la Escuela de Ingenier a de Antioquia deseo aprovechar para darle mi profundo agradecimiento a las personas que han hecho que sea posible llegar al lugar donde me encuentro Primero las infinitas gracias a mis padres son ellos quienes con su educaci n integra y amorosa desde el principio de mi existencia han hecho de m una persona valiosa y que le puede aportar mucho a esta sociedad urgida de ese tipo de personas Segundo a mis familiares especialmente a mis hermanas por su apoyo incondicional y aunque hemos pasados momentos no tan buenos siempre el cari o y el amor mutuo logran superarlos y tener una excelente convivencia Tercero a la Alcald a de Medell n y su programa Olimpiadas del Conocimiento sin ellos no me hubiera sido posible estudiar y realizar este trabajo de grado en la ElA Cuarto a mis compa eros y profesores que duran
46. Else IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txtGamma Enabled False End If If checkOptima Value True Then IblAdvertencia Visible True Else IblAdvertencia Visible False End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False lbIGamma Enabled False txtGamma Enabled False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optSuavizamiento_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de referencia RangoYt el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub RefRangoYt_KeyPress KeyAscii As Integer If KeyAscii voKeyEscape Then Unload Me End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto alpha el c digo s lo permite ingresar ciertos caracteres para
47. End If si todo est correcto entonces carga los datos al vector datos Yt luego que se redimensiona el vector de datos ReDim datosYt nrodatos contadordedatos 1 For Each celda In RangoYt datosYt contadordedatos celda contadordedatos contadordedatos 1 Next se asigna el n mero de pron sticos extramuestrales siempre y cuando no sea vac o el text box IftxiNroPronosticos Then MsgBox No ha elegido un n mero de pron sticos extramuestrales vbCritical Error txtNroPronosticos SetFocus Exit Sub Else nropronosticosextra txtNroPronosticos Value La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If se verifica si se desean mostrar los pron sticos muestrales y se almacena esta respuesta en la variable If checkMuestrales Value True Then pronosticosmuestrales True Else pronosticosmuestrales False End If sse redimensiona el vector de pron sticos ReDim pronosticosYt nrodatos nropronosticosextra c digo para cuando est activado el m todo ingenuo If optingenuo Value True Then metodoingenuotipo1 se llama la macro con el m todo de pron stico End If c digo para cuando est activado el m todo de media simple If optMediaSimple Value True Then mediasimpletipo1 se llama la macro con el m todo de pron stico End If c digo para cuando est activado el m todo de medias m viles La informaci n
48. End If Next End If End If se verifica que el total de datos no sea menor a 10 si no se cumple se saca un mensaje de error If nrodatos lt 10 Then MsgBox N mero de datos insuficientes recuerde tomar 10 o m s vbCritical Error La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Exit Sub End If si todo est correcto entonces se calcula el valor de la banda explicado en el marco de referencia dentro de la cual los datos se hacen estad sticamente iguales a cero valordebanda Abs Application WorksheetFunction Norm_S_Inv 1 niveldeconfianza 100 2 1 nrodatos 1 2 se establece cu l es el k m ximo seg n el n mero de datos If nrodatos gt 30 Then kAutocorrelacion 30 Else kAutocorrelacion nrodatos 1 End If calcularRho se llama la macro con la que se calcula el valor de Rho para cada k Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran la graficas graficaACF se llama la macro con la que se grafica la ACF If PACF True Then si se desea graficar la PACF se llama la macro con la que se realiza la gr fica graficaPACF End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Funci n de Autocorrelaci n Sub calcularRho se declaran variables necesarias para el desarrollo del algor
49. Forms ReturnInteger If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub 4 4 2 M dulo M todos Series Tipo 4 Al igual que para los formularios anteriores se ha insertado un m dulo denominado MetodosTipo4 dentro del cual se desarroll el c digo VBA que permite generar los pron sticos deseados por el usuario A continuaci n se muestra dicho c digo desarrollado seg n la secci n 1 3 3 M todos no param tricos de series temporales y seg n la secci n 1 3 4 Medici n del error en el pron stico Suavizamiento exponencial de Holt Winters Sub metodosuavizamientotipo4 se declaran variables necesarias para el desarrollo del algoritmo Dim Tt As Double Dim Beta1 As Double Dim St As Double If solucionoptima True Then eval a si el usuario desea la soluci n ptima entonces llama la macro que lo optimiza de lo contrario sigue con el algoritmo optimizarsuavizamientotipo4 Else pron sticos muestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Tt para el t lt s es cero Beta1 t para t lt s es cero St para t lt s es el dato en t es decir
50. Formula AVERAGEIF C C lt gt G C Sheets 1 Cells 1 1 Select c digo por medio del cual se usa el solver indicando cual es el valor a minimizar junto con las restricciones de las variables que se deben cambiar SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverAdd CellRef E 1 Relation 1 FormulaText 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA SolverAdd CellRef E 1 Relation 3 FormulaText 0 SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverOptions MaxTime 0 lterations 0 Precision 0 000001 Convergence _ 0 00000000001 StepThru False Scaling True AssumeNonNeg True _ Derivatives 1 SolverOptions PopulationSize 100 RandomSeed 0 MutationRate 0 075 Multistart _ False RequireBounds True MaxSubproblems 0 MaxIntegerSols 0 _ IntTolerance 0 1 SolveWithout False MaxTimeNolmp 30 SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverOk SetCell H 1 MaxMinVal 2 ValueOf 0 ByChange E 1 Engine 3 _ EngineDesc Evolutionary SolverSolve UserFinish True con esta l nea de c digo el usuario no necesita darle clic en ok cuando el solver encuentra la soluci n C digo para copiar y pegar c
51. G 2 MaxMinVal 2 ValueOf 0 ByChange D 1 Engine 3 _ EngineDesc Evolutionary SolverOptions MaxTime 0 lterations 0 Precision 0 000001 Convergence _ 0 0000000000001 StepThru False Scaling True AssumeNonNeg True _ Derivatives 1 SolverOptions PopulationSize 100 RandomSeed 0 MutationRate 0 075 Multistart _ False RequireBounds True MaxSubproblems 0 MaxIntegerSols 0 _ IntTolerance 0 1 SolveWithout False MaxTimeNolmp 30 SolverOk SetCell G 2 MaxMinVal 2 ValueOf 0 ByChange D 1 Engine 3 _ La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA EngineDesc Evolutionary SolverOk SetCell G 2 MaxMinVal 2 ValueOf 0 ByChange D 1 Engine 3 _ EngineDesc Evolutionary SolverSolve UserFinish True con esta l nea de c digo el usuario no necesita darle clic en ok cuando el solver encuentra la soluci n C digo para copiar y pegar como valores con los resultados dados por el Solver Cells Select Selection Copy Selection PasteSpecial Paste xlPasteValues Operation xlNone SkipBlanks _ False Transpose False Sheets 1 Cells 1 6 Sheets 1 Cells 2 7 Columns G H Select Application CutCopyMode False Selection ClearContents Sheets 1 Cells 2 7 Sheets 1 Cells 1 6 Sheets 1 Cells 1 6 Sheets 1 Cells 1 1 Select toma el valor de k ptimo y se ejecuta el mismo c digo
52. G1 c digo para ingresar en la hoja los datos de la serie For cont 1 To nrodatos Sheets 1 Cells cont 1 1 datosYt cont Next cont Sheets 1 Cells 2 2 Select f rmula de la media m vil k ActiveCell Formula _ IF ROW ROW A 2 lt E 1 AVERAGE INDIRECT F2 Sheets 1 Cells 2 2 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Selection AutoFill Destination Range Cells 2 2 Cells nrodatos 1 2 Type xIFillDefault Sheets 1 Cells 2 3 Select f rmula del valor absoluto del error de pron stico ActiveCell Formula IF B2 ABS A2 B2 Sheets 1 Cells 2 3 Select Selection AutoFill Destination Range Cells 2 3 Cells nrodatos 1 3 Type xIFillDefault Sheets 1 Cells 2 6 Select f rmula del rango que eval a la media m vil ActiveCell Formula CONCATENATE A ROW INT E 1 A ROW 1 Sheets 1 Cells 2 6 Select Selection AutoFill Destination Range Cells 2 6 Cells nrodatos 1 6 Type xIFillDefault Sheets 1 Cells 1 8 Select f rmula del promedio del error absoluto que es el que se va a minimizar ActiveCell Formula AVERAGEIF C C lt gt G C Sheets 1 Cells 1 1 Select c digo por medio del cual se usa el solver indicando cual es el valor a minimizar junto con las restricciones de las variables que se deben cambiar SolverOk SetCell H 1 MaxMinVal 2
53. If datosYt contadordedatos O Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If MAPE lt gt 1 Then MAPE MAPE nrodatos 2 k 1 End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 k valorvariable1 k variable2 variable3 variable4 End If End Sub Optimizado de dobles medias m viles Sub optimizardoblesmediasmovilestipo3 se declaran variables necesarias para el desarrollo del algoritmo Dim cont As Integer Application ScreenUpdating False se desactiva la opci n de actualizaci n de pantalla inmediata resetear el solver SolverReset c digo para poner los datos necesarios en una nueva hoja para usar el solver La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos Sheets 1 Activate Sheets 1 Cells 2 1 Yt t tulo en A2 Sheets 1 Cells 2 2 MMt t tulo en B2 Sheets 1 Cells 2 3
54. K Enabled False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optSuavizamiento_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de referencia RangoYt el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub RefRangoYt_KeyPress KeyAscii As Integer If KeyAscii voKeyEscape Then Unload Me End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto alpha el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtAlfa_KeyPress ByVal KeyAscii As MSForms ReturnInteger txtAlfa SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAsci
55. LENLE TT 11 0 0437 1 l E 17 19 21 25 Z 2s 0 1 4 12 0 0583 T BE _ he _ _ _ _ _ _ __ _ _ 13 0 0215 0 2 14 0 0290 0 3 35 0 0593 16 0 0201 0 4 17 0 0974 os 18 0 0244 an n NACTE Ilustraci n 5 2 Ejemplo ACF La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Funci n de Autocorrelaci n Parcial Sub graficaPACF se declaran variables necesarias para el desarrollo del algoritmo Dim contadork As Integer Dim numeradorPhi As Double Dim denominadorPhi As Double Dim j As Integer se redimensionan las variables que almacenan los vectores listas con los datos obtenidos y luego se cargan ReDim xlistPACF 1 To kAutocorrelacion ylistPACF 1 To kAutocorrelacion xlist2PACF 1 To kAutocorrelacion ylist PACF 1 To kAutocorrelacion xlistiPACF 1 To kAutocorrelacion ylist3PACF 1 To kAutocorrelacion c digo para hallar el valor de Phi k k se establece que Phi 1 1 es Rho1 Phi 1 1 Rho 1 denominadorPhi 0 c digo para desarrollar el procedimiento que se encuentra en el marco de referencia For contadork 1 To kAutocorrelacion 1 numeradorPhi 0 denominadorPhi 0 For j 1 To contadork numeradorPhi numeradorPhi Phi contadork j Rho contadork 1 j Next j La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no
56. Office Microsoft ha puesto a disposici n de los usuarios una herramienta gratuita llamada Custom Ul Editor For Microsoft Office con el fin de facilitar el desarrollo de complementos para sus aplicaciones este programa permite desde un archivo de Microsoft Office generar el c digo XML con el que se agrega una nueva pesta a en Microsoft Excel 2010 Bruin 2011 1 3 8 Solver Frontline Systems Inc es el creador del Solver Microsoft Excel el cual consiste en un complemento incorporado desde 1990 en la hoja de c lculo que permite la optimizaci n de datos Solver es una herramienta para resolver y optimizar ecuaciones mediante el uso de m todos num ricos Cuando se tiene la expresi n matem tica que ayuda a resolver un problema de optimizaci n con el Solver se puede hallar dicho valor ptimo ingresando en una celda de la hoja de c lculo la f rmula de la funci n objetivo f x1 X2 Xn La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Esta herramienta cambia los valores de un grupo de celdas que est n relacionadas directa o indirectamente con la f rmula ingresada en la celda objetivo En estas celdas se deben definir las variables independientes que definen la funci n del problema x4 x32 Xn Igualmente Solver permite agregar restricciones escribiendo en otra celda la f rmula que restringe los valores de las variables g x xz Xn y e
57. a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Alpha no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txtAlfa SetFocus Exit Sub End If If gamma lt 0 Or gamma gt 1 Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Gamma no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txiGamma SetFocus Exit Sub End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If delta lt 0 Or delta gt 1 Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Delta no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txiDelta SetFocus Exit Sub End If Else solucionoptima True alpha 0 5 gamma 0 5 delta 0 5 End If metodosuavizamientotipo4 se llama la macro con el m todo de pron stico End If mostrarlosdatos se llama la macro con la que se muestran los datos en una hoja nueva Unload Me End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Aceptar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdAceptar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then U
58. abel Series Tipo 3 image Tipo3 onAction MacroTipo3 size large gt En esta l nea de c digo es donde se agrega un tercer bot n dentro de la primera agrupaci n el cual tiene una identificaci n btnTipo3 instrucci n id un r tulo Series Tipo 3 instrucci n label una imagen que se denomina Tipo3 la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image un tama o grande del bot n dentro del grupo de controles instrucci n size y es la instrucci n onAction denominada MacroTipo3 la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt button id btnTipo4 label Series Tipo 4 image Tipo4 onAction MacroTipo4 size large gt En esta l nea de c digo es donde se agrega un cuarto bot n dentro de la primera agrupaci n el cual tiene una identificaci n btnTipo4 instrucci n id un r tulo Series Tipo 4 instrucci n label una imagen que se denomina Tipo4 la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image un tama o grande del bot n dentro del grupo de controles instrucci n size y es la instrucci n onAction denominada MacroTipo4 la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control l
59. aci n sobre el uso de este ir al archivo que se entrega anexo denominado Anexo1 y contiene el Manual del Usuario adicionalmente se podr observar el complemento desarrollado La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 4 PRON STICOS NO PARAM TRICOS Como se mencion en el cap tulo 3 se crearon dos secciones en la pesta a Pronosticador que hacen parte del complemento de Microsoft Excel 2010 desarrollado a continuaci n se detalla el c digo creado en Visual Basic For Applications VBA para la primera secci n denominada Pron sticos No Param tricos A MO Bo mo ago Series Series Series Series Tipo1 Tipo2 Tipo3 Tipo4 Pronosticos No Parametricos Ilustraci n 4 1 Secci n Pron sticos No Param tricos 4 1 SERIES TIPO 1 En la secci n 3 2 C digo VBA se puede observar que al dar clic sobre el bot n Series Tipo 1 se llama un formulario denominado frmSeriesTipo1 4 1 1 Formulario Series Tipo 1 KE Aceptar l pE FIA Cancelar l A continuaci n se muestra el c digo desarrollado en VBA para el pron stico no param trico de este tipo de series luego que el formulario est cargado llustraci n 4 2 Formulario Series Tipo 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci
60. aci n parcial PACF La funci n de autocorrelaci n parcial calcula la correlaci n entre parejas de valores separados esa distancia pero eliminando el efecto debido a la correlaci n producida por retardos anteriores a k Escuela Superior Polit cnica del Litoral La autocorrelaci n parcial de orden k denotada por kk mide la correlaci n que existe entre Yt Y Y x despu s de que ha sido removida la dependencia lineal de las componentes intermedias Y 1 Yt 2 gt Yt k 1 Prk COrT Ye Vik Yt1 Yt 2 2 Yt k 1 Con el fin de estimar la funci n de autocorrelaci n parcial se halla el valor de la funci n de autocorrelaci n parcial muestral x se define como P11 Pr A an2 Taz P2 P 22 A 1 m ri En general k k 1 gt Pri Pr 1 i i 1 Prrtk 1 1 gt Pki i i 1 Donde Pr ii k i r 1 k 1 k k 1 i i 1 2 o K Con el fin de tener una mejor apreciaci n de los valores de la funci n de autocorrelaci n muestral se utiliza un correlograma parcial que es un gr fico de barras en el cual se ubica en el eje horizontal k y en el eje vertical p p La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Para la PACF tambi n debe construirse una banda para poder establecer cu les de los valores hallados se consideran estad sticamente iguales a cero la banda tiene como y a 1 1 1z a valores l mites ze y Za E Los valores
61. aciones el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtEstaciones_KeyPress ByVal KeyAscii As MSForms ReturnInteger txtEstaciones SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto gamma el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtGamma_KeyPress ByVal KeyAscii As MSForms ReturnInteger txtGamma SetFocus If KeyAscii voKeyEscape Then La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAscii lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto N mero de Pron sticos Extramuestrales el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtNroPronosticos_KeyPress ByVal KeyAscii As MS
62. activa la opci n de actualizaci n de pantalla inmediata resetear el solver SolverReset c digo para poner los datos necesarios en una nueva hoja para usar el solver Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos Sheets 1 Activate Sheets 1 Cells 1 1 Yt t tulo en A1 Sheets 1 Cells 1 2 Tt t tulo en B1 Sheets 1 Cells 1 3 Beta1 t tulo en C1 Sheets 1 Cells 1 4 Pron stico t tulo en D1 Sheets 1 Cells 1 5 Error t tulo en E1 Sheets 1 Cells 1 6 Alpha t tulo en F1 Sheets 1 Cells 2 6 Gamma t tulo en F2 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 1 7 alpha valor inicial el alpha dado Sheets 1 Cells 2 7 gamma valor inicial el gamma dado Sheets 1 Cells 1 9 MAD t tulo en G1 c digo para ingresar en la hoja los datos de la serie For cont 1 To nrodatos Sheets 1 Cells cont 1 1 datosYt cont Next cont Sheets 1 Cells 2 2 Select f rmula de poner Tt1 como dato1 ActiveCell Formula A2 Sheets 1 Cells 3 2 Select f rmula de Tt ActiveCell Formula G 1 A3 1 G 1 D3 Sheets 1 Cells 3 2 Select Selection AutoFill Destination Range Cells 3 2 Cells nrodatos 1 2 Type xIFillDefault Sheets 1 Cells 2 3 Select f rmula de poner Beta1 1 como cero ActiveCell Formula 0 Sheets 1 Cel
63. ada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Tt contadordedatos 0 Beta1 contadordedatos 0 St contadordedatos datosYt contadordedatos Next contadordedatos For contadordedatos s 1 To nrodatos Tt contadordedatos alpha datosYt contadordedatos St contadordedatos s 1 alpha Tt contadordedatos 1 Beta1 contadordedatos 1 Beta1 contadordedatos gamma Tt contadordedatos Tt contadordedatos 1 1 gamma Beta1 contadordedatos 1 St contadordedatos delta datos Yt contadordedatos Tt contadordedatos 1 delta St contadordedatos s pronosticosYt contadordedatos Tt contadordedatos 1 Beta1 contadordedatos 1 St contadordedatos s Next contadordedatos pron sticos extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos Tt nrodatos Beta1 nrodatos contadordedatos nrodatos St nrodatos nropronosticosextra s contadordedatos nrodatos Mod s Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos For contadordedatos s 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next contadordedatos c lculo del MAD MAD 0 For con
64. ado en el cuadro de texto alpha el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtAlfa_KeyPress ByVal KeyAscii As MSForms ReturnInteger txtAlfa SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAscii lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto delta el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtDelta_KeyPress ByVal KeyAscii As MSForms ReturnInteger txiDelta SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAscii lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End If End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto Nro Est
65. adordedatos 0 Then MAPE 1 contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If variable1 Alpha ptimo valorvariable1 alpha variable2 Gamma ptimo valorvariable2 gamma variable3 variable4 C digo para eliminar la hoja usada por el Solver Application DisplayAlerts False Sheets 1 Select ActiveWindow SelectedSheets Delete Application DisplayAlerts True Application ScreenUpdating True se activa la opci n de actualizaci n de pantalla inmediata End Sub 4 4 SERIES TIPO 4 En la secci n 3 2 C digo VBA se puede observar que al dar clic sobre el bot n Series Tipo 4 se llama un formulario denominado frmSeriesTipo4 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 4 4 1 Formulario Series Tipo 4 E DE IMIGERNERIA A y DE ARONA Ilustraci n 4 5 Formulario Series Tipo 4 Al igual que con los formularios anteriores se muestra el c digo desarrollado en VBA para el pron stico no param trico de este tipo de series luego que el formulario est cargado C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n
66. al a que sea un valor num rico MsgBox Ha digitado un valor no num rico del Nivel de Confianza vbCritical Error Exit Sub Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If niveldeconfianza lt 0 Or niveldeconfianza gt 100 Then eval a que est en el intervalo pedido MsgBox El valor del Nivel de Confianza debe estar en el intervalo 0 100 vbCritical Error Exit Sub End If End If End If ACF True asigna el valor True a esa variable PACF False asigna el valor False a esa variable tomarelrango se llama la macro denominada tomarelrango que permite evaluar si el rango elegido por el usuario tiene errores ver Herramientas Descriptivas End Sub C digo cuando se hace clic en Graficar ACF y PACF c digo similar al anterior Sub MacroACFyPACF control As IRibbonControl If niveldeconfianza Then MsgBox Debe digitar un valor del Nivel de Confianza en el intervalo 0 100 vbCritical Error Exit Sub Else If IsNumeric niveldeconfianza False Then MsgBox Ha digitado un valor no num rico del Nivel de Confianza vbCritical Error Exit Sub Else If niveldeconfianza lt 0 Or niveldeconfianza gt 100 Then La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MsgBox El valor del Nivel de Confianza debe estar en el intervalo 0 100 vbCritical
67. ariable3 lt gt Then Sheets 1 Cells 3 12 variable3 Sheets 1 Cells 3 13 valorvariable3 End If If variable4 lt gt Then Sheets 1 Cells 4 12 variable4 Sheets 1 Cells 4 13 valorvariable4 End If Columns 12 EntireColumn AutoFit cambio de estilo para la tabla muestrales Sheets 1 Range Cells 2 1 Cells 2 4 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xIThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA End With Selection Font Bold True cambio de estilo para la tabla extramuestrales Sheets 1 Range Cells 2 6 Cells 2 7 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xIThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 End With Selection Font Bold True cambio de estilo para la tabla errores medios Sheets 1 Range Cells 1 9 Cells 1 10 Select With Selection HorizontalAlignment xlCenterAcrossSelection VerticalAlignment xIBottom WrapText False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Orientati
68. b Else nrocolumnas RangoYt Columns Count se cargan en la variable el n mero de columnas del Rango Yt nrofilas RangoYt Rows Count se cargan en la variable el n mero de filas del RangoYt If nrocolumnas gt 1 And nrofilas gt 1 Then Verifica que el rango sea un vector y no una matriz en caso contrario saca un mensaje de error MsgBox El rango de entrada de la serie Yt debe ser una sola fila o columna vbCritical Error RefRangoYt SetFocus Exit Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else C digo para asignar el n mero de datos seg n si el vector es vertical u horizontal If nrocolumnas 1 Then nrodatos nrofilas Else nrodatos nrocolumnas End If For Each celda In RangoYt se verifica que sean datos num ricos los que se encuentran en el RangoYt si no es as saca un mensaje de error If IsNumeric celda False Then MsgBox Existen datos no num ricos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else se verifica que no existan vac os en el RangoYt si no es as saca un mensaje de error If IsEmpty celda True Then MsgBox Existen celdas sin datos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If Next End If
69. bilidad de los autores y no compromete a la ElA Next contadordedatos c lculo de los errores de pron stico ReDim errort nrodatos errort 1 1000000 se hace 1000000 para reconocer que no ten a en ese periodo For contadordedatos 2 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos 1 se calcula el MAPE si es posible MAPE 0 For contadordedatos 2 To nrodatos If datosYt contadordedatos 0 Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error contadordedatos nrodatos 1 Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 1 End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 variable2 variable3 variable4 End Sub 4 2 SERIES TIPO 2 En la secci n 3 2 C digo VBA se puede observar que al dar clic sobre el bot n Series Tipo 2 se llama un formulario denominado frmSeriesTipo2
70. bilidad de los autores y no compromete a la ElA Propiedades 1 p 1 2 ppl lt 1 3 P k Pk Con el fin de estimar la funci n de autocorrelaci n se halla el valor de la funci n de autocorrelaci n muestral hallando la autocorrelaci n muestral de orden k fg gt Oe DOr 9 t k 1 gt Oe yy t 1 El estimador fp hereda las propiedades mencionadas de px Con el fin de tener una mejor apreciaci n de los valores de la funci n de autocorrelaci n muestral se utiliza un correlograma el cual es un gr fico de barras en el cual se ubica en el eje horizontal k y en el eje vertical fx Gr fico 1 7 Ejemplo de Correlograma Correlograma 0 9 0 8 0 7 0 6 0 5 0 4 0 3 0 2 0 1 Por otro lado debe establecerse cuales de los valores hallados se consideran estad sticamente iguales a cero por lo que se construye una banda que tiene como valores La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA E E 152 14232 A y Zo 14232 A 2 se encuentren en esa banda se consideran estad sticamente iguales a cero con un nivel de confianza de 1 x Za es el valor de la distribuci n normal inversa 2 l mites Za Los valores de la funci n de autocorrelaci n que 2 Igualmente debe tenerse en cuenta que el k m ximo para esta funci n es de n 4 sin embargo para series de tama o grande n 4 gt 30 se considera un k m ximo de 30 Funci n de autocorrel
71. caracteres para limitar los posibles errores generados por el usuario Private Sub txtEstaciones_KeyPress ByVal KeyAscii As MSForms ReturnInteger txtEstaciones SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto N mero de Pron sticos Extramuestrales el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtNroPronosticos_KeyPress ByVal KeyAscii As MSForms Returninteger txiNroPronosticos SetFocus If KeyAscii voKeyEscape Then Unload Me Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub 4 2 2 M dulo M todos Series Tipo 2 Al igual que para el formulario Series Tipo 1 se ha insertado un m dulo denominado MetodosTipo2 dentro del cual se desarroll el c digo VBA que permite generar los pron sticos deseados por el usuario A continuaci n se muestra dicho c digo desarrollado seg n la secci n 1 3 3 M todos no param tricos de series temporales y
72. cccnnnnncccconnncnncnnnnnnnncnnnnnnnnnnnnnnnnnnnn corra nnnnnnnnnnnnr 40 4 PRON STICOS NO PARAM TRICOS ocoocoiocooconooconooconnoconnocanno cono connocnnno sanan canananss 41 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 41 Seres TIO Larrosa 41 4 1 1 Formulario Series Tipo 1 ninia 41 4 1 2 M dulo M todos Series Tipo 1 coccconnnoncccconnconcnonanancnononononcnnnanancnnncnonans 59 42 OENES TIPO Lera 81 4 2 1 Formulario Series Tipo 2 usina a 82 4 2 2 M dulo M todos Series Tipo 2 cococonnnnncccconnconcconanancononononcnananancncnonananos 90 4 3 Series Tipo 3 a 96 4 3 1 Formulario Series Tipo 3 acostarse 96 4 3 2 M dulo M todos Series Tipo 3 oononnnnnccccncnnocicnnnnoncncnonononcnnnananannncnonans 113 e 134 4 4 1 Formulario Series Tipo 4 ooooooccccccnncccconononcncnonnnoncnnnnnnnncnnnnnnnnnnnnnnnnnnnncnnnnn 135 4 4 2 M dulo M todos Series Tipo 4 coocononnncccccnnnocccncononcncnononononnnananancncnananos 149 45 Mostrar Datos al Usuario oooccccnnccninnconococcnnncccnnnnnnnnnnncnnnnnnnnnnnnnnnnnnnnncrnnnnnnnn nn 160 5 HERRAMIENTAS DESCRIPTIVAS cicooomimoricaiia es 174 6 DISCUSI N DE RESULTADOS cocococococococonononcnnonononononenenenenenonononncnnonononinenenineninos 198 6 1 Pron sticos No Param tricos sresroererornsrerenesridieriodrl area irte 198 6 2 Herramientas DescriptiVaS ccoomonocccocnnnncnnnononcnnnonnn
73. celar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo Private Sub optingenuo_Change RefRangoYt SetFocus La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optingenuo_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo Private Sub optMediasEstacionales_Change RefRangoYt SetFocus End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de referencia RangoYt el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub RefRangoYt_KeyPress KeyAscii As Integer If KeyAscii voKeyEscape Then Unload Me End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto nro estaciones el c digo s lo permite ingresar ciertos
74. claran variables necesarias para el desarrollo del algoritmo Dim cont As Integer Application ScreenUpdating False se desactiva la opci n de actualizaci n de pantalla inmediata resetear el solver SolverReset c digo para poner los datos necesarios en una nueva hoja para usar el solver Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos Sheets 1 Activate Sheets 1 Cells 1 1 Yt t tulo en A1 Sheets 1 Cells 1 2 Tt t tulo en B1 Sheets 1 Cells 1 3 Beta1 t tulo en C1 Sheets 1 Cells 1 4 St t tulo en D1 Sheets 1 Cells 1 5 Pron stico t tulo en E1 Sheets 1 Cells 1 6 Error t tulo en F1 Sheets 1 Cells 1 7 Alpha t tulo en H1 Sheets 1 Cells 2 7 Gamma t tulo en H2 Sheets 1 Cells 3 7 Delta t tulo en H3 Sheets 1 Cells 4 7 Estaciones t tulo en H4 Sheets 1 Cells 1 8 alpha valor inicial el alpha dado Sheets 1 Cells 2 8 gamma valor inicial el gamma dado La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 3 8 delta valor inicial el delta dado Sheets 1 Cells 4 8 s n mero de estaciones Sheets 1 Cells 1 9 MAD t tulo en G1 c digo para ingresar en la hoja los datos de la serie For cont 1 To nrodatos Sheets 1 Cells cont 1 1 datosYt cont Next cont Sheets 1 Cells 2 2 Select f rmula de Tt A
75. compromete a la ElA numeradorPhi numeradorPhi Rho contadork 1 For j 1 To contadork denominadorPhi denominadorPhi Phi contadork j Rho Next j denominadorPhi denominadorPhi 1 Phi contadork 1 contadork 1 numeradorPhi denominadorPhi For j 1 To contadork If contadork 1 lt gt j Then Phi contadork 1 j Phi contadork j Phi contadork 1 contadork 1 Phi contadork contadork 1 j End If Next j Next contadork For contadordedatos 1 To kAutocorrelacion xlistPACF contadordedatos contadordedatos xlist2PACF contadordedatos contadordedatos xlist3PACF contadordedatos contadordedatos ylistPACF contadordedatos Phi contadordedatos contadordedatos ylist2PACF contadordedatos valordebanda ylist3PACF contadordedatos valordebanda Next contadordedatos se inserta en la hoja un nuevo gr fico que se almacena en la variable mychartPACF La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Shapes AddChart Select Set mychartPACF Sheets 1 ChartObjects 2 Chart c digo para ingresarle las series de datos al nuevo gr fico insertarle el t tulo y darle el formato requerido With mychartPACF Axes xICategory Select ChartType xIColumnClustered SeriesCollection NewSeries SeriesCollection 1 XValues xlistP ACF SeriesCollection 1 Values ylistPACF SeriesCollection NewSeries
76. ct End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 5 HERRAMIENTAS DESCRIPTIVAS Como se mencion en el cap tulo 3 se crearon dos secciones en la pesta a Pronosticador que hacen parte del complemento de Microsoft Excel 2010 desarrollado en el apartado anterior se muestra el c digo de la primera secci n A continuaci n se detalla el c digo creado en Visual Basic For Applications VBA para la segunda secci n denominada Herramientas Descriptivas el cual se encuentra en un m dulo con el nombre de la secci n el cual fue desarrollado seg n la secci n 1 3 5 Funci n de autocorrelaci n y funci n de autocorrelaci n parcial Mr Nivel de Confianza manmi Autocorrelaci n gt J Tabular datos Herramientas Descriptivas Ilustraci n 5 1 Secci n Herramientas Descriptivas C digo con el que se eval a el rango seleccionado por el usuario Sub tomarelrango On Error Resume Next con este c digo no aparece cuadro de error al usuario y no deja continuar hasta que no se siga produciendo Set RangoYt Selection se asigna el rango seleccionado selection a la variable RangoYt On Error GoTo O If RangoYt Is Nothing Then s existe un error con el rango se saca un mensaje de error para informar MsgBox No
77. ctiveCell Formula IF ROW ROW A 2 lt H 4 0 H 1 A2 INDIRECT J2 1 H 1 B1 C1 Sheets 1 Cells 2 2 Select Selection AutoFill Destination Range Cells 2 2 Cells nrodatos 1 2 Type xIFillDefault Sheets 1 Cells 2 3 Select f rmula de Beta1 ActiveCell Formula IF ROW ROW A 2 lt H 4 0 H 2 B2 B1 1 H 2 C1 Sheets 1 Cells 2 3 Select Selection AutoFill Destination Range Cells 2 3 Cells nrodatos 1 3 Type xIFillDefault Sheets 1 Cells 2 4 Select f rmula de St ActiveCell Formula Z IF ROW ROW A 2 lt H 4 A2 H 3 A2 B2 1 H 3 INDIRECT J2 Sheets 1 Cells 2 4 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Selection AutoFill Destination Range Cells 2 4 Cells nrodatos 1 4 Type xIFillDefault Sheets 1 Cells 2 5 Select f rmula de pron stico ActiveCell Formula IF ROW ROW A 2 lt H 4 B1 C1 INDIRECT J2 Sheets 1 Cells 2 5 Select Selection AutoFill Destination Range Cells 2 5 Cells nrodatos 1 5 Type xIFillDefault Sheets 1 Cells 2 6 Select f rmula del valor absoluto del error de pron stico ActiveCell Formula IF E2 ABS A2 E2 Sheets 1 Cells 2 6 Select Selection AutoFill Destination Range Cells 2 6 Cells nrodatos 1 6 Type xIFillDefault Sheets 1 Cells 2 10 Select f rmula del concatenado para el indirecto usado Active
78. d If IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txiGamma Enabled False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If checkOptima Value True Then IblAdvertencia Visible True Else IblAdvertencia Visible False End If Else txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txtGamma Enabled False IblAdvertencia Visible False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optDoblesMediasMoviles KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando el usuario cambia de opci n de m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optSuavizamiento_Change RefRangoYt SetFocus If optSuavizamiento Value True Then txtK Enabled False IbIK Enabled False If checkOptima Value False Then IblAlfa Enabled True txtAlfa Enabled True IblGamma Enabled True txtGamma Enabled True
79. datos 1 To nrodatos pronosticosYt contadordedatos promedio Next contadordedatos pron sticos extramuestrales se asigna el promedio de los datos como pron stico For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos promedio Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA se calcula de los errores de pron stico primero redimensionando el vector errort al n mero de datos ReDim errort nrodatos For contadordedatos 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos se calcula el MAD MAD 0 For contadordedatos 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos se calcula el MAPE si es posible MAPE 0 For contadordedatos 1 To nrodatos If datosYt contadordedatos 0 Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If MAPE lt gt 1 Then MAPE MAPE nrodatos End If seg n las variab
80. de la funci n de autocorrelaci n que se 2 2 encuentren en esa banda se consideran estad sticamente iguales a cero con un nivel de confianza de 1 o Al igual que para la ACF el k m ximo para esta funci n es de n 4 sin embargo para series de tama o grande n 4 gt 30 se considera un k m ximo de 30 1 3 6 Marco Contextual Hoy en d a diversas organizaciones requieren conocer el comportamiento futuro de ciertos fen menos con el fin de planificar y prevenir es decir se utilizan para predecir lo que ocurrir con una variable en el futuro a partir del comportamiento de esa variable en el pasado Adem s la aparici n de las tecnolog as de informaci n y la comunicaci n han venido incursionando en el mercado empresarial y con el desarrollo de diferentes paquetes computacionales que permiten el an lisis m s profundo y exhaustivo de los datos recolectados para as tomar una ventaja competitiva sobre otras empresas Estas herramientas para las decisiones tecnol gicas tales como los modelos matem ticos han sido aplicadas a una amplia gama de situaciones en la toma de decisiones dentro de diversas reas de la gerencia En la toma consciente de decisiones bajo incertidumbre siempre se realizan pron sticos o predicciones Se podr a pensar entonces que no se est pronosticando pero las opciones estar n dirigidas por la anticipaci n de resultados de las acciones Quintero Cata o 2010 1 3 7 Custom Ul Editor For Microsoft
81. dedatos suma contadordedatos Mod s totaldatosestacion contadordedatos Mod s Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos For contadordedatos 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos c lculo del MAPE MAPE 0 For contadordedatos 1 To nrodatos If datosYt contadordedatos O Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 Estaciones valorvariable1 s variable2 variable3 variable4 End Sub ingenuo Sub metodoingenuotipo2 pron sticos muestrales empieza en s 1 y es el dato anterior de los que pertenecen a la misma estaci n se carga 1000000 hasta s para reconocer que no deb a tener dato
82. digo para poner los datos necesarios en una nueva hoja para usar el solver Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos Sheets 1 Activate Sheets 1 Cells 1 1 Yt t tulo en A1 Sheets 1 Cells 1 2 Pron stico t tulo en B1 Sheets 1 Cells 1 3 Error t tulo en C1 Sheets 1 Cells 1 4 Alpha t tulo en D1 Sheets 1 Cells 1 5 alpha coloca el alpha dado como inicial Sheets 1 Cells 1 7 MAD t tulo en G1 c digo para ingresar en la hoja los datos de la serie For cont 1 To nrodatos Sheets 1 Cells cont 1 1 datosYt cont Next cont La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 3 2 Select f rmula para que pronostico2 sea como dato 1 ActiveCell Formula A2 Sheets 1 Cells 4 2 Select formula del pron stico a partir de t 3 ActiveCell Formula E 1 A3 1 E 1 B3 Sheets 1 Cells 4 2 Select Selection AutoFill Destination Range Cells 4 2 Cells nrodatos 1 2 Type xIFillDefault Sheets 1 Cells 3 3 Select f rmula del valor absoluto del error de pron stico ActiveCell Formula ABS A3 B3 Sheets 1 Cells 3 3 Select Selection AutoFill Destination Range Cells 3 3 Cells nrodatos 1 3 Type xIFillDefault Sheets 1 Cells 1 8 Select f rmula del promedio del error absoluto que es el que se va a minimizar ActiveCell
83. documento es de exclusiva responsabilidad de los autores y no compromete a la ElA txtK SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto N mero de Pron sticos Extramuestrales el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtNroPronosticos_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA KeyAscii 0 End If End If End If End Sub 4 3 2 M dulo M todos Series Tipo 3 Al igual que para los formularios anteriores se ha insertado un m dulo denominado MetodosTipo3 dentro del cual se desarroll el c digo VBA que permite generar los pron sticos deseados por el usuario A continuaci n se muestra dicho c digo desarrollado seg n la secci n 1 3 3 M todos no param tricos de series temporales y seg n la secci n 1 3 4 Medici n del error en el pron stico Dobles medias m viles Sub dobl
84. dordedatos Next contadordedatos MAD MAD nrodatos 1 c lculo del MAPE MAPE 0 For contadordedatos 2 To nrodatos If datosYt contadordedatos 0 Then MAPE 1 contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 1 End If variable1 Alpha ptimo valorvariable1 alpha variable2 variable3 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA variable4 C digo para eliminar la hoja usada por el Solver Application DisplayAlerts False Sheets 1 Select ActiveWindow SelectedSheets Delete Application DisplayAlerts True Application ScreenUpdating True se activa la opci n de actualizaci n de pantalla inmediata End Sub ingenuo Sub metodoingenuotipo1 pron sticos muestrales es el dato observado en el periodo anterior pronosticosYt 1 1000000 se hace 1000000 para reconocer que no ten a en ese periodo For contadordedatos 2 To nrodatos pronosticosYt contadordedatos datosYt contadordedatos 1 Next contadordedatos pron sticos extramuestrales es el ltimo dato observado For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos datosYt nrodatos La informaci n presentada en este documento es de exclusiva responsa
85. e Tipo1 onAction MacroTipo1 size large gt En esta l nea de c digo es donde se agrega un primer bot n dentro de la primera agrupaci n el cual tiene una identificaci n btnTipo1 instrucci n id un r tulo Series Tipo 1 instrucci n label una imagen que se denomina Tipo1 la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image un tama o grande del bot n dentro del grupo de controles instrucci n size y es la instrucci n onAction denominada MacroTipo1 la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt button id btnTipo2 label Series Tipo 2 image Tipo2 onAction MacroTipo2 size large gt En esta l nea de c digo es donde se agrega un segundo bot n dentro de la primera agrupaci n el cual tiene una identificaci n btnTipo2 instrucci n id un r tulo Series Tipo 2 instrucci n label una imagen que se denomina Tipo2 la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image un tama o grande del bot n dentro del grupo de controles instrucci n size y es la instrucci n onAction denominada MacroTipo2 la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt button id btnTipo3 l
86. efore mentioned were developed Additionally a research was performed about the procedures that could be adapted to the development and operation of the complement Finally the algorithms developed were evaluated with a real time serie which corresponds to the Grupo Sura stock earnings between October 2010 and September 2011 This project has generated this final report the add in developed in Microsoft Excel 2010 and User Manual Key words Forecast Time Series Autocorrelation Function Excel Add in La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA INTRODUCCI N Actualmente la necesidad tanto de las personas como de las empresas en poder determinar el entorno futuro al cual se van a enfrentar y con el fin de tomar decisiones que le otorguen cierta ventaja sobre las dem s en conjunto con el avance en materia de tecnolog a que ha tenido la humanidad y el uso masivo que tiene Microsoft Excel como herramienta de manejo de datos se hace necesario la creaci n de un m dulo en dicho programa que permita el pron stico de observaciones futuras de una serie de tiempo bajo diferentes m todos que en el caso de este proyecto corresponden a pron sticos no param tricos En este informe final podr encontrar en primer lugar el problema m s detallado los objetivos que se han establecido para el proyecto al igual que el marco de referencia con el que se permiti
87. em s txtK Enabled True IbIK Enabled True IblAlfa Enabled False txtAlfa Enabled False lblGamma Enabled False txtGamma Enabled False End If If optSuavizamiento Value True Then eval a si la opci n de m todo suavizamiento exponencial lineal de Holt est activada para dejar habilitados los controles requeridos e inhabilitar los dem s txtK Enabled False IbIK Enabled False IblAlfa Enabled True txtAlfa Enabled True lblGamma Enabled True txtGamma Enabled True End If End If End Sub C digo que se ejecuta al dar clic en el bot n Aceptar es el mismo c digo que se mostr en el formulario Series Tipo 1 hasta que se eval a las opciones de m todo Private Sub cmdAceptar_Click La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA On Error Resume Next Set RangoYt Range Me RefRangoY t Text On Error GoTo O If RangoYt Is Nothing Then MsgBox No ha elegido un rango de entrada de la serie Yt v lido vbCritical Error RefRangoYt SetFocus Exit Sub Else nrocolumnas RangoYt Columns Count nrofilas RangoYt Rows Count If nrocolumnas gt 1 And nrofilas gt 1 Then MsgBox El rango de entrada de la serie Yt debe ser una sola fila o columna vbCritical Error RefRangoYt SetFocus Exit Sub Else If nrocolumnas 1 Then La informaci n presentada en este documento es de exclusiva responsabilidad de l
88. ensaje de error contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos s End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 Estaciones valorvariable1 s variable2 variable3 variable4 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA End Sub 4 3 SERIES TIPO 3 En la secci n 3 2 C digo VBA se puede observar que al dar clic sobre el bot n Series Tipo 3 se llama un formulario denominado frmSeriesTipo3 Al igual que con los formularios anteriores se muestra el c digo desarrollado en VBA para el pron stico no param trico de este tipo de series luego que el formulario est cargado 4 3 1 Formulario Series Tipo 3 Series Tipo 3 X2 M todo de Pron stico No Param trico m Opciones de Salida S Dobles Medias M viles A el e M Mostrar Pron sticos Muestrales RK r aa E Este proceso puede tomar varios minutos lt MO ato a aa koka ESCUELA DE INGENIERIA Cancelar A DE APEC RNA Ilustraci n 4 4 Formulario Series Tipo 3 C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub checkMuestrales KeyPress
89. ento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If If checkMuestrales Value True Then pronosticosmuestrales True Else pronosticosmuestrales False End If ReDim pronosticosYt nrodatos nropronosticosextra c digo para cuando est activado el m todo ingenuo If optingenuo Value True Then metodoingenuotipo2 se llama la macro con el m todo de pron stico End If c digo para cuando est activado el m todo de medias estacionales If optMediasEstacionales Value True Then mediasestacionales End If mostrarlosdatos se llama la macro con la que se muestran los datos en una hoja nueva Unload Me End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Aceptar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdAceptar_KeyPress ByVal KeyAscii As MSForms ReturniInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se da clic en el bot n Cancelar Private Sub cmdCancelar_Click Unload Me End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Cancelar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdCan
90. ep KeyAscii 0 End If End If End If End Sub 4 1 2 M dulo M todos Series Tipo 1 Adicionalmente a este formulario se ha insertado un m dulo denominado MetodosTipo1 dentro del cual se desarroll el c digo VBA que permite generar los pron sticos deseados por el usuario A continuaci n se muestra dicho c digo desarrollado seg n la secci n 1 3 3 M todos no param tricos de series temporales y seg n la secci n 1 3 4 Medici n del error en el pron stico Medias m viles Sub mediasmovilestipo1 se declaran variables necesarias para el desarrollo del algoritmo Dim contadork As Integer Dim promedio As Double If solucionoptima True Then eval a si el usuario desea la soluci n ptima entonces llama la macro que lo optimiza de lo contrario sigue con el algoritmo optimizarmediasmovilestipo1 Else pron sticos muestrales empieza en k 1 y es el promedio de los k anteriores a l de 1 a k carga 1000000 en esas posiciones del vector de pronosticos Yt con el fin de reconocer que no hay For contadordedatos 1 To k La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA pronosticosYt contadordedatos 1000000 Next contadordedatos For contadordedatos k 1 To nrodatos promedio 0 For contadork 1 To k promedio promedio datosYt contadordedatos contadork Next contadork promedio promedio k pronosticosYt contadordedatos promedio
91. esmediasmovilestipo3 se declaran variables necesarias para el desarrollo del algoritmo Dim contadork As Integer Dim promedio As Double Dim MMt As Double Dim DMMt As Double If solucionoptima True Then optimizardoblesmediasmovilestipo3 eval a si el usuario desea la soluci n ptima entonces llama la macro que lo optimiza de lo contrario sigue con el algoritmo Else pron sticos muestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA c digo para hallar MM t empieza en k 1 y es el promedio de los k anteriores a el ReDim MMt nrodatos For contadordedatos k 1 To nrodatos promedio 0 For contadork 1 To k promedio promedio datosYt contadordedatos contadork Next contadork promedio promedio k MMt contadordedatos promedio Next contadordedatos c digo para hallar DMM t empieza en 2k y es el promedio de los MMt k anteriores incluido a l ReDim DMMt nrodatos For contadordedatos 2 k To nrodatos promedio 0 For contadork 0 To k 1 promedio promedio MMt contadordedatos contadork Next contadork promedio promedio k DMMt contadordedatos promedio La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next contadordedatos c digo para hallar el pronostico empieza en 2k y es 2MMt DMMt 2 k 1 MMt DMMt de 1 a 2k
92. este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Selection NumberFormat 0 0000 For contadordedatos 1 To kAutocorrelacion Sheets 1 Cells 1 contadordedatos 1 contadordedatos Sheets 1 Cells 1 contadordedatos 2 Phi contadordedatos contadordedatos Next contadordedatos Else se cambia de estilo para la tabla de los valores de la ACF Sheets 1 Range Cells 1 1 Cells 1 2 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xlThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 End With Selection Font Bold True Sheets 1 Columns B B Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Selection NumberFormat 0 0000 se cambia de estilo para la tabla de los valores de la PACF Sheets 1 Cells 1 3 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xlThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 End With Selection Font Bold True se cargan los datos calculados en la hoja nueva Sheets 1 Cells 1 3 PACF For contadordedatos 1 To kAutocorrelacion Sheets 1 Cells 2 contadordedatos 3 Phi
93. eval a si solo se requiere la PACF o si se requiere tambi n la ACF para determinar en qu posici n de la hoja ingresar el gr fico Sheets 1 Activate ActiveSheet Shapes 2 Height kAutocorrelacion 15 ActiveSheet Shapes 2 Width 400 ActiveSheet Shapes 2 Top 20 ActiveSheet Shapes 2 Left 200 mychartACF Parent Delete Else Sheets 1 Activate ActiveSheet Shapes 2 Height kAutocorrelacion 15 ActiveSheet Shapes 2 Width 400 ActiveSheet Shapes 2 Top 40 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA ActiveSheet Shapes 2 Left 620 End If If mostrartabla True Then se eval a si el usuario desea mostrar los datos en ese caso se ingresan en la hoja nueva If ACF False Then se eval a s solo se requiere la PACF o si se requiere tambi n la ACF para determinar en qu posici n ingresar los datos Sheets 1 Columns A B ClearContents Sheets 1 Cells 1 1 k Sheets 1 Cells 1 2 PACF se cambia de estilo para la tabla de los valores de la PACF Sheets 1 Range Cells 1 1 Cells 1 2 Select With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xlThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 End With Selection Font Bold True Sheets 1 Columns B B Select La informaci n presentada en
94. f End If Next End If End If ReDim datosYt nrodatos contadordedatos 1 For Each celda In RangoY t datosYt contadordedatos celda contadordedatos contadordedatos 1 Next IftxiNroPronosticos Then MsgBox No ha elegido un n mero de pron sticos extramuestrales vbCritical Error txtNroPronosticos SetFocus Exit Sub Else nropronosticosextra txtNroPronosticos Value La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If If checkMuestrales Value True Then pronosticosmuestrales True Else pronosticosmuestrales False End If ReDim pronosticosYt nrodatos nropronosticosextra If txtEstaciones Then MsgBox No ha elegido un n mero de estaciones vbCritical Error txiEstaciones SetFocus Exit Sub Else s txtEstaciones Value End If en este formulario s lo puede estar activado el m todo de suavizamiento exponencial de Holt Winters If optSuavizamiento Value True Then If checkOptima Value False Then se eval a si quiere la soluci n ptima y se almacena esta respuesta en una variable solucionoptima False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If txtAlfa Then se eval a que el dato necesario no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox
95. heckOptima Value False Then solucionoptima False If txtk Then se eval a que el dato necesario no este vac o y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox Debe elegir un valor de k para este m todo vbCritical Error txtK SetFocus Exit Sub End If k txtK Value If 2 k gt nrodatos Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Ha elegido un valor de k inv lido recuerde que 2k no puede ser mayor al n mero de datos vbCritical Error txiK SetFocus Exit Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If Else solucionoptima True k 3 End If doblesmediasmovilestipo3 se llama la macro con el m todo de pron stico End If c digo para cuando est activado el m todo de suavizamiento exponencial lineal de Holt If optSuavizamiento Value True Then If checkOptima Value False Then se eval a si quiere la soluci n ptima y se almacena esta respuesta en una variable solucionoptima False If txtAlfa Then se eval a que el dato necesario no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox No ha elegido un valor de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If If txtGamma Then se eval a que el dato necesa
96. i lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto k el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtK_KeyPress ByVal KeyAscii As MSForms Returninteger La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA txtK SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto N mero de Pron sticos Extramuestrales el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtNroPronosticos_KeyPress ByVal KeyAscii As MSForms ReturnInteger txiNroPronosticos SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Be
97. icrosoft Excel como herramienta de manejo de datos se hace necesario la creaci n de un m dulo en dicho programa que permita el pron stico de observaciones futuras de una serie de tiempo bajo diferentes m todos que en el caso de este proyecto corresponden a pron sticos no param tricos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 1 2 OBJETIVOS DEL PROYECTO 1 2 1 Objetivo General Desarrollar un complemento de an lisis de series de tiempo en Microsoft Excel 2010 que incluya c lculos y gr ficos de medidas estad sticas descriptivas de las series y m todos estad sticos no param tricos de pron stico de valores futuros 1 2 2 Objetivos Espec ficos Desarrollar los algoritmos de c lculo y gr fico de medidas estad sticas descriptivas en Visual Basic para Aplicaciones VBA incluido en Excel 2010 Desarrollar los algoritmos de pron stico de series de tiempo bajo m todos estad sticos no param tricos en VBA garantizando pron sticos de m nimo error absoluto porcentual medio MAPE o de menor desviaci n absoluta media MAD Construir el complemento completo de Excel 2010 Validar el complemento mediante el an lisis de una serie de tiempo real 1 3 MARCO DE REFERENCIA 1 3 1 Generalidades Proceso estoc stico un proceso estoc stico es el conjunto de variables aleatorias que dependen expl citamente o no del tiempo Hanke amp Wiche
98. igi para realizar los pron sticos e Muestrales donde se muestra la informaci n del periodo dato pron stico y error es opcional La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 2 Muestrales 3 LEE Dato Pron stico Error 4 1 1 0000 5 2 2 0000 1 0000 1 0000 6 3 3 0000 1 3982 1 6018 7 4 2 0000 2 1680 0 1680 8 5 3 0000 2 4442 0 5558 Ilustraci n 4 6 Ejemplo Muestrales e Extramuestrales se muestra el periodo y el pron stico calculado Extramuestrales Periodo Pron stico 22 8 8095 23 9 2136 Ilustraci n 4 7 Ejemplo Extramuestrales e Errores Medios se muestran las medidas del error medio absoluto y porcentual Errores Medios Absoluto Porcentual 0 6368 15 55 Ilustraci n 4 8 Ejemplo Errores Medios e Variables si el m todo usa variables se muestran tanto si fueron optimizadas como si no lo fueron e Gr fica Datos vs Pron sticos se muestra si el usuario uso la opci n de mostrar los datos muestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Datos vs Pron sticos 5 4 Datos Pron sticos o T T T T T T T T T T T T T T T T T T T T T T T 1 al 3 5 7 9 11 B 15 17 19 21 23 Ilustraci n 4 9 Ejemplo Gr fica Datos vs Pron sticos Sub mostrarlosdatos se declaran variables necesarias para el desarrollo del algor
99. itmo Dim xlist As Variant ylist As Variant xlist2 As Variant ylist2 As Variant Dim mychart As Chart Sheets Add Before Sheets 1 agrega una nueva hoja de primero donde se mostraran los datos se insertan los encabezados de la hoja donde muestran los datos Sheets 1 Cells 1 1 Muestrales Sheets 1 Cells 2 1 Periodo La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 2 2 Dato Sheets 1 Cells 2 3 Pron stico Sheets 1 Cells 2 4 Error Sheets 1 Cells 1 6 Extramuestrales Sheets 1 Cells 2 6 Periodo Sheets 1 Cells 2 7 Pron stico Sheets 1 Cells 1 9 Errores Medios Sheets 1 Cells 2 9 Absoluto Sheets 1 Cells 3 9 MAD Sheets 1 Cells 2 10 Porcentual If MAPE 1 Then recordar que MAPE 1 es que no se pudo calcular por lo que s es igual a este valor se muestra NA Sheets 1 Cells 3 10 NA Else Sheets 1 Cells 3 10 MAPE End If se muestran las variables de entrada que se usaron por el m todo elegido por el usuario If variable1 lt gt Then Sheets 1 Cells 1 12 variable1 Sheets 1 Cells 1 13 valorvariable1 End If If variable2 lt gt Then Sheets 1 Cells 2 12 variable2 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 2 13 valorvariable2 End If If v
100. itmo Dim promedio As Double Dim contadork As Integer Dim numeradorRho As Double Dim denominadorRho As Double se redimensionan los vectores seg n el tama o m ximo requerido ReDim Rho kAutocorrelacion ReDim datosYt nrodatos si todo est correcto entonces carga los datos al vector datos Yt contadordedatos 1 For Each celda In RangoYt datosYt contadordedatos celda contadordedatos contadordedatos 1 Next c digo para tomar el valor de Y barra promedio 0 For contadordedatos 1 To nrodatos promedio promedio datosYt contadordedatos Next contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA promedio promedio nrodatos c digo para hallar el valor de Rhok se establece que Rho0 es igual a uno Rho 0 1 denominadorRho 0 For contadordedatos 1 To nrodatos denominadorRho denominadorRho datosYt contadordedatos promedio 2 Next contadordedatos For contadork 1 To kAutocorrelacion numeradorRho 0 For contadordedatos contadork 1 To nrodatos numeradorRho numeradorRho datosYt contadordedatos promedio datosYt contadordedatos contadork promedio Next contadordedatos Rho contadork numeradorRho denominadorRho Next contadork End Sub Macro con la que se grafica la ACF Sub graficaACF se redimensionan las variables que almacenan los vectores listas con los datos ob
101. l nivel de confianza se hace igual al digitado End Sub C digo cuando se hace clic en Series Tipo 1 Sub MacroTipo1 control As IRibbonControl frmSeriesTipo1 Show se muestra el formulario correspondiente a los m todos para las Series Tipo 1 ver Formulario Series Tipo 1 End Sub C digo cuando se hace clic en Series Tipo 2 Sub MacroTipo2 control As IRibbonControl frmSeriesTipo2 Show se muestra el formulario correspondiente a los m todos para las Series Tipo 2 ver Formulario Series Tipo 2 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo cuando se hace clic en Series Tipo 3 Sub MacroTipo3 control As IRibbonControl frmSeriesTipo3 Show se muestra el formulario correspondiente a los m todos para las Series Tipo 3 ver Formulario Series Tipo 3 End Sub C digo cuando se hace clic en Series Tipo 4 Sub MacroTipo4 control As IRibbonControl frmSeriesTipo4 Show se muestra el formulario correspondiente a los m todos para las Series Tipo 4 ver Formulario Series Tipo 4 End Sub C digo cuando se hace clic en Graficar ACF Sub MacroACF control As IRibbonControl If niveldeconfianza Then eval a que no haya valor vac o en el cuadro de texto MsgBox Debe digitar un valor del Nivel de Confianza en el intervalo 0 100 vbCritical Error Exit Sub Else If IsNumeric niveldeconfianza False Then ev
102. la serie Yt debe ser una sola fila o columna vbCritical Error RefRangoYt SetFocus Exit Sub Else If nrocolumnas 1 Then nrodatos nrofilas Else nrodatos nrocolumnas End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA For Each celda In RangoYt If IsNumeric celda False Then MsgBox Existen datos no num ricos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else If IsEmpty celda True Then MsgBox Existen celdas sin datos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else End If End If Next End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If ReDim datosYt nrodatos contadordedatos 1 For Each celda In RangoYt datosYt contadordedatos celda contadordedatos contadordedatos 1 Next If txiNroPronosticos Then MsgBox No ha elegido un n mero de pron sticos extramuestrales vbCritical Error txtNroPronosticos SetFocus Exit Sub Else nropronosticosextra txtNroPronosticos Value End If se asigna el n mero de estaciones siempre y cuando no sea vac o el text box If txtEstaciones Then MsgBox No ha elegido un n mero de estaciones vbCritical Error txtEstaciones SetFocus Exit Sub Else s txtEstaciones Value La informaci n presentada en este docum
103. led False txtAlfa Enabled False End If If optSuavizamiento Value True Then eval a si la opci n de m todo suavizamiento exponencial est activada para dejar habilitados los controles requeridos e inhabilitar los dem s txtK Enabled False IbIK Enabled False IblAlfa Enabled True txtAlfa Enabled True End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de verificaci n Mostrar la Soluci n Optima el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub checkOptima_KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta al dar clic en el bot n Aceptar Private Sub cmdAceptar_Click On Error Resume Next con este c digo no aparece cuadro de error al usuario y no deja continuar hasta que no se siga produciendo Set RangoYt Range Me RefRangoY t Text se establece como RangoYt el rango dado por el control RefRangoYt que est en el formulario tiene r tulo Rango Yt On Error GoTo O If RangoYt Is Nothing Then s existe un error con el rango se saca un mensaje de error para informar MsgBox No ha elegido un rango de entrada de la serie Yt v lido vbCritical Error RefRangoYt SetFocus Exit Su
104. les de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 variable2 variable3 variable4 End Sub Suavizamiento exponencial Sub metodosuavizamientotipot If solucionoptima True Then eval a si el usuario desea la soluci n ptima entonces llama la macro que lo optimiza de lo contrario sigue con el algoritmo optimizarsuavizamientotipot Else pron sticos muestrales pron stico para el t 2 es el dato de t 1 y para t 1 es 1000000 para poder reconocer que no ten a pronosticosYt 1 1000000 pronosticosYt 2 datosYt 1 para los dem s muestrales se usa la f rmula del marco de referencia For contadordedatos 3 To nrodatos pronosticosYt contadordedatos alpha datosYt contadordedatos 1 1 alpha pronosticosYt contadordedatos 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next contadordedatos pron sticos extramuestrales se usa la f rmula del marco de referencia For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos alpha datosYt nrodatos 1 alpha pronosticosYt nrodatos Next contadordedatos se calcula de los errores de pron stico primero redimensionando el vector errort al n mero de datos ReDim errort nrodatos errort 1 1000000 For contadordedatos 2 To nrodatos errort contadordedatos
105. lidad de los autores y no compromete a la ElA Fecha Precio Cierre Rendimiento 13 04 2011 37 480 00 0 32 14 04 2011 37 500 00 0 05 15 04 2011 36 540 00 2 59 18 04 2011 36 480 00 0 16 19 04 2011 36 480 00 0 00 20 04 2011 36 980 00 1 36 25 04 2011 37 000 00 0 05 26 04 2011 37 100 00 0 27 27 04 2011 37 000 00 0 27 28 04 2011 36 780 00 0 60 29 04 2011 36 740 00 0 11 02 05 2011 36 700 00 0 11 03 05 2011 36 180 00 1 43 04 05 2011 36 500 00 0 88 05 05 2011 35 720 00 2 16 06 05 2011 36 300 00 1 61 09 05 2011 36 380 00 0 22 10 05 2011 36 900 00 1 42 11 05 2011 37 300 00 1 08 12 05 2011 37 700 00 1 07 13 05 2011 38 600 00 2 36 16 05 2011 38 560 00 0 10 17 05 2011 39 000 00 1 13 18 05 2011 38 900 00 0 26 19 05 2011 38 740 00 0 41 20 05 2011 39 000 00 0 67 23 05 2011 39 000 00 0 00 24 05 2011 39 380 00 0 97 25 05 2011 39 000 00 0 97 26 05 2011 38 880 00 0 31 27 05 2011 38 780 00 0 26 30 05 2011 38 820 00 0 10 31 05 2011 39 980 00 2 94 01 06 2011 39 640 00 0 85 02 06 2011 39 900 00 0 65 03 06 2011 39 640 00 0 65 07 06 2011 39 980 00 0 85 Fecha Precio Cierre Rendimiento 08 06 2011 40
106. limitar los posibles errores generados por el usuario Private Sub txtAlfa_KeyPress ByVal KeyAscii As MSForms Returninteger txtAlfa SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAscii lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End If End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto gamma el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtGamma_KeyPress ByVal KeyAscii As MSForms ReturnInteger txiGamma SetFocus If KeyAscii voKeyEscape Then Unload Me Else If KeyAscii lt gt 8 Then If KeyAscii lt gt 46 Then If KeyAscii lt gt 44 Then If Not IsNumeric Chr KeyAscii Then se desecha esa tecla y se avisa de que no es correcta Beep KeyAscii 0 End If End If End If End If End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el cuadro de texto k el c digo s lo permite ingresar ciertos caracteres para limitar los posibles errores generados por el usuario Private Sub txtK_KeyPress ByVal KeyAscii As MSForms Returninteger La informaci n presentada en este
107. los datos observados con el mismo componente estacional Aznar 8 Tr vez 1993 Siendo y la media de los datos obtenidos correspondientes a la i sima estaci n Ti e 1 Jis T Xv t 1 Donde T i 1 2 s el n mero de observaciones correspondientes a la estaci n i sima RI I i Error en el pron stico se denomina error en el pron stico o residual la diferencia entre el valor real de la serie en un t determinado y el valor de su pron stico e y Yi 1 3 2 Tipos de series Dependiendo del comportamiento de las observaciones obtenidas de las series de tiempo stas se pueden dividir en Series tipo 1 La serie oscila alrededor de un eje horizontal sin tendencia en ese caso se dice que la serie temporal es estacionario en media Su modelo es Yt Po ut Donde fo es una constante y u es un ruido blanco us N 0 o Hanke amp Reitsh Pron sticos en los negocios 5ed 1996 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Serie 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Tiempo Gr fico 1 3 Series Tipo 1 e Series tipo 2 La serie oscila alrededor de un eje horizontal sin tendencia pero se observa que tiene un componente estacional El modelo matem tico es Yt Po St u Donde fo es una constante S es el componente estacional Hanke amp Reitsh Pron sticos en los negocios 5ed 1996 14 Serie
108. ls 3 3 Select f rmula de Beta1 ActiveCell Formula G 2 B3 B2 1 G 2 C2 Sheets 1 Cells 3 3 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Selection AutoFill Destination Range Cells 3 3 Cells nrodatos 1 3 Type xIFillDefault Sheets 1 Cells 3 4 Select f rmula del pron stico ActiveCell Formula B2 C2 Sheets 1 Cells 3 4 Select Selection AutoFill Destination Range Cells 3 4 Cells nrodatos 1 4 Type xIFillDefault Sheets 1 Cells 3 5 Select f rmula del valor absoluto del error de pron stico ActiveCell Formula ABS A3 D3 Sheets 1 Cells 3 5 Select Selection AutoFill Destination Range Cells 3 5 Cells nrodatos 1 5 Type xIFillDefault Sheets 1 Cells 1 10 Select f rmula del promedio del error absoluto que es el que se va a minimizar ActiveCell Formula AVERAGEIF E E lt gt E E Sheets 1 Cells 1 1 Select c digo por medio del cual se usa el solver indicando cual es el valor a minimizar junto con las restricciones de las variables que se deben cambiar SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange G 1 G 2 _ Engine 3 EngineDesc Evolutionary SolverAdd CellRef G 1 Relation 1 FormulaText 1 SolverAdd CellRef G 2 Relation 1 FormulaText 1 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores
109. m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optMediaSimple_Change RefRangoYt SetFocus If optMediaSimple Value True Then txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled False Else txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA checkOptima Enabled False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optMediaSimple_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optMediasMoviles_Change RefRangoYt SetFocus If optMediasMoviles Value True Then If checkOptima Value False Then IbIK Enabled True txtK Enabled True Else IbIK Enabled False txtK Enabled False End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compr
110. n el fin de presentarlos alineados horizontalmente lt editBox id txtNivelConfianza label NC tag txtNC maxLength 4 getEnabled HabilitarTxt onChange CambioTxt gt En esta l nea de c digo es donde se agrega un cuadro de texto dentro de la segunda agrupaci n el cual tiene una identificaci n txiNivelConfianza instrucci n id un r tulo NC instrucci n label una etiqueta txtiNC instrucci n tag la cual permite tomar control desde VBA con un m ximo de 4 caracteres instrucci n maxLength la instrucci n getEnabled es con la que se habilita o inhabilita el cuadro de texto desde Visual Basic For Applications VBA y es la instrucci n onChange denominada CambioTxt la que permite que dentro de Visual Basic For Applications VBA poder obtener el valor del nivel de confianza ingresado N tese que se cierra el c digo para este control lt labelControl id LabelPorcentaje label tag lblPorct getEnabled HabilitarPorct gt En esta l nea de c digo es donde se agrega un control de r tulo despu s del cuadro de texto dentro de la segunda agrupaci n el cual tiene una identificaci n labelPorcentaje instrucci n id un r tulo instrucci n label una etiqueta lblPorct instrucci n tag la cual permite tomar control desde VBA y la instrucci n getEnabled es con la que se habilita o inhabilita el control de r tulo desde Visual Basic For Applications VBA N tese que se cierra el c digo para este control La inf
111. n el m todo de pron stico End If mostrarlosdatos se llama la macro con la que se muestran los datos en una hoja nueva Unload Me End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Aceptar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdAceptar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se da clic en el bot n Cancelar Private Sub cmdCancelar_Click Unload Me End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Cancelar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdCancelar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optDoblesMediasMoviles_Change RefRangoYt SetFocus If optDoblesMediasMoviles Value True Then If checkOptima Value False Then IbIK Enabled True txtK Enabled True Else IbIK Enabled False txtK Enabled False En
112. nload Me End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta cuando se da clic en el bot n Cancelar Private Sub cmdCancelar_Click Unload Me End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Cancelar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdCancelar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optSuavizamiento_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el control de referencia RangoYt el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub RefRangoYt_KeyPress KeyAscii As Integer If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se presiona una tecla del tecl
113. nnnnnnnnncncncnnnnnnnnnnnnnrnnnnnnnn nana 41 Ilustraci n 4 3 Formulario Series Tipo 2 oooonccnnononcccnnnonononananancnononononnnnnannnononnnanenannnos 82 Ilustraci n 4 4 Formulario Series Tipo 3 oooooncccconononocccononcconananancnononnncnonnnnnnnnconananenannnns 96 Ilustraci n 4 5 Formulario Series Tipo 4 oooconccnnnnocccccccccnnnnnnnnnnncnnnnnnnnnnnnnnnncnnncnnnnn 135 Ilustraci n 4 6 Ejemplo Muestrales oooooococcccnnnococononcccnoncnnnnncnnnanccononcnnnnnnnnnnnc cn nnnnnnn 161 Ilustraci n 4 7 Ejemplo Extramuestrales ooooocconnnoncccconnnonononanoncncnononnncnananananancnanan 161 Ilustraci n 4 8 Ejemplo Errores Medios coooocooononccccncccnnnnccnnanccnnncnnnnnnnnnnancnnnncnnnnn 161 Ilustraci n 4 9 Ejemplo Gr fica Datos vs Prom StICOS ooooooooooocccoococooonononononononnnonononos 162 Ilustraci n 5 1 Secci n Herramientas DescriptiVaS ooooocccnncccccncccanccccnnncccnnnnnannccnnnnnnns 174 Ilustraci n 5 2 gt Ejemplo AQ F suscrita oa a 186 Ilustraci n 5 3 Ejemplo PAGE ot ai 197 Ilustraci n 6 1 Gr fico Datos vs Pron sticos ccccooocococcccccnccconananannncnnnnncnnnnnnnn nn ccnnnnnns 200 Ilustraci n 6 2 Gr fica ACP Ss 201 llustraci n 6 3 Gr fica PACF inuit idiiid 203 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA LISTA DE ANEXOS ANEXO 1 DATOS DE ACCI N DE GRUPO SURA ccoocococononcn
114. nnnnnnnnnnnnnnonnnnnnnnnnnnncncnnnan 200 7 CONCLUSIONES Y CONSIDERACIONES FINALES ooooccccccnoccccnconnnnconcnananccnccnnnnos 204 es UPUPU0 U 0 PPPPenP PP ERC A 205 ANEXO 1 DATOS DE ACCI N DE GRUPO SURA cocococococicicicicininininnoninononononininenonos 206 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA LISTA DE TABLAS p g Tabla 1 T cnicas de pron stico no paraM triCO oooooocccccnnccconananancncnnnnccnnnnnannncnnnnnnnnnnnnnns 18 Tabla 2 Resultados Muestrales ooooooonooccccnnnncccnononoccnononononnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnns 198 Tabla 3 Resultados Extramuestrales oooocconnnnccccnoncconononanancnoncnnnnnnnnnnnnnenononanenananos 199 Tabla 4 Resultados Errores Medios iii 199 Tabla 5 Resultados AUF usais idids 200 Tabla 6 Resultados PAGE 202 Tabla 7 Precio Acci n Grupo SUIT 206 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA LISTA DE FIGURAS p g Ilustraci n 3 1 Imagen de Pesta a PronosticadoF oooooooococococooocooonnnnnnnnnnnnnnnnnonononnnnononos 26 Ilustraci n 3 2 Imagen Men Desplegable Autocorrelaci n oooooooccccnnncccncccancccccnnncnnnannns 30 Ilustraci n 4 1 Secci n Pron sticos No Param triOS oocccccocccoocccccncccconananannconononcnannnos 41 Ilustraci n 4 2 Formulario Series Tipo 1 ococcnconnnoncccnnccnn
115. ntadordedatos 2 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 To nrodatos MAD MAD Abs errort contadordedatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next contadordedatos MAD MAD nrodatos 1 c lculo del MAPE MAPE 0 For contadordedatos 2 To nrodatos If datosYt contadordedatos 0 Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datosYt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos 1 End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 Alpha valorvariable1 alpha variable2 Gamma valorvariable2 gamma variable3 variable4 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End If End Sub Optimizado de suavizamiento exponencial lineal de Holt Sub optimizarsuavizamientotipo3 se declaran variables necesarias para el desarrollo del algoritmo Dim cont As Integer Application ScreenUpdating False se des
116. ntes e id nticamente distribuidas iid Serie Serie 50 40 30 20 Yt 10 Tendencia 0 9 10 11 12 13 14 15 16 17 18 19 20 10 Tiempo Gr fico 1 1 Ejemplo de Tendencia 16 14 12 10 8 6 4 2 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Tiempo Gr fico 1 2 Ejemplo de Estacionalidad Periodo muestral un periodo muestral es cada uno de los instantes de tiempo de los T periodos en lo que se toman observaciones de la variable a estudiar Periodo extramuestral un periodo extramuestral es cada uno de los H periodos en lo que se desea pronosticar el comportamiento de la serie de tiempo estos periodos est n por fuera del periodo muestral y corresponden a los instantes de tiempo T 1 T 2 T H compromete a la EIA Pron stico muestral se denomina pron stico muestral a cada uno de los valores pronosticados para la serie de tiempo en los T periodos muestrales Para el periodo muestral t 1 se define como el pron stico muestral a 41 t 1 2 T 1 Pron stico extramuestral se denomina pron stico extramuestral a cada uno de los valores pronosticados para la serie de tiempo en los H periodos extramuestrales Para el periodo extramuestral T l se define como el pron stico extramuestral a J7 1 2 H Media muestral es el promedio simple de los datos observados de la serie Se denomina y T D t 1 Medias estacionales para cada una de las s estaciones es la media de
117. nto es de exclusiva responsabilidad de los autores y no compromete a la ElA alpha Sheets 1 Cells 1 7 gamma Sheets 1 Cells 2 7 pron sticos muestrales ReDim Tt nrodatos ReDim Beta1 nrodatos Tt 1 datosYt 1 Beta1 1 0 pronosticosYt 1 1000000 For contadordedatos 2 To nrodatos pronosticosYt contadordedatos Tt contadordedatos 1 Beta1 contadordedatos 1 Tt contadordedatos alpha pronosticosYt contadordedatos datosYt contadordedatos 1 alpha Beta1 contadordedatos gamma Tt contadordedatos Tt contadordedatos 1 1 gamma Beta1 contadordedatos 1 Next contadordedatos pron sticos extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos Tt nrodatos Beta1 nrodatos contadordedatos nrodatos Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA errort 1 1000000 For contadordedatos 2 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos 2 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos 1 c lculo del MAPE MAPE 0 For contadordedatos 2 To nrodatos If datosYt cont
118. odr n encontrarse procedimientos que pueden ser adaptados a los problemas y proyectos que se est n desarrollando e La posibilidad de automatizar cualquier tipo de procedimiento especialmente los de tipo estad stico se hace posible con la ayuda de Visual Basic para Aplicaciones VBA e Todo desarrollo a nivel de software sin importar de que tipo sea debe ser orientado al usuario para que sea de f cil aprendizaje y que su uso sea sencillo para cualquier persona e Como todo programa para computador o complemento para un software que est en constante mejora como Microsoft Excel este proyecto debe estar en constante revisi n y abierto a comentarios y sugerencias de los usuarios con el fin de evolucionar mejorando la interacci n e incluyendo las necesidades que vayan surgiendo e Se recomienda el trabajo futuro en la Modelaci n de Riesgos bajo los m todos descritos y usados en el complemento e El complemento se convierte en una herramienta que optimiza el proceso de aprendizaje en pron sticos para dedicar m s al an lisis de datos que a la construcci n de los pron sticos en Excel 2010 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA BIBLIOGRAF A Aznar A 8 Tr vez F J 1993 M todos De Predicci n En Econom a Barcelona Editorial Ariel Bruin R d 5 de Junio de 2011 Change the Ribbon in Excel 2007 or Excel 2010 Recuperado el 2
119. ollados con una serie de tiempo real la cual corresponde a los rendimientos de la acci n de Grupo Sura entre octubre de 2010 y septiembre de 2011 Este proyecto tiene como resultado el presente informe final el complemento desarrollado en Microsoft Excel 2010 y el Manual del Usuario Palabras clave Pron stico Series de Tiempo Funci n de Autocorrelaci n Complemento de Excel La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ABSTRACT Today it could be seen the need for people and companies to determinate the future environment that they have to face and with the goal to make decisions to take advantage over the rest together with advances in technology that humanity has made and the massive use of Microsoft Excel which is a tool for data management it is necessary to create an add in in the program that allows forecasting of future observations of a time series under different methods that in the case of this project are in nonparametric forecasts By the above it was identified a mathematical and statistical algorithm that allows calculation of descriptive statistical measures and graphics and also forecasting time series under non parametric statistical methods in Visual Basic for Applications VBA it is included in Excel O 2010 The characteristics required for the input data and results including formats which must be delivered by complement for b
120. omete a la ElA IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled True If checkOptima Value True Then IblAdvertencia Visible True Else IblAdvertencia Visible False End If Else txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled False IblAdvertencia Visible False End If End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optMediasMoviles _KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optSuavizamiento_Change RefRangoYt SetFocus If optSuavizamiento Value True Then txtK Enabled False IbIK Enabled False If checkOptima Value False Then IblAlfa Enabled True txtAlfa Enabled True Else IblAlfa Enabled False txtAlfa Enabled False End If checkOptima Enabled True If checkOptima Value True Then IblAdvertencia Visible True Else IblAdvertencia Visible False End If Else txi
121. omo valores con los resultados dados por el Solver Cells Select Selection Copy Selection PasteSpecial Paste xlPasteValues Operation xlNone SkipBlanks _ False Transpose False Application CutCopyMode False Sheets 1 Cells 1 1 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA toma el valor de alpha ptimo y se ejecuta el mismo c digo del m todo sin optimizaci n junto con el c lculo del error alpha Sheets 1 Cells 1 5 pron sticos muestrales pronosticosYt 1 1000000 pronosticosYt 2 datosYt 1 For contadordedatos 3 To nrodatos pronosticosYt contadordedatos alpha datosYt contadordedatos 1 1 alpha pronosticosYt contadordedatos 1 Next contadordedatos pron sticos extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos alpha datosYt nrodatos 1 alpha pronosticosYt nrodatos Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos errort 1 1000000 For contadordedatos 2 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA MAD 0 For contadordedatos 2 To nrodatos MAD MAD Abs errort conta
122. on 0 AddIndent False IndentLevel 0 ShrinkToFit False ReadingOrder xIContext MergeCells False End With With Selection Font ThemeColor xIThemeColorDark1 TintAndShade 0 End With With Selection Interior Pattern xlSolid PatternColorlndex xlAutomatic ThemeColor xIThemeColorLight2 TintAndShade 0 PatternTintAndShade 0 End With Selection Font Bold True Sheets 1 Range Cells 2 9 Cells 2 10 Select Selection Font Bold True Sheets 1 Cells 3 9 Select Selection NumberFormat 0 0000 Sheets 1 Cells 3 10 Select La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Selection NumberFormat 0 00 Sheets 1 Range Cells 3 9 Cells 3 10 Select With Selection HorizontalAlignment xlCenter VerticalAlignment xIBottom WrapText False Orientation 0 AddIndent False IndentLevel 0 ShrinkToFit False ReadingOrder xlContext MergeCells False End With ingreso de los datos calculados para extramuestrales For contadordedatos nrodatos 1 To nrodatos nropronosticosextra Sheets 1 Cells contadordedatos nrodatos 2 6 contadordedatos Sheets 1 Cells contadordedatos nrodatos 2 7 pronosticosYt contadordedatos Next contadordedatos Sheets 1 Range Cells 3 7 Cells contadordedatos 2 7 Select Selection NumberFormat 0 0000 La informaci n presentada en este documento es de excl
123. on id btnAcrF image ACF onAction MacroACrF label Graficar ACF gt lt button id btnPACrF image PACF onAction MacroPACF label Graficar PACF gt lt button id btnAmbas image ACFyPACF onAction MacroACFyPACF label Graficar ACF y PACEF gt lt menu gt lt checkBox id chkNivelConfianza tag check La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA label Nivel de Confianza onAction PresionNivel gt xbox 1d Box2 gt lt editBox id txtNivelConfianza label NC tag txtNC maxLength 4 getEnabled HabilitarTxt onChange CambioTxt gt lt labelControl id LabelPorcentaje label S tag 1blPorer getEnabled HabilitarPorct gt lt box gt lt checkBox id chkTabularDatos onAction PresionTabular label Tabular datos gt lt group gt lt tab gt lt tabs gt lt fribbon gt lt customUl gt Para aclarar el c digo presentado anteriormente se explica cada l nea teniendo en cuenta que para este c digo debe encadenarse los controles del m s general al m s espec fico para abrir el c digo se usa la expresi n lt control se termina una l nea de c digo con gt sin cerrar el control y para cerrar el control en el c digo correspondiente se debe ingresar gt si se est en la misma l nea o lt control gt si es en una diferente lt customUI xmins http schemas micro
124. on stico de suavizamiento exponencial optimizado perteneciente a los m todos para las Series Tipo 1 dado que se grafic la serie y presenta el comportamiento de una serie de tiempo de este tipo Arrojando un alpha ptimo de 0 0188814570834 Muestrales Como se tomaron 249 observaciones de rendimientos del precio de la acci n se presenta la tabla con los ltimos 20 periodos Tabla 2 Resultados Muestrales Muestrales Periodo Pron stico Error 230 0 0273 0 0008 0 0265 231 0 0140 0 0013 0 0153 232 0 0172 0 0010 0 0182 233 0 0011 0 0006 0 0018 234 0 0074 0 0006 0 0068 235 0 0006 0 0007 0 0002 236 0 0104 0 0007 0 0097 237 0 0000 0 0009 0 0009 238 0 0132 0 0009 0 0141 239 0 0052 0 0006 0 0045 240 0 0023 0 0007 0 0016 241 0 0058 0 0007 0 0050 242 0 0081 0 0008 0 0073 243 0 0291 0 0010 0 0281 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA 244 0 0191 0 0015 0 0206 245 0 0263 0 0011 0 0252 246 0 0120 0 0016 0 0136 247 0 0030 0 0013 0 0043 248 0 0136 0 0013 0 0149 249 0 0226 0 0010 0 0217 Extramuestrales Dado que para las Series Tipo 1 s lo tiene sentido obtener la informaci n de un pron stico extramuestral y este fue el resultado Tabla 3 Resultados Extramuestrales Extramuestrales Periodo Pron stico 250 0 0014 2
125. onocinonononncaranannonenenininonos 205 La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA RESUMEN En la actualidad se observa que existe necesidad tanto de las personas como de las empresas en poder determinar el entorno futuro al cual se van a enfrentar y con el fin de tomar decisiones que le otorguen cierta ventaja sobre las dem s en conjunto con el avance en materia de tecnolog a que ha tenido la humanidad y el uso masivo que tiene Microsoft Excel como herramienta de manejo de datos se hace necesario la creaci n de un m dulo en dicho programa que permita el pron stico de observaciones futuras de una serie de tiempo bajo diferentes m todos que en el caso de este proyecto corresponden a pron sticos no param tricos Por lo anterior se identific el algoritmo matem tico y estad stico que permite el c lculo y gr fico de medidas estad sticas descriptivas al igual que el pron stico de series de tiempo bajo m todos estad sticos no param tricos en Visual Basic para Aplicaciones VBA incluido en Excel 2010 Tambi n se establecieron las caracter sticas requeridas para los datos de entrada y los resultados incluyendo los formatos que se deben ser entregados por el complemento Adicionalmente se realiz una b squeda de procedimientos que pudieran ser adaptados al desarrollo y funcionamiento del complemento Finalmente se eval o los algoritmos desarr
126. ormaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA lt box gt En esta l nea de c digo se cierra el cuadro invisible que contiene el Nivel de Confianza lt checkBox id chkTabularDatos onAction PresionTabular label Tabular datos gt En esta l nea de c digo es donde se agrega un cuadro de verificaci n dentro de la segunda agrupaci n el cual tiene una identificaci n chkTabularDatos instrucci n id un Tabular Datos instrucci n label y es la instrucci n onAction denominada PresionTabular la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se chulee o no el cuadro de verificaci n N tese que se cierra el c digo para este control lt group gt En esta l nea de c digo se cierra la segunda agrupaci n de controles lt tab gt En esta l nea de c digo se cierra la pesta a Pronosticador lt tabs gt En esta l nea de c digo se cierra las pesta as de Office lt ribbon gt En esta l nea de c digo se cierra la cinta de herramientas de Office lt customUl gt En esta l nea de c digo se cierra el control del complemento 3 2 C DIGO VBA Con la pesta a dise ada se desarroll el c digo en Visual Basic For Applications VBA con el que se pudiera combinar los elementos creados en XML y usarlos en Microsoft Excel 2010 Para poder cumplir con lo mencionado se cre un m dulo denominado Ribbon
127. os autores y no compromete a la ElA nrodatos nrofilas Else nrodatos nrocolumnas End If For Each celda In RangoYt If IsNumeric celda False Then MsgBox Existen datos no num ricos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else If IsEmpty celda True Then MsgBox Existen celdas sin datos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else End If End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Next End If End If ReDim datosYt nrodatos contadordedatos 1 For Each celda In RangoYt datosYt contadordedatos celda contadordedatos contadordedatos 1 Next If txiNroPronosticos Then MsgBox No ha elegido un n mero de pron sticos extramuestrales vbCritical Error txtNroPronosticos SetFocus Exit Sub Else nropronosticosextra txtNroPronosticos Value End If If checkMuestrales Value True Then pronosticosmuestrales True La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else pronosticosmuestrales False End If ReDim pronosticosYt nrodatos nropronosticosextra c digo para cuando est activado el m todo de dobles medias m viles If optDoblesMediasMoviles Value True Then se eval a si quiere la soluci n ptima y se almacena esta respuesta en una variable If c
128. os errores de pron stico ReDim errort nrodatos For contadordedatos s 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos s 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos s c lculo del MAPE MAPE 0 For contadordedatos s 1 To nrodatos If datosYt contadordedatos O Then asegurarse que no hayan datos que sean igual a cero ya que el MAPE no sirve en este caso MAPE 1 hacer 1 para mostrar el mensaje de error La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos s End If seg n las variables de entrada se cargan estas a las variables determinadas y se dejan vac as las dem s variable1 Estaciones valorvariable1 s variable2 Alpha valorvariable2 alpha variable3 Gamma valorvariable3 gamma variable4 Delta valorvariable4 delta End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Optimizado de suavizamiento exponencial de Holt Winters Sub optimizarsuavizamientotipo4 se de
129. pronosticosextra xlisticontadordedatos contadordedatos xlist2 contadordedatos contadordedatos If pronosticosYt contadordedatos 1000000 Then ylist2 contadordedatos CVErr xlErrNA Else ylist2 contadordedatos pronosticosYt contadordedatos End If Next contadordedatos For contadordedatos 1 To nrodatos ylist contadordedatos datosYt contadordedatos Next contadordedatos se inserta en la hoja un nuevo gr fico que se almacena en la variable mychart ActiveSheet Shapes AddChart Select Set mychart Sheets 1 ChartObjects 1 Chart c digo para ingresarle las series de datos al nuevo gr fico insertarle el t tulo y darle el formato requerido With mychart La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Axes xICategory Select ChartType xlLine SeriesCollection NewSeries SeriesCollection 1 XValues xlist SeriesCollection 1 Values ylist SeriesCollection NewSeries SeriesCollection 2 XValues xlist2 SeriesCollection 2 Values ylist2 Axes xlCategory HasTitle False SetElement msoElementChartTitleAboveChart ChartTitle Select ChartTitle Text Datos vs Pron sticos End With Selection Format TextFrame2 TextRange Characters Text Datos vs Pron sticos With Selection Format TextFrame2 TextRange Characters 1 3 ParagraphFormat TextDirection msoTextDirectionLeftToRight Alignment msoAlignCenter End With
130. ptar los procedimientos a las necesidades del complemento Para el objetivo espec fico Validar el complemento mediante el an lisis de una serie de tiempo real Se realizaron las siguientes actividades 1 Definir la serie a analizar 2 Realizar el an lisis descriptivo y el pron stico no param trico La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 3 PESTA A EN EXCEL 6 2010 A continuaci n se presenta el resultado de la investigaci n y aplicaci n de los procedimientos que se adaptaron para poder generar la pesta a en Microsoft Excel O 2010 en este cap tulo se mostraran los aspectos directamente relacionados al complemento en general y no a los m todos no param tricos y las herramientas descriptivas que se presentaran en cap tulos posteriores 3 1 C DIGO XML Para poder desarrollar una pesta a en Microsoft Excel se hizo necesario el desarrollo de c digo XML para poder dise ar correctamente la pesta a y las secciones que se incluyeron e Pron sticos No Param tricos e Herramientas Descriptivas Con el fin de facilitar el desarrollo de complementos para sus aplicaciones Microsoft ha puesto a disposici n de los usuarios una herramienta gratuita llamada Custom Ul Editor For Microsoft Office es en con este programa que se cre la pesta a denominada Pronosticador ver llustraci n 3 1 Imagen de Pesta a Pronosticador y la que facilit el dise
131. r ACF y PACF gt En esta l nea de c digo es donde se agrega un tercer bot n dentro del men de la segunda agrupaci n el cual tiene una identificaci n btnAmbas instrucci n id un r tulo Graficar ACF y PACF instrucci n label una imagen que se denomina ACFyPACF la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image y es la instrucci n onAction denominada MacroACFyPACF la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se d clic en este bot n N tese que se cierra el c digo para este control lt menu gt En esta l nea de c digo se cierra el men de botones desplegables lt checkBox id chkNivelConfianza tag check label Nivel de Confianza onAction PresionNivel gt En esta l nea de c digo es donde se agrega un cuadro de verificaci n dentro de la segunda agrupaci n el cual tiene una identificaci n chkNivelConfianza instrucci n id un r tulo Nivel de Confianza instrucci n label una etiqueta que se denomina check instrucci n tag la cual permite tomar control desde VBA y es la instrucci n onAction denominada PresionNivel la que permite que dentro de Visual Basic For Applications VBA poder programar el c digo cuando se chulee o no el cuadro de verificaci n N tese que se cierra el c digo para este control lt box id Box2 gt En esta l nea de c digo se crea un cuadro invisible para agrupar controles co
132. res absolutos de cada error Hanke Reitsh Pron sticos en los negocios 5ed 1996 MAD le MM Il 1 e Error porcentual absoluto medio MAPE En ocasiones los errores de pron stico resultan m s tiles cuando se calculan en t rminos de porcentaje y no de cantidades El error porcentual absoluto medio MAPE se calcula como el promedio de los errores absolutos divididos por sus valores reales Hanke amp Reitsh Pron sticos en los negocios 5ed 1996 N pa Yt 1 3 5 Funci n de autocorrelaci n y funci n de autocorrelaci n parcial MAD z Cuando se mide una variable a trav s del tiempo con frecuencia est correlacionada consigo misma cuando se desfasa uno o m s periodos Esta correlaci n se mide mediante el coeficiente de autocorrelaci n Hanke Reitsh Pron sticos en los negocios 5ed 1996 La autocorrelaci n es la correlaci n existente entre una variable desfasada uno o m s periodos y la misma variable Hanke amp Reitsh Pron sticos en los negocios 5ed 1996 La funci n de autocorrelaci n y la funci n de autocorrelaci n parcial sirven como medida descriptiva de la serie de tiempo y para identificar la estructura de un modelo de pron stico Funci n de autocorrelaci n ACF La autocorrelaci n de orden k denotada por p es la correlaci n de la serie de tiempo separada k periodos COV Yt Y tk La informaci n presentada en este documento es de exclusiva responsa
133. riable en caso contrario se saca un mensaje de error MsgBox No ha elegido un valor de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If If IsNumeric txtAlfa Value False Then MsgBox No ha elegido un valor num rico de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If alpha txtAlfa Value If alpha lt 0 Or alpha gt 1 Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Alpha no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txtAlfa SetFocus Exit Sub End If Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA solucionoptima True alpha 0 5 End If metodosuavizamientotipo1 se llama la macro con el m todo de pron stico End If mostrarlosdatos se llama la macro con la que se muestran los datos en una hoja nueva Unload Me End Sub C digo que se ejecuta cuando se presiona una tecla del teclado en el bot n Aceptar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub cmdAceptar_KeyPress ByVal KeyAscii As MSForms Returninteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando se da clic en el bot n Cancelar Private Sub cmdCancelar_Click Unload Me End Sub C digo que se ejecuta cuando se presiona una
134. rio no este vac o que sea num rico y se almacena en una variable en caso contrario se saca un mensaje de error MsgBox No ha elegido un valor de gamma vbCritical Error txiGamma SetFocus Exit Sub End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If IsNumeric txtAlfa Value False Then MsgBox No ha elegido un valor num rico de alpha vbCritical Error txtAlfa SetFocus Exit Sub End If If IsNumeric txtGamma Value False Then MsgBox No ha elegido un valor num rico de gamma vbCritical Error txiGamma SetFocus Exit Sub End lf alpha txtAlfa Value gamma txtGamma Value If alpha lt 0 Or alpha gt 1 Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Alpha no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txtAlfa SetFocus Exit Sub End If If gamma lt 0 Or gamma gt 1 Then se eval a que la variable cumpla los requisitos en caso contrario se saca un mensaje de error MsgBox Gamma no v lido recuerde que debe estar entre cero y uno 0 y 1 vbCritical Error txiGamma SetFocus Exit Sub End If La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else solucionoptima True alpha 0 5 gamma 0 5 End If metodosuavizamientotipo3 se llama la macro co
135. rn Pronosticos en los negocios 8ed 2006 Serie de tiempo una serie de tiempo es un conjunto de T observaciones que se toman de una variable medidas a intervalos regulares de tiempo datos anuales semestrales mensuales semanales diarios horas Hanke amp Wichern Pronosticos en los negocios 8ed 2006 Datos de las series de tiempo se denominan datos a cada una de las T observaciones que se obtienen en diferentes instantes de tiempo Se define y como dato en el periodo t 1 2 T Componentes de la serie de tiempo los m todos no param tricos se basan en la idea que dentro de los datos obtenidos de una serie pueden distinguirse tres componentes tendencia T componente estacional S y componente irregular u que es ruido blanco o Tendencia patr n de comportamiento que presenta los datos de la serie de tiempo es decir que la media de la variable estudiada se puede describir como una funci n del tiempo La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no O Estacionalidad es un patr n de comportamiento que se repite en cada estaci n es decir que una pauta que s lo se presenta en datos con el mismo componente estacional Proceso ruido blanco se denomina ruido blanco al proceso estoc stico compuesto por una secuencia de variables aleatorias independie
136. ro RecargarTxt Sub RecargarTxt Tag As String habilitarNCTextBox Tag se almacena en la variable la etiqueta dada cuando se llama la macro If Rib Is Nothing Then eval a que la variable Rib sea vac a MsgBox Favor guardar reiniciar su libro vbCritical Error Informa que hay un error si es vac o Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Rib Invalidate si no es vac o esta l nea de c digo es la que permite recargar el control y poder evaluar la propiedad instrucci n getEnabled que se denomina habilitarTxt End If End Sub Macro RecargarLabel Sub RecargarLabel Tag As String habilitarNCLabel Tag se almacena en la variable la etiqueta dada cuando se llama la macro If Rib Is Nothing Then MsgBox Favor guardar reiniciar su libro vbCritical Error Else Rib Invalidate s no es vac o esta l nea de c digo es la que permite recargar el control y poder evaluar la propiedad instrucci n getEnabled que se denomina habilitarPorct End If End Sub Macro habilitarTxt de la instrucci n getEnabled Sub habilitarTxt control As IRibbonControl ByRef returnedVal returnedVal es el que determina si est habilitado o no If habilitar NCTextBox inhabilitar Then eval a si la variable es inhabilitar returnedVal False returnedVal es falso inhabilitado Else If control Tag Like habilitar NCTextBox Then eval a si
137. s 1 Cells 3 5 Select Selection AutoFill Destination Range Cells 3 5 Cells nrodatos 2 5 Type xIFillDefault Sheets 1 Cells 3 7 Select f rmula del rango que eval a la media m vil ActiveCell Formula CONCATENATE A ROW INT D 1 A ROW 1 Sheets 1 Cells 3 7 Select Selection AutoFill Destination Range Cells 3 7 Cells nrodatos 2 7 Type xIFillDefault Sheets 1 Cells 3 8 Select f rmula del rango que eval a la doble media m vil ActiveCell Formula CONCATENATE B ROW INT D 1 1 B ROW La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Sheets 1 Cells 3 8 Select Selection AutoFill Destination Range Cells 3 8 Cells nrodatos 2 8 Type xIFillDefault Sheets 1 Cells 2 7 Select f rmula del promedio del error absoluto que es el que se va a minimizar ActiveCell Formula AVERAGEIF E E lt gt E E Sheets 1 Cells 1 1 Select c digo por medio del cual se usa el solver indicando cual es el valor a minimizar junto con las restricciones de las variables que se deben cambiar SolverOk SetCell G 2 MaxMinVal 2 ValueOf 0 ByChange D 1 Engine 3 _ EngineDesc Evolutionary SolverAdd CellRef D 1 Relation 1 FormulaText 25 SolverAdd CellRef D 1 Relation 3 FormulaText 1 SolverAdd CellRef D 1 Relation 4 FormulaText entero SolverOk SetCell
138. seg n la secci n 1 3 4 Medici n del error en el pron stico Medias estacionales Sub mediasestacionales se declaran variables necesarias para el desarrollo del algoritmo Dim suma As Double Dim estacion As Integer Dim totaldatosestacion As Integer se inicializan y redimensionan las variables ReDim suma s La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ReDim totaldatosestacion s For estacion 0 Tos 1 totaldatosestacion estacion 0 suma estacion 0 Next estacion promedios estacionales For contadordedatos 1 To nrodatos For estacion 0 Tos 1 If contadordedatos Mod s estacion Then totaldatosestacion estacion totaldatosestacion estacion 1 suma estacion suma estacion datosYt contadordedatos End If Next estacion Next contadordedatos pron sticos muestrales es el promedio de los datos muestrales que pertenecen a la misma estaci n For contadordedatos 1 To nrodatos pronosticosYt contadordedatos suma contadordedatos Mod s totaldatosestacion contadordedatos Mod s Next contadordedatos pron sticos extramuestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA es el promedio de los datos muestrales que pertenecen a la misma estaci n For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contador
139. soThemeColorBackground1 ForeColor TintAndShade 0 ForeColor Brightness 0 25 Transparency 0 End With mychartPACF SeriesCollection 2 ChartType xlLine mychartPACF SeriesCollection 2 Select With Selection Format Line Visible msoTrue Weight 2 End With With Selection Format Line Visible msoTrue DashStyle msoLineLongDash End With mychartPACF SeriesCollection 2 Select With Selection Format Line Visible msoTrue La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ForeColor RGB RGB 192 0 0 Transparency 0 End With mychartPACF SeriesCollection 3 ChartType xlLine mychartPACF SeriesCollection 3 Select With Selection Format Line Visible msoTrue Weight 2 End With With Selection Format Line Visible msoTrue DashStyle msoLineLongDash End With mychartPACF SeriesCollection 3 Select With Selection Format Line Visible msoTrue ForeColor RGB RGB 192 0 0 Transparency 0 End With ActiveChart Legend Select Selection Delete La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA If kAutocorrelacion gt 15 Then ActiveChart Axes xICategory TickLabelSpacing 2 Else ActiveChart Axes xlCategory TickLabelSpacing 1 End If With mychartPACF Axes xIValue MinimumScale 1 Axes xlValue MaximumScale 1 End With If ACF False Then se
140. soft com office 2009 07 customui onLoad RibbonOnLoad gt En esta l nea de c digo se abre el control del complemento y existen 2 instrucciones la primera corresponde a xmins que es con la cual se le dicta al programa bajo que esquema de Office va a trabajar como el complemento fue desarrollado para Excel O 2010 que corresponde a Office 14 se debe utilizar como referencia http schemas microsoft com office 2009 07 customui la segunda corresponde a la acci n de cargado del complemento que permite la manipulaci n de los controles que se agreguen al complemento lt ribbon gt En esta l nea de c digo se abre el control de la cinta con los controles de Office lt tabs gt En esta l nea de c digo se abre el control de la pesta as dentro de la cinta lt tab id Tab1 label Pronosticador gt En esta l nea de c digo es donde se crea una nueva pesta a la cual tiene una identificaci n denominada Tab1 instrucci n id y un r tulo Pronosticador instrucci n label La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA lt group id Group1 label Pron sticos No Param tricos gt En esta l nea de c digo es donde se crea la primera secci n o agrupaci n de controles dentro de la pesta a con una identificaci n denominada Group1 instrucci n id y un r tulo Pron sticos No Param tricos instrucci n label lt button id btnTipo1 label Series Tipo 1 imag
141. specificando que el valor de esta celda deber ser mayor o igual igual o menor o igual que un valor definido por el usuario otra celda o que contiene la constante Cj Tambi n esta herramienta permite especificar el conjunto num rico al que pertenece la variable a optimizar definiendo si es entero o real Loubet La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA 2 METODOLOG A Para los primeros tres objetivos espec ficos e Desarrollar los algoritmos de c lculo y gr fico de medidas estad sticas descriptivas en Visual Basic para Aplicaciones VBA incluido en Excel 2010 e Desarrollar los algoritmos de pron stico de series de tiempo bajo m todos estad sticos no param tricos en VBA garantizando pron sticos de m nimo error absoluto porcentual medio MAPE o de menor desviaci n absoluta media MAD e Construir el complemento completo de Excel 2010 Se aplic la siguiente metodolog a 1 Identificar el algoritmo necesario matem tico y estad stico que permitan desarrollar los c lculos y gr ficos descritos 2 Establecer las caracter sticas de los datos de entrada y los resultados incluyendo los formatos respectivos a entregar por el complemento de Microsoft Excel 6 3 Realizar b squedas de procedimientos similares que puedan ser adaptados al problema en cuesti n 4 Analizar los resultados de los procedimientos encontrados 5 Ada
142. ste documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End Sub C digo que se ejecuta al dar clic en el bot n Aceptar es el mismo c digo que se mostr en el formulario Series Tipo 1 hasta que se eval a las opciones de m todo Private Sub cmdAceptar_Click On Error Resume Next Set RangoYt Range Me RefRangoYt Text On Error GoTo O If RangoYt Is Nothing Then MsgBox No ha elegido un rango de entrada de la serie Yt v lido vbCritical Error RefRangoYt SetFocus Exit Sub Else nrocolumnas RangoYt Columns Count nrofilas RangoYt Rows Count If nrocolumnas gt 1 And nrofilas gt 1 Then MsgBox El rango de entrada de la serie Yt debe ser una sola fila o columna vbCritical Error RefRangoYt SetFocus Exit Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Else If nrocolumnas 1 Then nrodatos nrofilas Else nrodatos nrocolumnas End If For Each celda In RangoYt If IsNumeric celda False Then MsgBox Existen datos no num ricos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else If IsEmpty celda True Then MsgBox Existen celdas sin datos en el rango elegido vbCritical Error RefRangoYt SetFocus Exit Sub Else La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA End I
143. t Application CutCopyMode False Selection ClearContents La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA toma el valor de k ptimo y se ejecuta el mismo c digo del m todo sin optimizaci n junto con el c lculo del error k Sheets 1 Cells 1 5 pron sticos muestrales For contadordedatos 1 To k pronosticosYt contadordedatos 1000000 Next contadordedatos For contadordedatos k 1 To nrodatos promedio 0 For contadork 1 To k promedio promedio datosYt contadordedatos contadork Next contadork promedio promedio k pronosticosYt contadordedatos promedio Next contadordedatos pron sticos extramuestrales promedio 0 For contadork 0 To k 1 promedio promedio datosYt nrodatos contadork Next contadork promedio promedio k La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA For contadordedatos nrodatos 1 To nrodatos nropronosticosextra pronosticosYt contadordedatos promedio Next contadordedatos c lculo de los errores de pronostico ReDim errort nrodatos For contadordedatos 1 To k errort contadordedatos 1000000 Next contadordedatos For contadordedatos k 1 To nrodatos errort contadordedatos datosYt contadordedatos pronosticosYt contadordedatos Next contadordedatos c lculo del MAD MAD 0 For contadordedatos
144. t group gt En esta l nea de c digo se cierra la primera agrupaci n de controles La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA lt group id Group2 label Herramientas Descriptivas gt En esta l nea de c digo es donde se crea la segunda secci n o agrupaci n de controles dentro de la pesta a con una identificaci n denominada Group2 instrucci n id y un r tulo Herramientas Descriptivas instrucci n label lt menu id MenuAutocorrelacion image ACFyPACF itemSize large label Autocorrelaci n size large gt En esta l nea de c digo es donde se agrega un men de botones desplegable ver Ilustraci n 3 2 Imagen Men Desplegable Autocorrelaci n dentro de la segunda agrupaci n el cual tiene una identificaci n MenuAutocorrelacion instrucci n id un r tulo Autocorrelacion instrucci n label una imagen que se denomina ACFyPACF la cual debe ser insertada y su nombre debe coincidir con la que se digita en la instrucci n image un tama o grande del men dentro del grupo de controles instrucci n size y la instrucci n temSize es la que determina el tama o grande de los botones que se despliegan 7 Nivel de Confianza ACF PACF C Tabular datos Mr Graficar ACF ACE IM Graficar PACF RACE Mr Graficar ACF y PACF Ilustraci n 3 2 Imagen Men Desplegable Autocorrelaci n lt button id btnACF image ACF onAction
145. t _ False RequireBounds True MaxSubproblems 0 MaxIntegerSols 0 _ IntTolerance 0 1 SolveWithout False MaxTimeNolmp 30 SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange 5H 1 H 3 _ Engine 3 EngineDesc Evolutionary SolverOk SetCell J 1 MaxMinVal 2 ValueOf 0 ByChange 5H 1 H 3 _ Engine 3 EngineDesc Evolutionary SolverSolve UserFinish True con esta l nea de c digo el usuario no necesita darle clic en ok cuando el solver encuentra la soluci n C digo para copiar y pegar como valores con los resultados dados por el Solver La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Cells Select Selection Copy Selection PasteSpecial Paste xlPasteValues Operation xlNone SkipBlanks _ False Transpose False Application CutCopyMode False Sheets 1 Cells 2 9 Sheets 1 Cells 1 10 Columns J J Select Selection ClearContents Sheets 1 Cells 1 10 Sheets 1 Cells 2 9 Sheets 1 Cells 2 9 Sheets 1 Cells 1 1 Select toma los valores ptimos de alpha de gamma y de delta y se ejecuta el mismo c digo del m todo sin optimizaci n junto con el c lculo del error alpha Sheets 1 Cells 1 8 gamma Sheets 1 Cells 2 8 delta Sheets 1 Cells 3 8 pron sticos muestrales ReDim Tt nrodatos ReDim Beta1 nrodatos ReDim St nrodatos For contadordedatos 1 To s La informaci n present
146. tType xlLine mychartACF SeriesCollection 2 Select With Selection Format Line Visible msoTrue Weight 2 End With With Selection Format Line Visible msoTrue DashStyle msoLineLongDash End With mychartACF SeriesCollection 2 Select With Selection Format Line Visible msoTrue ForeColor RGB RGB 192 0 0 Transparency 0 End With mychartACF SeriesCollection 3 ChartType xlLine mychartACF SeriesCollection 3 Select With Selection Format Line Visible msoTrue Weight 2 End With With Selection Format Line La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Visible msoTrue DashStyle msoLineLongDash End With mychartACF SeriesCollection 3 Select With Selection Format Line Visible msoTrue ForeColor RGB RGB 192 0 0 Transparency 0 End With ActiveChart Legend Select Selection Delete If kAutocorrelacion gt 15 Then ActiveChart Axes xlCategory TickLabelSpacing 2 Else ActiveChart Axes xlCategory TickLabelSpacing 1 End If With mychartACF Axes xIValue MinimumScale 1 Axes xlValue MaximumScale 1 End With La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA c digo para darle el tama o al gr fico seg n el k m ximo Sheets 1 Activate ActiveSheet Shapes 1 Height kAutocorrelacion 1 15 ActiveSheet Shapes 1 Width 400
147. tadordedatos s 1 To nrodatos MAD MAD Abs errort contadordedatos Next contadordedatos MAD MAD nrodatos s c lculo del MAPE MAPE 0 For contadordedatos s 1 To nrodatos If datosYt contadordedatos 0 Then MAPE 1 contadordedatos nrodatos 1 Else MAPE MAPE Abs errort contadordedatos datos Yt contadordedatos End If Next contadordedatos If MAPE lt gt 1 Then MAPE MAPE nrodatos s End If variable1 Estaciones valorvariable1 s La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA variable2 Alpha ptimo valorvariable2 alpha variable3 Gamma ptimo valorvariable3 gamma variable4 Delta ptimo valorvariable4 delta C digo para eliminar la hoja usada por el Solver Application DisplayAlerts False Sheets 1 Select ActiveWindow SelectedSheets Delete Application DisplayAlerts True Application ScreenUpdating True se activa la opci n de actualizaci n de pantalla inmediata End Sub 4 5 MOSTRAR DATOS AL USUARIO Con el fin de tener una manera est ndar de entregarle los datos calculados por el complemento al usuario para la secci n de Pron sticos No Param tricos se ha creado una macro denominada mostralosdatos con la que en una hoja nueva se muestra la informaci n solicitada Esta informaci n se divide en e M todo Usado se muestra la informaci n del m todo que el usuario el
148. te 10 semestres hemos compartido un sinf n de experiencias que me han enriquecido Espero poder seguir d ndoles alegr as a todos los que tienen fe en m y que juntos podamos compartir m s ense anzas y seguir caminando hacia el xito La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA CONTENIDO p g INTRODUCCION ascos arre 10 1 PRELIMINARES acia ai Ei 11 1 1 Planteamiento del problema ooooonnnnnncccnnnnnccnnnnnnonononononnnnnanannnonononnnnnnnannnancno 11 122 Objetivos del proyecto sen dios 12 1 2 1 si e PP P nessen rnnnn nn nnseeee nee 12 1 2 2 Objetivos Espec ficos usmadadalcinoa dni da 12 1 3 Marco de Teorias ein id 12 1 3 1 GOncralldaO SS nte 12 1 3 2 TIPOS de Secos 14 1 3 3 M todos no param tricos de series temporalesS oooomooonccinnnnninnnicccccccononinns 17 1 3 4 Medici n del error en el pron stico ccoononocccccnnncccnnnccnoncccnnnnccnnnnanancncnnnnnnns 20 1 3 5 Funci n de autocorrelaci n y funci n de autocorrelaci n parcial 20 1 36 Marco Contextual niisripa RR 23 1 3 7 Custom Ul Editor For Microsoft Office ooooccocnccccnnccacoccccccncccnnnnaanrncncnnnnns 23 e o AA PAP E E E 23 2 METODO LOO atenas 25 3 PESTA A EN EXCEL O 2010 0ooconicconenncinnisisnsenaincrenainerenraererenranererrnranerenranas 26 3 1 C digo AM ana rd oia adi 26 de C digo Bai a 32 33 Ejecuci n del COMplemMento ccc
149. tecla del teclado en el bot n Cancelar el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA Private Sub cmdCancelar_KeyPress ByVal KeyAscii As MSForms ReturnInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de m todo inhabilitando los controles que no se necesitan para el m todo respectivo y habilitando los necesarios Private Sub optingenuo_Change RefRangoYt SetFocus If optingenuo Value True Then txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled False Else txtK Enabled False IbIK Enabled False IblAlfa Enabled False txtAlfa Enabled False checkOptima Enabled False End If End Sub La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA C digo que se ejecuta cuando se presiona una tecla del teclado en el control de opci n del M todo el c digo es el mismo al que se mostr con el cuadro de verificaci n Mostrar Pron sticos Muestrales Private Sub optingenuo_KeyPress ByVal KeyAscii As MSForms ReturniInteger If KeyAscii voKeyEscape Then Unload Me End If End Sub C digo que se ejecuta cuando el usuario cambia de opci n de
150. tenidos y luego se cargan La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA ReDim xlistACF O To kAutocorrelacion ylistACF O To kAutocorrelacion xlist2ACF 0 To kAutocorrelacion ylist2ACF O To kAutocorrelacion xlist3ACF O To kAutocorrelacion ylist3ACF 0 To kAutocorrelacion For contadordedatos 0 To kAutocorrelacion xlistACF contadordedatos contadordedatos xlist2ACF contadordedatos contadordedatos xlist3ACF contadordedatos contadordedatos ylistACF contadordedatos Rho contadordedatos ylist2ACF contadordedatos valordebanda ylist3ACF contadordedatos valordebanda Next contadordedatos se inserta en la hoja un nuevo gr fico que se almacena en la variable mychartACF Sheets 1 Shapes AddChart Select Set mychartACF Sheets 1 ChartObjects 1 Chart c digo para ingresarle las series de datos al nuevo gr fico insertarle el t tulo y darle el formato requerido With mychartACF Axes xICategory Select ChartType xIColumnClustered SeriesCollection NewSeries SeriesCollection 1 XValues xlistACF SeriesCollection 1 Values ylistACF SeriesCollection NewSeries La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA SeriesCollection 2 XValues xlist2ACF SeriesCollection 2 Values ylist2ACF SeriesCollection NewSeries SeriesCollection 3 XValues
151. tico extramuestral r Yr Fra Yr s 1 r Y r Yr r X yr 1 x fr Si pertenece a la estaci n i sima YT 1 5 Yi Pra Tr ACI La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA Series a las Nombre que aplica Estructura Suavizamiento exponencial Tipo 3 Variable lineal de Holt Suavizamiento exponencial de Tipo 4 Variable Holt Winters Consideraciones Pron stico muestral Pron stico extramuestral 0O lt x lt 1 0O lt y lt 1 f x ye 1 00 a 2 A FE Peri Te Pt r Tr paT BO v T e t 0 et 1 BD 0 0O lt x lt 1 0O lt y lt 1 0 lt 8 lt 1 f x ye S t 1 100 7 1 Br t 1 BO y To Tor elt 1 EHO Slys f A Alf s 1 T 2S Si pertenece a la estaci n Si pertenece a la estaci n i i sima sima Desa e AOAO Pry r PL T f 0 B D 0 SO yi La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la EIA 1 3 4 Medici n del error en el pron stico Para determinar cu l t cnica de pron stico es la mejor para usarse se usan diferentes medidas del error en los pron sticos Entre las medidas de evaluaci n de los errores m s usadas se encuentran e Desviaci n absoluta media MAD La desviaci n absoluta media MAD mide la precisi n de un pron stico mediante el promedio de los valo
152. usiva responsabilidad de los autores y no compromete a la EIA If pronosticosmuestrales True Then se eval a si el usuario desea los datos muestrales si es as se hace el ingreso de los datos calculados para muestrales de lo contrario se eliminan las columnas que no se requieren For contadordedatos 1 To nrodatos Sheets 1 Cells contadordedatos 2 1 contadordedatos Sheets 1 Cells contadordedatos 2 2 datosYt contadordedatos If pronosticosYt contadordedatos 1000000 Then Sheets 1 Cells contadordedatos 2 3 Else Sheets 1 Cells contadordedatos 2 3 pronosticosYt contadordedatos End If If errort contadordedatos 1000000 Then Sheets 1 Cells contadordedatos 2 4 Else Sheets 1 Cells contadordedatos 2 4 errort contadordedatos End If Next contadordedatos Sheets 1 Range Cells 3 2 Cells contadordedatos 2 4 Select Selection NumberFormat 0 0000 Sheets 1 Cells 1 15 Select C digo para graficar Datos vs Pron sticos La informaci n presentada en este documento es de exclusiva responsabilidad de los autores y no compromete a la ElA se redimensionan las variables que almacenan los vectores listas con los datos obtenidos y luego se cargan ReDim xlist 1 To nrodatos nropronosticosextra ylist 1 To nrodatos nropronosticosextra xlist2 1 To nrodatos nropronosticosextra ylist2 1 To nrodatos nropronosticosextra For contadordedatos 1 To nrodatos nro

Complemento en Excel® 2010 para el Pronóstico No Paramétrico

Contents

Download Pdf Manuals

Related Search

Related Contents

Complemento en Excel&reg; 2010 para el Pron&oacute;stico No Param&eacute;trico

Contents

Download Pdf Manuals

Related Search

Related Contents

Complemento en Excel® 2010 para el Pronóstico No Paramétrico