Questione : Generare le tabelle di Excel sfalsando la serie

genchrts.jpg (91 Kb) (tipo di lima particolari) 

gencharts

Pls vede il collegamento.

Provando a generare una macro che genererà automaticamente le tabelle ed allinearle su (come collegamento) per esempio a partire da dire l'immagine riportata G13, generando le tabelle, allineante lei in su fino a che non raggiunga una cellula vuota.
 (2 o 3 tabelle senso attraverso ed allora andante giù - questo potrebbe raggiungere 50 tabelle)

Risposta : Generare le tabelle di Excel sfalsando la serie

Provare questa macro

Sub il arraychart ()
    Regolare lo Sr = la gamma (“G13„)
    Per i = Sr. Fila a Sr. Estremità (xlDown). Fila
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    Fonte di ActiveChart.SetSourceData: =Sheets (“Sheet1„). Gamma (Sr. Contrappeso (i - Sr. Fila, 0), Sr. Contrappeso (i - Sr. Fila, 3)), PlotBy: =xlRows
    ActiveChart.Location dove: =xlLocationAsObject, nome: = " Sheet1 "
    ActiveChart.Parent.Top = Int ((i - Sr. )/2) * 200 + 300 di fila
    ActiveChart.Parent.Left = ((i - 1) MOD 2) * 300 + 100
    ActiveChart.Parent.Width = 300
    ActiveChart.Parent.Height = 200
    Dopo i
    Gamma (“G13„). Prescelto
Sommergibile dell'estremità