Grafico scorrevole su una lunga serie di dati biennali

Grafico scorrevole su una lunga serie di dati biennali

Quando, nei corsi magari avanzati o nei più sacri testi su Excel, si parla dei grafici – ci avete fatto caso? - regolarmente si cita la solita miniserie di dati di vendite trimestrali. Sì ma cosa accade se i dati da graficizzare sono molto numerosi? Il modello qui proposto risolve questo annoso problema, mediante artifici e macro, direi proprio originali. Essendo anche abbastanza auto esplicativo converrà subito scaricarlo dal link seguente:

http://www.giannigiaccaglini.it/download/GraficoScorrevole.xlsmanche

oltretutto il lavoro si presenta abbastanza auto-esplicativo.

Supponiamo di voler graficizzare i dati relativi a un lungo periodo, diciamo un arco di tempo biennale, di cui riporto solo la parte iniziale posta nel foglio di lavoro d’apertura:

I mesi si estendono al Dicembre 2008. Subito sotto si noterà un grafico “umanamente” limitato a un trimestre. Se avessimo previsto l’intera serie avremmo visto un pasticciaccio brutto. Tutti subito comprendono che il pulsante, lì accanto, etichettato Scorri (ciclicamente) agisce come promette e infatti premendolo si vedranno i vari trimestri, dal primo del 2007 all’ultimo del 2008 per tornare al primo del 2007.

Curiosi come siamo, andiamo a vedere, con Alt+F11 la macro attaccata al pulsante (classico di Excel), con relativa Sub richiamata:

Sub ScorriTrimestre()

  If Range("DatiTrim").Column = 23 Then

    Range("B3:D10").Name = "DatiTrim"

  Else

    Range("DatiTrim").Offset(0, 3).Name = "DatiTrim"

  End If

  CambiaGrafico

End Sub

Sub CambiaGrafico()

  ActiveSheet.ChartObjects("Grafico 3").Activate

  ActiveChart.SetSourceData Source:= _

  Union(Range("Articoli"), Range("DatiTrim"))

  ActiveCell.Select

End Sub

Commenti essenziali. Il trucco base sta nel fatidico nome “DatiTrim” riassegnato dinamicamente: alla zona B3:D10 (primo trimestre) quando il grafico attuale punta all’ultimo del 2008, ossia se la colonna di Range(“DatiTrim”) corrente è pari a 23. Altrimenti? Beh la rassegnazione del nome “DatiTrim” con .Offset(0, 3) ecc. è affidata all’esegesi fai-da-te. Idem per l’istruzione centrale della routine CambiaGrafico che attinge la sorgente dati (SetSoruceData) dalla Union dell’intervallo pre-denominato “Articoli”, ovvero l’intervallo A3:A10 del modello, coi contenuti da  “Zona” a “Mondo”, con l’intervallo mobile “DatiTrim”.

Altre macro, studiatevele e divertitevi

Per pigrizia, ma anche per non tediare i più bravi e riflessivi, a questo punto mi limito a descrivere le facili operazioni esplorative:

Ø  Un clic sulla shape Vai al grande grafico (una shape “telaio”, in verità) ci porta al foglio per grafico, più eclatante di quello incorporato nel foglio di lavoro (notare che esso riporta in basso anche la tabella dati, per autonomia e maggior chiarezza);

Ø  In esso si notano pulsanti etichettati Avanti, Indietro e Torna al Foglio1, di cui i primi due, mediante macro un po’ diverse da quella testé commentata, lavorano in modo non ciclico, ma scorrendo di mese in mese, nei due sensi;

Ø  L’hyperlink locale Vai a Riepil. Trim. porta invece alla parte bassa del Foglio1, che si presenta come qui riportato.

Il grafico subito sottostante è più ampio ma sempre “umano”. Esso riporta i dati riepilogatici degli otto trimestri del biennio e stavolta non sono in ballo macro, bensì opportune ma facili funzioni =SOMMA() che tutti potranno controllare.

posted on mercoledì 20 maggio 2009 12.50