propongo di seguito una goffa macro che mi permette di disegnare grafici di funzioni in una variabile.
- Codice: Seleziona tutto
Sub disegna()
Range("C2,K1").Clear
Range("G2:H2000").Clear
Range("C2").Value = Range("B5").Value
If Range("N2").Value = 0 Then
Do
Range("C2").Value = Range("C2").Value + Range("B4").Value
Range("K1").Value = Range("K1").Value + 1
Range("B2").Select
Selection.Copy
Range("H1").Offset(Range("K1").Value, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Selection.Copy
Range("G1").Offset(Range("K1").Value, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("K2").Value <> 0 Then
Range("A1").Select
Exit Sub
End If
Loop Until Index > 1
End If
End Sub
Funziona, ma è veramente lenta, per calcolare 10000 valori impiega (sul mio pc) 10/15 min.
Come si può notare, la macro si appoggia ad alcune celle nel foglio le quali mi permettono, tramite funzioni logiche, di iterare la formula (funzione) un numero a piacere di volte con incremento a mia scelta. Chiaramente, la macro è lenta per questo motivo.
Allego il file contente il plotter. https://www.dropbox.com/s/mevc4nlvu6sste5/plotter_funzioni.xlsm?dl=0
La formula/funzione si inserisce in B2.
Ciò che per me è importante, oltre alla costruzione del grafico, è il report di tutti i valori calcolati.
La mia domanda è questa, posso ottenere lo stesso risultato del file d'esempio, ma più velocemente?
Vi ringrazio TUTTI, anticipatamente
dimenticavp, utilizzo Excel2010
sr
