Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > it.comp.lang.visual-basic > #18831
| From | "badush" <tecnici@email.it> |
|---|---|
| Newsgroups | it.comp.lang.visual-basic |
| Subject | Parametrizzare il range di selezione per costruzione grafici |
| Message-ID | <2016063020453422198@mynewsgate.net> (permalink) |
| Date | 2016-06-30 20:45 +0000 |
Ciao amici del news,
vorrei costruire una macro con la quale realizzare, in serie, dei
grafici di riepilogo realitivi alle risposte multiple a ciascuna
domanda. di un questionario (costruito con i moduli di google drive).
Ipotizzando che i grafici necessari da realizzare siano 3, e i dati
relativi all'inervallo di selezione siano collocate nella colonna A e
colonna B su righe differenti.
Supponiamo, per esempio, che gli intervalli di selezione dai quali
scaturiscono i grafici in questione, siano i seguienti:
primo range: "A4:B7"
secondo range "A8:B11"
terzo range "A15:B18"
La macro che ho registrato realizzando il primo grafico -
(Range("A4:B7") - è la seguente:
Sub Macro1()
Range("A4:B7").Select
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Foglio1").Range("A4:B7")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio1"
End Sub
Come evidente tra un grafico e l'altro quello che cambia (prescindendo
dai valori) è la posizione stabilita dal numero della riga relativa
all'intervallo di selezione.
Si puo personalizzare la Sub che consenta di variare, volta per volta,
l'intervallo di selezione inserendo il numero di riga tramite una
inputbox?
Vi ringrazio anticipatamente
--
Badush
Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar
Parametrizzare il range di selezione per costruzione grafici "badush" <tecnici@email.it> - 2016-06-30 20:45 +0000
Re: Parametrizzare il range di selezione per costruzione grafici Antologiko <antologiko@gmail.com> - 2016-07-02 15:15 -0700
Re: Parametrizzare il range di selezione per costruzione grafici "badush" <tecnici@email.it> - 2016-07-05 09:06 +0000
csiph-web