300 Ejemplos

Tabla de promedios móviles

Rolling Average Table

A continuación veremos un programa en Excel VBA eso crea un tabla de promedio móvil . Coloque un Botón de comando en su hoja de trabajo y agregue la siguiente línea de código:





Rango ('B3'). Valor = WorksheetFunction.RandBetween (0, 100)

Esta línea de código ingresa un número aleatorio entre 0 y 100 en la celda B3. Queremos que Excel VBA tome el nuevo valor de las acciones y lo coloque en la primera posición de la tabla de promedio móvil. Todos los demás valores deben bajar un lugar y el último valor debe eliminarse.

Tabla de promedio móvil en Excel VBA





Tabla de promedio móvil en Excel VBA

Cree un evento de cambio de hoja de trabajo. Excel VBA ejecutará el código agregado al evento de cambio de hoja de trabajo cuando cambie una celda en una hoja de trabajo.



cómo limitar sig figs en Excel

1. Abra el Editor de Visual Basic .

2. Haga doble clic en Sheet1 (Sheet1) en el Explorador de proyectos.

3. Elija Hoja de trabajo en la lista desplegable de la izquierda. Elija Cambiar en la lista desplegable de la derecha.

Evento de cambio de hoja de trabajo en Excel VBA

Agregue las siguientes líneas de código al evento de cambio de la hoja de trabajo:

4. Declare una variable llamada newvalue de tipo Integer y dos rangos (firstfourvalues ​​y lastfourvalues).

Ningunonuevo valorComo Entero, primeros cuatro valoresComoRango, últimos cuatro valoresComoDistancia

5. El evento de cambio de hoja de trabajo escucha todos los cambios en Sheet1. Solo queremos que Excel VBA haga algo si algo cambia en la celda B3. Para lograr esto, agregue la siguiente línea de código:

SiTarget.Address = '$ B $ 3'Luego

6. Inicializamos newvalue con el valor de la celda B3, firstfourvalues ​​con Range ('D3: D6') y lastfourvalues ​​con Range ('D4: D7').

newvalue = Rango ('B3'). Valor
Colocarfirstfourvalues ​​= Rango ('D3: D6')
Colocarlastfourvalues ​​= Rango ('D4: D7')

7. Ahora viene el truco simple. Queremos actualizar la tabla de promedios móviles. Puede lograr esto reemplazando los últimos cuatro valores con los primeros cuatro valores de la tabla y colocando el nuevo valor de stock en la primera posición.

¿Cómo agrupo hojas de trabajo en Excel?
lastfourvalues.Value = firstfourvalues.Value
Rango ('D3'). Valor = nuevovalor

8. No olvide cerrar la declaración if.

Fin si

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.

6/6 ¡Completado! Aprenda mucho más sobre eventos>
Ir al capítulo siguiente: Formación



^