Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18831 > unrolled thread

Parametrizzare il range di selezione per costruzione grafici

Back to article view | Back to it.comp.lang.visual-basic

Contents

  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

#18831 — Parametrizzare il range di selezione per costruzione grafici

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

[toc] | [next] | [standalone]

#18832

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

[toc] | [prev] | [next] | [standalone]

#18834

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

[toc] | [prev] | [standalone]

Back to top | Article view | it.comp.lang.visual-basic

csiph-web