grafico a scalini xlsx

[wallace&gromit]

Ciao,
vorrei fare un grafico a scalini come rappresentato in questo sito (in particolare mi interessa il secondo metodo):
http://peltiertech.com/Excel/ChartsHowTo/StepChart.html
ma ho ottenuto questo:
http://www.filedropper.com/grafscalini
i punti sono corretti, ma la linea tracciata nel mio grafico non segue la sequenza giusta. Cosa sbaglio?

[wallace&gromit]

ho capito l'inghippo: la soluzione proposta da Peltier funziona solo con grafici a linea e scala tempo dell'asse x, due fattori che non collimano con il mio set di dati, mi sa che dovrò arrendermi allo sdoppiamento dei dati prima della rappresentazione grafica, come facevo finora.

[wallace&gromit]

continuo il mio monologo in attesa di qualche illuminazione.
Ho provato a creare la mia matrice da inserire nell'origine del grafico.
inserendo manualmente i valori ripetuti a coppie, nel mio esempio

Codice: Seleziona tutto

{0,0,5,5,6,6,8,8}

per le x e

Codice: Seleziona tutto

{1,2,2,4,4,3,3,5}

per le y,
ottengo proprio ciò che volevo: un grafico a dispersione x,y ma a gradini.
Ora volevo ottenere queste matrici senza dovere inserirle manualmente e ho creato una funzione:

Codice: Seleziona tutto

Dim part As Range

Public Function scaliniX(part)
partR = part.Row
partC = part.Column
seq = "{"
For i = 0 To 3
seq = seq & Cells(partR + i, partC).Value & ","
seq = seq & Cells(partR + i, partC).Value & ","
Next i
scaliniX = Mid(seq, 1, Len(seq) - 1) & "}"


End Function


Se inserita in una cella del foglio di lavoro "= scaliniX(A2)", questa funzione crea una stringa con esattamente lo stesso contenuto di quanto inserito manualmente nella prova precedente. Invece, inserita nei dati origine del grafico, excel mi da un messaggio di errore e non capisco perchè; qualche idea?

[wallace&gromit]

AH PROPRIO DEI BEGLI AMICI!!!
mi avete lasciato qui da solo a sbattere con il mio problema senza uno straccio di aiuto!

Ma io ce l'ho fatta lo stesso, non pensavate eh?



scherzo ovviamente, in realtà sono molto fiero di me stesso, ed eccovi qui la soluzione, con questa macro scrivo direttamente via VBA la serie che il mio grafico deve usare.
Devo anticipare alcune istruzioni "parziali" e posticiparne altre oltre il ciclo for...next in modo da avere due range asimmetrici

Codice: Seleziona tutto

Sub scaliniX2()
Set Ws1 = Sheets("nuovo")
UR = Ws1.Range("A" & Rows.Count).End(xlUp).Row

seq = "{" & Cells(2, 1).Value & ","
seqy = "{" & Cells(2, 2).Value & ","
seqy = seqy & Cells(2, 2).Value & ","

For i = 3 To UR - 1
seq = seq & Cells(i, 1).Value & ","
seq = seq & Cells(i, 1).Value & ","
seqy = seqy & Cells(i, 2).Value & ","
seqy = seqy & Cells(i, 2).Value & ","

Next i

seq = seq & Cells(UR, 1).Value & ","
seqcompl = seq & Cells(UR, 1).Value & "}"
seqycompl = seqy & Cells(UR, 2).Value & "}"

ActiveSheet.ChartObjects(1).Activate  'si attiva il grafico
ActiveChart.ChartArea.Select  'si seleziona l'area grafico
ActiveChart.SeriesCollection(1).XValues = seqcompl
ActiveChart.SeriesCollection(1).Values = seqycompl

End Sub


Il titolo del post dovrebbe però essere ora: grafico a scalini xlsm!

[wallace&gromit]

ed ecco il file finale, con l'aggiunta di barre verticali che evidenziano i valori
http://www.filedropper.com/grafscalini_1

[Anthony47]

E questo e' un grafico a scalini?

image hosting

Mi aspettavo qualcosa di piu' artistico; ad esempio

url immagine


Grazie per aver condiviso la macro!

[wallace&gromit]

Mi aspettavo qualcosa di piu' artistico

ok il prossimo obiettivo è il grafico a scalini a chiocciola!