Condividi:        

Grafico automatico in excel

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 automatico in excel

Postdi macio66 » 18/06/13 15:23

Ciao a tutti. Ho bisogno del vostro aiuto per capire se è possibile impostare in modo automatico il riconoscimento dei valori X e Y di un grafico su un foglio excel
Dati di origine - Serie:
valori X =Foglio1!$D$2:$D$242
Valori Y =Foglio1!$E$2:$E$242
in quanto i dati che io carico da file txt dalla macro, non hanno mai la stessa quantità
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Sponsor
 

Re: Grafico automatico in excel

Postdi ricky53 » 18/06/13 15:47

Ciao,
tre possibilità:
1. la più semplice ma la meno valida: inserisci un intervallo maggiore compatibile con i dati che scarichi
2. utilizzare una combinazione di formule tipo scarto, conta valori associate a due "Nomi Elenco"
3. scrivere una macro che legga l'ultima riga di fati del tuo intervallo e modifichi l'intervallo dati del grafico

Tu come te la cavi con il VBA visto che utilizzi già una macro?
In caso la questione sarebbe facile da realizzare !
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Grafico automatico in excel

Postdi macio66 » 18/06/13 15:56

Ciao,
Purtoppo con il VBA me la cavo maluccio (sono un autodidatta!!!), quindi non saprei da dove incominciare per realizzarlo
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Re: Grafico automatico in excel

Postdi ricky53 » 18/06/13 16:47

Ciao,
ci provo ma non avendo molte informazioni potrei non essere risolutivo con quanto ti propongo.

Ecco un esempio di codice che dovrai adattare al tuo intervallo dati (forse quanto ho inserito nel codice è vicino al tuo intervallo effettivo)
Codice: Seleziona tutto
Sub Modifica_Grafico_A()
    Sheets("Foglio1").Select  ' <<==== Qui va il nome del tuo Foglio
    Range("D2").Select
    UR = Range("D" & Rows.Count).End(xlUp).Row
    ActiveSheet.ChartObjects("Grafico 1").Activate ' <<=== Qui va il nome del tuo Grafico
    ActiveChart.SeriesCollection(1).XValues = "=Foglio1!R2C4:R" & UR & "C4"
    ActiveChart.SeriesCollection(1).Values = "=Foglio1!R2C5:R" & UR & "C5"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlBottom
    Range("D2").Select
End Sub


Ho ipotizzato che i dati siano nell'intervallo "D2:E..."
L'ultima riga di dati viene calcolata nella variabile "UR" basandomi sulla colonna "D"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Grafico automatico in excel

Postdi macio66 » 18/06/13 17:41

Ciao,
Perfetto è proprio quello che mi serviva. Adesso per rendere tutto perfetto dovrei mettere come titolo invece che un testo fisso ("GRAFICO"), il testo della cella "Y9" che si trova sul Foglio1.
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "GRAFICO"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "DEGREE [°]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "I(BN) [mp]"
End With
Restando in attesa di una possibile risposta, voglio ringraziarvi per la vostra disponibilità anche nei confronti di chi non è molto afferrato in materia, in quanto ogni vostro piccolo esempio diventa un grande insegnamento.
Grazie
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Re: Grafico automatico in excel

Postdi ricky53 » 18/06/13 17:57

Ciao,
prova in questo modo
Codice: Seleziona tutto
.ChartTitle.Characters.Text = Sheets("Foglio1").Range("Y9")
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Grafico automatico in excel

Postdi macio66 » 18/06/13 18:21

Ciao,
OK grazie
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59


Torna a Applicazioni Office Windows


Topic correlati a "Grafico automatico in excel":


Chi c’è in linea

Visitano il forum: Ricky0185 e 62 ospiti