Condividi:        

grafico a scalini xlsx

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

grafico a scalini xlsx

Postdi wallace&gromit » 20/03/15 18:38

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?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Sponsor
 

Re: grafico a scalini xlsx

Postdi wallace&gromit » 21/03/15 12:16

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.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: grafico a scalini xlsx

Postdi wallace&gromit » 21/03/15 18:42

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?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: grafico a scalini xlsx

Postdi wallace&gromit » 22/03/15 14:11

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?



:lol: :lol: :lol: 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!
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: grafico a scalini xlsx

Postdi wallace&gromit » 22/03/15 21:32

ed ecco il file finale, con l'aggiunta di barre verticali che evidenziano i valori
http://www.filedropper.com/grafscalini_1
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: grafico a scalini xlsx

Postdi Anthony47 » 24/03/15 01:38

E questo e' un grafico a scalini?
Immagine
image hosting

Mi aspettavo qualcosa di piu' artistico; ad esempio
Immagine
url immagine
:lol: :lol:

Grazie per aver condiviso la macro!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: grafico a scalini xlsx

Postdi wallace&gromit » 24/03/15 08:04

Anthony47 ha scritto:Mi aspettavo qualcosa di piu' artistico

:lol: :lol: :lol:
ok il prossimo obiettivo è il grafico a scalini a chiocciola!
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "grafico a scalini xlsx":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti