Problema metodo autofill per classe range
Hai un problema con Excel?
Problema metodo autofill per classe range
di Ferro9995 data: 27/10/2017 14:41:10
Buongiorno a tutti e grazie per avermi accettato sul forum
Sono nuovo al Visual basic per excel e quindi mi trovo un po' in difficoltà
ho due problemi sostanziali...
1) nella formula che ho scritto, ho notato che dopo aver lanciato la macro i riferimenti delle celle sono assoluti e a me servirebbero relativi;
2) mi da dei problemi con l'autofill (lo riconduco al fatto che essendoci i riferimenti assoluti e non relativi lui non riesce a compilare in automatico la colonna).
spero di essere riuscito a spiegarmi al meglio.
in attesa di una vostra risposta , vi ringrazio in anticipo.
(chiedo scusa ma mi sa che avevo sbagliato sezione del forum precedentemente )
Sub Macro4()
i = Range("O1").Value
x = i / 2
Cells([O1], 10).Select
ActiveCell.FormulaR1C1 = "=(SUM(R" & (i) & "C2:R" & (i + x) & "C2)/R1C15 -SUM(R" & (i - x) & "C2:R" & (i) &
"C2)/R1C15)/R22C5"
Range("J32").Select
Selection.AutoFill Destination:=Range("J33:J10007")
Range("J33:J10007").Select
End Sub |
di patel data: 30/10/2017 11:54:22
Le formule con la notazione RC sono poco comprensibile e come vedi nessuno ha risposto, allega un file di esempio e spiega cosa vuoi ottenere indipendentemente dalla macro che hai tu
Problema metodo autofill per classe range
di Ferro9995 (utente non iscritto) data: 27/10/2017 13:08:13
Buongiorno a tutti e grazie per avermi accettato sul forum
Sono nuovo al Visual basic per excel e quindi mi trovo un po' in difficoltà
ho due problemi sostanziali...
1) nella formula che ho scritto, ho notato che dopo aver lanciato la macro i riferimenti delle celle sono assoluti e a me servirebbero relativi;
2) mi da dei problemi con l'autofill (lo riconduco al fatto che essendoci i riferimenti assoluti e non relativi lui non riesce a compilare in automatico la colonna).
spero di essere riuscito a spiegarmi al meglio.
in attesa di una vostra risposta , vi ringrazio in anticipo.
Sub Macro4()
i = Range("O1").Value
x = i / 2
Cells([O1], 10).Select
ActiveCell.FormulaR1C1 = "=(SUM(R" & (i) & "C2:R" & (i + x) & "C2)/R1C15 -SUM(R" & (i - x) & "C2:R" & (i) &
"C2)/R1C15)/R22C5"
Range("J32").Select
Selection.AutoFill Destination:=Range("J33:J10007")
Range("J33:J10007").Select
End Sub
|
Vuoi Approfondire?