| | Post: 8 | Registrato il: 17/08/2016
| Utente Junior | Office 2013 | | OFFLINE | |
|
25/10/2022 15:09 | |
Buongiorno a tutti sto cercando di creare una tabella in cui verranno inseriti i dati rilevati dagli errori di un asse rispetto allo zero.
In pratica nella tabella dati vengono inseriti la quota di inizio corsa e di fine corsa dell'asse( è una macchina utensile), quanti step vengono fatti in nella corsa di verifica, quanti millimetri è ogni singolo step e l' errore misurato nei relativi step.
avrei bisogno di creare un grafico automatico che mi dica (in base a quanti step ho selezionato)
l'errore indicato.
allego la tabelle e una bozza fatta a penna del grafico.
Grazie a tutti anticipatamente. |
|
| | Post: 1.020 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Veteran | Excel2019 | | OFFLINE |
|
25/10/2022 17:08 | |
Ciao
Vedi se è quello che ti serve. I dati sono su due assi verticali.
Coi dati forniti non è possibile realizzare un Grafico come da tuo disegno non essendoci valori positivi.
Ciao,
Mario |
| | Post: 9 | Registrato il: 17/08/2016
| Utente Junior | Office 2013 | | OFFLINE | |
|
26/10/2022 10:56 | |
@Marius44 Ciao e grazie per l'aiuto.... ne ho abbozzata una versione funzionante come serve a me... l'unica cosa è che cambiando il numero di step (max 50) non mi varia sul grafico (se li forzo io dai dati del grafico il massimo che riesco a raggingere è 28 step circa) |
| | Post: 1.025 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Veteran | Excel2019 | | OFFLINE |
|
26/10/2022 13:18 | |
Ciao
Le formule inserite nel Foglio("Dati") non consentono (che io sappia) fermarsi nella conta se la cella vuota.
Ho fatto ricorso a VBA ed ho inserito nel Modulo del suddetto Foglio il seguente codice
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A8")) Is Nothing And Target > 0 Then
Dim ass(), ser()
Dim a As Integer
Dim i As Long
a = 1
For i = 2 To 500
If Cells(i, 2) <> "" Then
ReDim Preserve ass(1 To a)
ReDim Preserve ser(1 To a)
ass(a) = Cells(i, 2).Value
ser(a) = Cells(i, 4).Value
a = a + 1
ElseIf Cells(i, 2) = "" Then
Exit For
End If
Next i
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.Axes(xlCategory).Select
.SeriesCollecti0n(1).XValues = Array(ass())
.SeriesCollecti0n(1).Values = Array(ser())
End With
Cells(9, 1).Select
End If
End Sub
Se cambi il numero nella cella A8 il Grafico si adegua, come asse orizzontale ma non come serie dei valori perchè la col.D risulta vuota.
Studiatela un po' e vedi se riesci a cavarci qualcosa di buono.
Ciao,
Mario |
| | Post: 10 | Registrato il: 17/08/2016
| Utente Junior | Office 2013 | | OFFLINE | |
|
26/10/2022 13:32 | |
@Marius44 Guarda così sarebbe perfetta... però si riesce a mettere il tutto sul foglio "grafico" e non su quello dei dati? e poi so che chiedo molto si riesce al posto di 1 2 3 4 5 ecc... a mettere le quote corrispondenti? più o meno come nell'esempio abbozzato che avevo fatto io...
comunque complimenti sei davvero in gamba. |
| | Post: 1.026 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Veteran | Excel2019 | | OFFLINE |
|
26/10/2022 16:47 | |
Ciao
Ti allego il tuo file orinario con il codice inserito.
Come prima, cambiando il dato in A8 ti mostra il Grafico adeguato (rimane sempre la mancanza dei dati relativi all'errore).
Ho messo sul foglio dove sta il Grafico un pulsante per poter tornare indietro (al foglio Dati).
Se vuoi imparare qualcosa (e non dipendere da altri) guarda la differenza dei due codici, quello di prima e l'attuale.
Fai sapere. Ciao,
Mario [Modificato da Marius44 26/10/2022 16:54] |
|
|