Il linguaggio Visual Basic di Microsoft
 

Parametrizzare il range di selezione per costruzione grafici

badush 30 Giu 2016 22:45
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
Antologiko 3 Lug 2016 00:15
Qual è la difficoltà?
Se InputRow As String contiene il numero di riga ottenuto tramite la InputBox,
allora, nel tuo codice, al posto della stringa "A4:B7" devi semplicemente
inserire "A" & InputRow & ":B" & (CInt(InputRow) + 3).ToString
badush 5 Lug 2016 11:06
Grazie

> Qual è la difficoltà?
> Se InputRow As String contiene il numero di riga ottenuto tramite la
InputBox, allora, nel tuo codice, al posto della stringa "A4:B7" devi
semplicemente inserire "A" & InputRow & ":B" & (CInt(InputRow) + 3).ToString


--
Badush

Links
Giochi online
Dizionario sinonimi
Leggi e codici
Ricette
Testi
Webmatica
Hosting gratis
   
 

Il linguaggio Visual Basic di Microsoft | Tutti i gruppi | it.comp.lang.visual-basic | Notizie e discussioni visual basic | Visual basic Mobile | Servizio di consultazione news.