Rolling Average Table A continuación veremos un programa en Excel VBA que crea una tabla media móvil. Coloque un botón de comando en su hoja de cálculo y agregue la línea de código siguiente: Range (quotB3quot).Value WorksheetFunction. RandBetween (0, 100) Esta línea de código introduce un número aleatorio entre 0 y 100 en la celda B3. Queremos que Excel VBA tome el nuevo valor de stock y lo coloque en la primera posición de la tabla media móvil. Todos los demás valores deben moverse hacia abajo en un lugar y el último valor debe suprimirse. Crear un evento de cambio de hoja de cálculo. El código agregado al evento de cambio de hoja de cálculo será ejecutado por Excel VBA cuando cambie una celda en una hoja de cálculo. 2. Haga doble clic en Sheet1 (Sheet1) en el Explorador de proyectos. 3. Seleccione Hoja de trabajo en la lista desplegable de la izquierda. Seleccione Cambiar en la lista desplegable derecha. Agregue las siguientes líneas de código al evento de cambio de hoja de cálculo: 4. Declare una variable llamada newvalue del tipo Integer y dos rangos (firstfourvalues y lastfourvalues). Dim newvalue As Integer. Firstfourvalues As Range, lastfourvalues As Range 5. El evento de cambio de hoja de trabajo escucha todos los cambios en Sheet1. Sólo queremos que Excel VBA haga algo si algo cambia en la celda B3. Para ello, añada la siguiente línea de código: If Target. Address quotB3quot Then 6. Inicializamos newvalue con el valor de la celda B3, firstfourvalues con Range (quotD3: D6quot) y lastfourvalues con Range (quotD4: D7quot). Newvalue Rango (quotB3quot).Value Set firstfourvalues Rango (quotD3: D6quot) Set lastfourvalues Rango (quotD4: D7quot) 7. Ahora viene el simple truco. Queremos actualizar la tabla de promedio móvil. Puede conseguirlo reemplazando los cuatro últimos valores con los primeros cuatro valores de la tabla y colocando el nuevo valor de stock en la primera posición. Lastfourvalues. Value firstfourvalues. Value Range (quotD3quot).Value newvalue 8. No olvide cerrar la sentencia if. 9. Finalmente, ingrese la fórmula PROMEDIO (D3: D7) en la celda D8. 10. Pruebe el programa haciendo clic en el botón de comando. Promedio móvil Este ejemplo le enseña cómo calcular el promedio móvil de una serie temporal en Excel. Una gran ventaja se utiliza para suavizar las irregularidades (picos y valles) para reconocer fácilmente las tendencias. 1. En primer lugar, echemos un vistazo a nuestra serie de tiempo. 2. En la ficha Datos, haga clic en Análisis de datos. Nota: no puede encontrar el botón Análisis de datos Haga clic aquí para cargar el complemento Herramientas de análisis. 3. Seleccione Media móvil y haga clic en Aceptar. 4. Haga clic en el cuadro Rango de entrada y seleccione el rango B2: M2. 5. Haga clic en el cuadro Interval y escriba 6. 6. Haga clic en el cuadro Rango de salida y seleccione la celda B3. 8. Trazar un gráfico de estos valores. Explicación: dado que establecemos el intervalo en 6, el promedio móvil es el promedio de los 5 puntos de datos anteriores y el punto de datos actual. Como resultado, los picos y valles se suavizan. El gráfico muestra una tendencia creciente. Excel no puede calcular el promedio móvil para los primeros 5 puntos de datos porque no hay suficientes puntos de datos anteriores. 9. Repita los pasos 2 a 8 para el intervalo 2 y el intervalo 4. Conclusión: Cuanto mayor sea el intervalo, más se suavizarán los picos y los valles. Cuanto más pequeño es el intervalo, más cerca están las medias móviles de los puntos de datos reales. ¿Te gusta este sitio web gratis? Comparte esta página en GoogleComo calcular los promedios móviles en Excel Excel Data Analysis For Dummies, 2nd Edition El comando Data Analysis proporciona una herramienta para calcular promedios móviles y exponencialmente suavizados en Excel. Supongamos, por razones ilustrativas, que usted ha recopilado información diaria sobre la temperatura. Desea calcular el promedio móvil de tres días 8212 el promedio de los últimos tres días 8212 como parte de algún pronóstico meteorológico simple. Para calcular las medias móviles para este conjunto de datos, siga estos pasos. Para calcular una media móvil, primero haga clic en el botón de comando Data Analysis (Análisis de datos) tab8217s. Cuando Excel muestra el cuadro de diálogo Análisis de datos, seleccione el elemento Promedio móvil de la lista y, a continuación, haga clic en Aceptar. Excel muestra el cuadro de diálogo Promedio móvil. Identifique los datos que desea utilizar para calcular el promedio móvil. Haga clic en el cuadro de texto Intervalo de entrada del cuadro de diálogo Promedio móvil. A continuación, identifique el intervalo de entrada, ya sea escribiendo una dirección de rango de hoja de cálculo o utilizando el mouse para seleccionar el rango de hoja de cálculo. Su referencia de rango debe usar direcciones de celdas absolutas. Una dirección de celda absoluta precede la letra de la columna y el número de fila con signos, como en A1: A10. Si la primera celda de su rango de entrada incluye una etiqueta de texto para identificar o describir sus datos, active la casilla de verificación Etiquetas en primera fila. En el cuadro de texto Intervalo, indique a Excel cuántos valores deben incluirse en el cálculo del promedio móvil. Puede calcular un promedio móvil usando cualquier número de valores. De forma predeterminada, Excel utiliza los tres valores más recientes para calcular el promedio móvil. Para especificar que se utilice otro número de valores para calcular el promedio móvil, ingrese ese valor en el cuadro de texto Intervalo. Dígale a Excel dónde colocar los datos del promedio móvil. Utilice el cuadro de texto Rango de salida para identificar el intervalo de hoja de cálculo en el que desea colocar los datos del promedio móvil. En el ejemplo de la hoja de cálculo, los datos del promedio móvil se han colocado en el rango B2 de la hoja de cálculo: B10. (Opcional) Especifique si desea un gráfico. Si desea un gráfico que trace la información del promedio móvil, seleccione la casilla de verificación Salida del gráfico. (Opcional) Indique si desea calcular la información de error estándar. Si desea calcular errores estándar para los datos, seleccione la casilla de verificación Estándar Errores. Excel coloca valores de error estándar junto a los valores de media móvil. (La información de error estándar pasa a C2: C10.) Una vez que haya terminado de especificar qué información de promedio móvil desea calcular y dónde desea colocarla, haga clic en Aceptar. Excel calcula la información del promedio móvil. Nota: Si Excel doesn8217t tiene suficiente información para calcular un promedio móvil para un error estándar, coloca el mensaje de error en la celda. Usted puede ver varias células que muestran este mensaje de error como un value. Here es un código que debe ser útil para aquellos que utilizan análisis técnicos en el comercio y desea probar estrategias en Excel. Calcula la media móvil simple, linealmente ponderada y exponencial. Además, presentaré y explicaré los pasos para crear el formulario y el código VBA. Inserte un UserForm 8211 Nombre: MAForm Agregar cuatro etiquetas de los controles de la caja de herramientas 8211 Subtítulos según la pantalla de impresión anterior Agregue un ComboBox para la selección del tipo de media móvil. Se nombró comboTypeMA Añadir dos controles RefEdit para el rango de entrada y el rango de salida. Agregar un cuadro de texto para seleccionar el período de media móvil. Añada dos botones: Nombre: botónSubmit, Caption: Submit y Name: buttonCancel, Caption: Cancel Para generar la lista desplegable para la selección de tipo MA y cargar el formulario de usuario, Se insertará con el siguiente código. Los elementos de ComboBox se rellenarán con los tipos de promedios móviles y se cargará el formulario de usuario. Option Explicit Sub loadMAForm () Con MAFormboTypeMA. RowSource. AddItem Simple. AddItem Ponderado. AddItem Final exponencial con MAForm. Show End Sub A continuación se muestra el código atribuido al botón Enviar. Private Sub buttonSubmitClick () Dim inputRange, outputRange As Range El inputRange contendrá la serie de precios utilizada para calcular las MA y el outputRange se rellenará con los valores de las medias móviles. Dim inputPeriod As Integer Se declara el periodo de media móvil. Dim inputAddress, outputAddress As String Los rangos de entrada y salida se declaran como cadena. Si comboTypeMA. Value ltgt Exponential y comboTypeMA. Value ltgt Simple y comboTypeMA. Value ltgt ponderado True Then MsgBox Seleccione un tipo de media móvil de la lista. RefInputRange. SetFocus Exit Sub Esta parte del procedimiento impone las primeras restricciones con respecto a los datos enviados. Si el tipo de media móvil no está contenido en la lista desplegable, el procedimiento no pasará al siguiente paso y se solicitará al usuario que lo seleccione de nuevo. ElseIf RefInputRange. Value Then MsgBox Seleccione el rango de entrada. RefInputRange. SetFocus Salir Sub ElseIf RefOutputRange. Value Then MsgBox Seleccione el rango de salida. RefOutputRange. SetFocus Exit Sub ElseIf RefInputPeriod. Value Then MsgBox Por favor, seleccione el período de media móvil. RefInputPeriod. SetFocus Salir Sub ElseIf Not IsNumeric (RefInputPeriod. Value) Then MsgBox El periodo de media móvil debe ser un número. RefInputPeriod. SetFocus Exit Sub End Si se crean otras restricciones. El rango de entrada, el rango de salida y el período de entrada no deben estar en blanco. Además, el período de media móvil debe ser un número. InputAddress RefInputRange. Value Set inputRange Rango (inputAddress) outputAddress RefOutputRange. Value Conjunto outputRange Range (outputAddress) inputPeriod RefInputPeriod. Value Los argumentos para los rangos inputRange y outputRange serán inputAddress y outputAddress declarados como cadenas. Si inputRange. Columns. Count ltgt 1 Entonces MsgBox El rango de entrada puede tener sólo una columna. RefInputRange. SetFocus Exit Sub El inputRange debe contener sólo una columna. ElseIf inputRange. Rows. Count ltgt outputRange. Rows. Count Then MsgBox El rango de salida tiene un número diferente de filas que el rango de entrada. RefInputRange. SetFocus Exit Sub End If El inputRange y outputRange deben tener un número igual de filas. Dim RowCount As Entero RowCount inputRange. Rows. Count Dim cRow As Entero ReDim inputarray (1 Para RowCount) Para cRow 1 Para RowCount inputarray (cRow) inputRange. Cells (cRow, 1).Valor A continuación cRow array de entrada se declara como array e it8217s elementos Corresponden a los valores de cada fila del rango de entrada. Si inputPeriod gt RowCount Then MsgBox Número de observaciones seleccionadas es amplificador amp RowCount y el período es amplificador amp ampPeriod. El rango de entrada debe tener una cantidad mayor o igual de elementos que el período seleccionado. RefInputRange. SetFocus Exit Sub End Si se agrega otra restricción 8211 El rango de entrada debe tener una cantidad mayor o igual de elementos que el período. Si inputPeriod lt 0 Entonces MsgBox El periodo de media móvil debe ser mayor que 0. RefInputPeriod. SetFocus Exit Sub End If El periodo de media móvil debe ser mayor que cero. ReDim outputarray (inputPeriod To RowCount) As Variant También se determinan las dimensiones del array de outputarray. El límite inferior de la matriz es el valor inputPeriod y el límite superior es el valor de RowCount (el número de elementos en el inputRange). Debajo de la parte del procedimiento calculó la media móvil simple, si la selección para comboTypeMA es simple. SMA ----------------------------------------- Si comboTypeMA. Value Simple Then Dim i , J As Integer Dim temp As Doble Para i inputPeriod Para RowCount temp 0 Para j (i - (inputPeriod - 1)) Para i temp temp (j) Next j outputarray (i) temp / inputPeriod outputRange. Cells (i, 1 ).Value outputarray (i) Siguiente i outputRange. Cells (0, 1).Value SMA (amp inputPeriod amp) Básicamente, el procedimiento calcula el promedio móvil de los últimos números x (x igual al inputPeriod), empezando por el elemento Del array de entrada igual a inputPeriod. A continuación se muestra un ejemplo simplificado, que muestra cada paso del procedimiento. En este ejemplo, hay cuatro números (no01, no02, no03 y no04) de la fila 1 a la fila 4 y el promedio móvil es 3. Después de calcular cada nueva media móvil, cada celda de la salidaRange tomará el valor de la Matriz de salida Y después de calcular los promedios móviles, en la celda sobre outputRange se insertará un título que contenga el tipo y período de media móvil. Esta próxima parte calculará el promedio móvil exponencial. EMA ------------------------------------------ ElseIf comboTypeMA. Value Exponential Then Dim Alpha As Doble alpha 2 / (inputPeriod 1) Para j 1 Para inputPeriod temp temp inputarray (j) Siguiente j outputarray (inputPeriod) temp / inputPeriod Primero se determina el valor de alpha. Debido a que en el cálculo, el valor de la EMA se basa en la EMA anterior, la primera será la media móvil simple. Para i inputPeriod 1 Para RowCount outputarray (i) outputarray (i - 1) alfa (inputarray (i) - outputarray (i - 1)) Next i Comenzando con la segunda media móvil, se calcularán basándose en la fórmula anterior: EMA anterior más alfa multiplicado por la diferencia entre el número actual del array de entrada y el valor EMA anterior. Para i inputPeriod Para RowCount outputRange. Cells (i, 1).Value outputarray (i) Siguiente i outputRange. Cells (0, 1).Value EMA (amp inputPeriod amp) Al igual que el código para SMA, el outputarray se rellenará y La celda por encima de la matriz de salida representará el tipo y el período de la media móvil. A continuación se muestra el código para calcular la media móvil ponderada. WMA ------------------------------------------ ElseIf comboTypeMA. Value Weighted Then Dim Temp2 As Integer Para i inputPeriod Para RowCount temp 0 temp2 0 Para j (i - (inputPeriod - 1)) Para i temp temp (j - i inputPeriod) temp2 temp2 (j - i inputPeriod) Next j outputarray (i ) (1).Value WMA (amp inputPeriod amp) End If La siguiente tabla contiene los pasos para calcular cada variable utilizada para El cálculo de WMA. Al igual que en el ejemplo anterior, en éste hay para los números en el inputRange. Y el período de entrada es 3. A continuación se muestra el código final del procedimiento, que descarga el formulario de usuario. Descargar MAForm End Sub El siguiente procedimiento es para el botón Cancelar. Se agregará en el mismo módulo. Private Sub buttonCancelClick () Descargar MAForm End Sub33. Extremidades de Excel - promedios móviles Enviado por Nick el 9 de marzo de 2009 - 09:41 Este ejemplo le muestra cómo calcular promedios móviles. Pueden ser útiles cuando tienes un precio de la acción, por ejemplo, que cambia todos los días, y quieres calcular el promedio de los últimos X días. En la celda F3, ingresamos el número de días que queremos calcular el promedio de. La celda F4 contiene la fórmula: AVERAGE (OFFSET (C4, COUNT (C: C) - F3,0, F3)) Deja que se descomponga para ver lo que está haciendo. En primer lugar, la función OFFSET devuelve un rango. - ¿Cómo nos aseguramos de que este rango sea el correcto? - Queremos que este rango sea las últimas 3 celdas de la tabla. OFFSET toma los siguientes argumentos: reference, rows, cols, height, width Entonces, decimos a la función OFFSET que cree un nuevo rango con la celda inicial siendo 10 celdas debajo de C4 (el primer precio de la acción) y continuando para 3 celdas abajo. ¿Cómo se sabe para iniciar 10 células hacia abajo - entra COUNT (C: C) - F3 como la referencia COUNT (C: C) devuelve la cantidad de células pobladas en la columna C. en este caso 13. Restar 3 cos que queremos El último 3. entonces lo envolveremos con la función MEDIA. Vídeo de entrenamiento sobre los promedios móviles:
No comments:
Post a Comment