Private Sub Cmd_Rendimento_Click()
'
'Calcola il rendimento dei titoli
'
Set Z = Worksheets("Chiusura MIB30").Range("D7 : D72")
Set B = Worksheets("Rendimenti").Range("D7 : D72")
Nr = Z.Rows.Count
For i = 1 To Nr
B(i, 1).Value = (Z(i + 1, 1).Value - Z(i, 1).Value) / Z(i, 1).Value * 100
Next
Worksheets("Rendimenti").Activate
End Sub
Questa Sub mi calcola i rendimenti di una serie storica di un titolo del foglio MIB30 e mi sistema i rendimenti giornalieri nel foglio Rendimenti nella stessa posizione.
C'è un imprecisione riguardo l'ultimo valore ma mi serviva aiuto in un altro senso
Nel foglio mib30 ci sono titoli disposti dalla colonna D alla colonna AG.
Mi servirebbe un ciclo che calcoli i rendimenti per ogni colonna del foglio MIB30 e me li metta nel foglio Rendimenti.
Non essendo molto pratico della sintassi VB non so se è possibile spostare in qualche modo il set di righe della colonna.
Scusate se ho bestemmiato in qualche modo dicendo eresie
Rispondi quotando
