Excel: gráfico de 12 meses deslizante

Question

Debo crear un gráfico sobre un periodo de 12 meses deslizante, es decir, estamos en marzo, por lo que los datos deben ir de abril de 2004 a marzo de 2005, y el próximo mes de mayo de 2004 a abril de 2005, etc.
¡Ayúdame! :)
¡Gracias!

Armojax · Answer

Hola tuany,

Solo una pregunta: ¿realmente tus meses se deslizan (primer ejemplo a continuación: añadimos una nueva columna cada mes), o siempre trabajas con los mismos 12 meses (marzo de 2005 ocupa el lugar de marzo de 2004)?

 Meses 02 03 04 05 06 07 08 09 10 11 12 |01 02 03 Datos 5 6 7 2 5 6 1 3 5 7 2 | 6 3 1 <----------------------------------|---------> 2004 | 2005 O bien Mes 01 02 03 04 05 06 07 08 09 10 11 12 Datos 6 3 1 7 2 5 6 1 3 5 7 2 <--------> <--------------------------------> 2005 2004

Armojax · Answer

Hola tuany,

¿Tu PB sigue vigente? En caso de que sí, aquí tienes algunos elementos. Si no respondes, supongo que tus datos realmente están deslizándose, como en el caso 1 de arriba.
En mi ejemplo, supongo que los nombres (o números) de los meses que sirven como etiquetas en el eje horizontal están en la fila 1, y los datos correspondientes en la fila 2.
Al cambiar de mes, el gráfico debe utilizar nuevas columnas para deslizarse. En las macros a continuación, ColDeb es la nueva columna de inicio, ColFin la nueva columna de fin. Deberías ser capaz de calcularlas mediante la macro de lanzamiento.
Presento 2 casos:
- el gráfico se encuentra en una hoja gráfica diferente a la hoja de datos (macro Glisse_1)
- el gráfico se encuentra en la misma hoja de cálculo (macro Glisse_2).
(En la macro de lanzamiento, llama a la macro correcta).

Adáptalo a tu caso personal.

 Sub Lancement() Dim ColDeb As Integer, ColFin As Integer ColDeb = 2 ' nueva columna de inicio ColFin = 13 ' nueva columna de fin Call Glisse(ColDeb, ColFin) End Sub Sub Glisse_1(ColDeb, ColFin) ' gráfico en hoja gráfica separada With Charts("Graph1") .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin End With End Sub Sub Glisse_2(ColDeb, ColFin) ' gráfico en la misma hoja de cálculo Sheets("Feuil1").Activate ActiveSheet.ChartObjects("Graphique 1").Activate With ActiveChart .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin End With End Sub

tuany · Answer

Mes datos son del tipo

Mes 02 03 04 05 06 07 08 09 10 11 12 |01 02 03
Datos 1 2 3 4 5 6 7 8 9 10 11 |12 13 14
<-------------------------------------------|--------->
2004 | 2005
es decir, una hoja histórica que agrupa los datos. Quería saber en qué caso podemos utilizar una función de Excel, es en caso de que alguien más que yo desee hacer una modificación.
¡Muchas gracias por tu macro! :)

Excel: gráfico de 12 meses deslizante

3 respuestas

Copiar/ pegar texto escaneado formato jpeg

Mensaje de error al iniciar

Pantalla negra en pc hp

El ventilador del gabinete no funciona

Identificador y contraseña

Defender ¿cómo borrar los archivos de cuarentena?

Visibilidad de iconos de la barra de tareas

Problema de texturas en enshrouded

Activación del programa esu para actualizaciones en windows 10

Quitar la mancha de marcador del monitor de pc