Condividi:        

EXCEl Asse delle x di un grafico

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEl Asse delle x di un grafico

Postdi Pana » 19/01/10 13:11

Ciao a tutti!

Ho un lunghissimo foglio di lavoro excel, con una serie di date a cui corrispondono dei numeri. Vorrei farne un grafico. Il problema e' che non sono disposti in due lunghe colonne, ma bensi' in tanti spezzoni di colonna. Per intenderci, non sono cosi':

data1 numero1
data2 numero2
data3 numero3
data4 numero4
data5 numero5
data6 numero6
... ...
ma bensi' cosi':

data1 numero1 data4 numero4 .... ....
data2 numero2 data5 numero5
data3 numero3 data6 numero6

Ovviamente basterebbe metterli in colonna usando copia incolla. Ma si tratta di migliaia di dati e mi prenderebbe tre giorni.

Nessuno di voi sa se c'e' un modo per far capire ad excel che l'asse delle x va, per esempio, dalla prime tre righe della prima colonna e poi riprende nelle successive tre righe della seconda colonna e cosi' via?? e lo stesso per i valori sulle y??

In poche parole, non c'e' un modo di fare un grafico del secondo esempio usando le date sulle x?

Grazie in anticipo per il vostro aiuto.
Pana
Pana
Utente Junior
 
Post: 30
Iscritto il: 20/11/09 22:19

Sponsor
 

Re: EXCEl Asse delle x di un grafico

Postdi Flash30005 » 19/01/10 15:56

Con questa macro dovresti avere tutto ciò che hai nel foglio1 ( a 3 righe) riportato nel foglio2 disposto in colonna (da A2).
Forse bisognerà adattare la macro rispetto alla tua colonna inizio dati io ho considerato Foglio1 (A2) se dovesse essere diversa da questa metterai la lettera corrispondente a una tua colonna dati.
Codice: Seleziona tutto
Sub Incolonna()
righe = Worksheets("Foglio1").Range("A2").CurrentRegion.Rows.Count + 1
Colonne = Worksheets("Foglio1").Range("A2").CurrentRegion.Columns.Count
For CC = 1 To Colonne Step 2
    For RR = righe - 2 To righe
        riga2 = Worksheets("Foglio2").Range("A1").CurrentRegion.Rows.Count + 1
        Worksheets("Foglio1").Range(Cells(RR, CC), Cells(RR, CC + 1)).Copy Destination:=Worksheets("Foglio2").Cells(riga2, 1)
    Next RR
Next CC
End Sub


Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEl Asse delle x di un grafico

Postdi Anthony47 » 19/01/10 15:58

Oltre che con la macro di Flash (vedi sopra), e' abbastanza semplice farsi via formule un elenco lineare di dati, purche' i dati abbiano un andamento regolare; ad esempio, se Data1 e' in A2, Data4 in C2, Data7 in E2, etc:
-su Foglio2, in A2 usi questa formula:
Codice: Seleziona tutto
=SCARTO(Foglio1!A$2;RESTO(RIF.RIGA()-2;3);2*INT((RIF.RIGA()-2)/3))
-copi A2 in B2 e poi A2:B2 verso il basso per quanto serve

Metti in riga1 le intestazioni e fai il grafico su questa serie di dati.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "EXCEl Asse delle x di un grafico":


Chi c’è in linea

Visitano il forum: raimea e 32 ospiti