Devo fare un calcolo utilizzando un foglio già predisposto, in pratica nelle celle K1 e L1 inserisco con Input Box due valori, anche negativi , poi in cella K4 ne calcolo la diferenza suddivisa su n. anni . Ottengo un valore medio annuale .
Poi In F1 inserisco la serie per il calcolo successivo . Facciamo un esempio pratico S Minimo = -01, SFine = 4.0 , Sdelta = 4-(-0.1) = 4,1 / 10 anni = 0.41
Ora in F8 , dove avviene il calcolo ottengo : 1008.15 primo step .
Poi in F8 avrò -0.1+0.41 = 0.31 quindi ottengo 975.24
poi in F8 avro 0.31+0.41 = 72 che al calcolo mi dà 943,64
etc fino a 4 dove ottengo 731.60
Il problema e che non riesco a sistemare il ciclo for con copia .
A questo sono arrivato
- Codice: Seleziona tutto
Sub ciclo1()
Dim SInizio As Double, SFine As Double, SDelta As Double, N As Long, I As Long, X As Double, Riporto As Double
Dim Dura As Worksheet, Dati As Worksheet
Application.ScreenUpdating = False
Application.CutCopyMode = False
Set Dura = ThisWorkbook.Sheets("Duration")
Set Dati = Sheets("Dati")
N = Dati.Range("$B$4")
SInizio = Dura.Range("$K$1").Value ' valore di inizio della serie
SFine = Dura.Range("$L$1") ' valore di fine serie
SDelta = Dura.Range("$K$4").Value ' questo è l'incremento (cella K4) da usare nel ricalcolo in cella F1
Riporto = Dura.Range("$f$8").Value ' in questa cella trovo il risultato corrispondente
Dati.Range("F1:f100").ClearContents
' Dura.Range("F1").ClearContents
'I = 0
For X = SInizio To SFine Step SDelta
I = I + 1
Dati.Range("F" & I + 1).Value = X * 100
Next X
Application.ScreenUpdating = True
Application.CutCopyMode = True
Set Dura = Nothing
Set Dati = Nothing
End Sub
Però 1 : la macro non completa la sequenza nel senso che si ferma al penultimo valore , ma non mi da il 4,.0 finale ? mentre se la faccio fuzionare al contrario ( Sfine to Sinizio step -sdelta è perfetta !
2) il problema successivo è di fare lo spostamento contemporaneo dei dati calcolati in F8 . assieme al valore che lo promuove in F1
Allego file per chiarezza.
http://www.filedropper.com/stest
Sono un paio di gironi che ci sbatto la testa senza cavarne nulla, un grazie anticipato a chi ci metterà del suo .