Cómo utilizar el código VBA para implementar estadísticas de datos

Haga clic en la imagen para ver la animación. Lo que quieres es lo siguiente.

¿Sub? text()

¿Atenuado? I%,? j%

¿Para qué? ¿I? =?1?¿Adónde ir? ¿Tres configuraciones

? ¿s? =?Hoja Activa. ChartObjects.Add((i?-?1)?*?300,?100,?300,?150)

Gráfico del sur. ¿Tipo de gráfico? =?xlColumnClustered

Gráfico Sur.SetSourceData? Fuente:=Hoja1. Range(Sheet1.Cell(2,1),?Sheet1.Cell(5,i?+?1)),?PlotBy:=xlColumns

Gráfico del Mar de China Meridional. ¿Ubicación? Donde:=xlLocationAsObject,? Nombre:="Hoja1 "

Gráfico Sur.HasDataTable? =?Verdadero

¿Y si? ¿I? >? 1?Entonces

¿Para qué? j? =?1?¿Adónde ir? ¿I? -?1

Gráfico Sur.SeriesCollection(1). Escoger

Seleccionar. ¿Eliminar

y

finalizar? Si

Entonces

¿Finalizar? Submarino