Grazie mille Andrea per aver risposto e per esserti interessato alla mia formula.
Però non capisco : la formula che ho postato l'ho copiata e incollata direttante dal mio file e funziona perfettamente( forse per puro caso ? ), senza dover peraltro ricorrere a colonne intermedie con i rialzi e i ribassi ( ho solo bisogno della colonna coi prezzi dell'azione ). Posso mandarti un allegato se vuoi. Inoltre per calcolare l'Rsi, non uso il rapporto tra il numero di rialzi e il numero di ribassi, ma tra la somma dei punti in rialzo e quella di ribasso. Comunque il mio problema è un'altro : io vorrei che l'argomento della funzione non sia l'intervallo di celle su cui viene calcolata ( List, nell'esempio ) ma vorrei definire List all'interno della formula, e usare come argomento della funzione la lunghezza dell'intervallo. Nella definizione di List, la lunghezza del range sarebbe indefinita e diventerebbe l'argomento dell'RSI. Ad esempio se voglio calcolare l'Rsi a 14 giorni scrivere sul foglio di lavoro =RSI(14) ( o ancora meglio =RSI (B1), in B1 scrivendo 14 ) e non RSI (A1:A14 ). Potrei farlo facilmente usando la funzione "scarto" : =RSI(scarto...), ma preferirei farlo direttamente in VBA. Spero di essere stato chiaro. Puoi aiutarmi in questo ? Ringrazio te e chiunque possa farlo.

Grazie mille, Andrea, è proprio quello che volevo !!!! GRANDE !!!!! ciao

Facendo il semplice trascinamento della formula e non il copia/incolla la formula non viene ricalcolata, bisogna in quel caso preme F2+invio sulla cella per farla calcolare.

La tua formula:
Oggi = ActiveCell.Offset(0 - N, Col)
Prec = ActiceCell.Offset(0 - N - 1, Col)
se Col è = 1 l'offset sposta la cella attiva alla colonna successiva
quindi se l'intervallo è sulla colonna A con la formula che hai scritto ti sposti sulla colonna B. Ioltre (0-N) nel primo giro del ciclo For/next ti restituirà un riferimento circolare perchè l'offset sarà pari a zero quindi rimani puntato sulla cella attiva. vedi sotto come modificare:


Qui sotto, 3 ipotesi per come modificare le funzioni per assumere di default la cella attiva:

con questa macro funzione, indicando la colonna e l'intervallo, la riga di riferimento viene assunta dalla cella attiva il calcolo comincia dal primo valore dell'intervallo.

Public Function RSI(col As Integer, Intervallo As Integer) As Double
Dim N, Inc, Dec, Oggi, Prec, riga
Inc = 0
Dec = 0
With ActiveSheet
riga = ActiveCell.Offset(-1, 0).End(xlUp).Row
For N = 1 To Intervallo
Oggi = .Cells(riga + N, col)
Prec = .Cells(riga + N - 1, col)
If Oggi - Prec > 0 Then
Inc = Inc + Oggi - Prec
Else
Dec = Dec + Prec - Oggi
End If
Next
End With
RSI = 100 - (100 / (1 + (Inc / Dec)))
End Function

in alternativa a quella sopra, la riga e la colonna vengono prese di default dalla cella attiva e resta solo da indicare l'intervallo:

Public Function RSI2(Intervallo As Integer) As Double
Dim N, Inc, Dec, Oggi, Prec, riga, col
Inc = 0
Dec = 0
With ActiveSheet
riga = ActiveCell.Offset(-1, 0).End(xlUp).Row
colonna = ActiveCell.Column
For N = 1 To Intervallo
Oggi = .Cells(riga + N, colonna)
Prec = .Cells(riga + N - 1, colonna)
If Oggi - Prec > 0 Then
Inc = Inc + Oggi - Prec
Else
Dec = Dec + Prec - Oggi
End If
Next
End With
RSI2 = 100 - (100 / (1 + (Inc / Dec)))
End Function



Terza ipotesi, il calcolo inizia dall'ultimo valore dell'intervallo :

Public Function RSI3(col As Integer, Intervallo As Integer) As Double
Dim N, Inc, Dec, Oggi, Prec
Inc = 0
Dec = 0
With ActiveSheet
riga = ActiveCell.Offset(-1, 0).Row
For N = 0 To Intervallo
Oggi = .Cells(riga - N, col)
Prec = .Cells(riga - N - 1, col)
If Oggi - Prec > 0 Then
Inc = Inc + Oggi - Prec
Else
Dec = Dec + Prec - Oggi
End If
Next
End With
RSI3 = 100 - (100 / (1 + (Inc / Dec)))
End Function

resto dell'idea che una funzione non debba essere vincolata ad una cella
ma avere riferimenti variabili in modo da poterla utilizzare in qualsiasi punto del foglio.
saluti
Andrea






Edited by - a10n11 on 12/12/2005 14:52:13

---

salve.
Invece se uso offset, mi da VALORE...
questa è il codice corretto:
Oggi = ActiveCell.Offset(0 - N, -Col)
Prec = ActiveCell.Offset(0 - N - 1, -Col)

se non metti il simbolo meno (-Col) che significa sposta la colonna attiva di meno una posizione, viene interpretato esattamente all'opposto, il riferimento si sposta una colonna avanti (colonna C) che è vuota quindi il risultato è un errore.
se provi così funziona:

Public Function RSI(Col As Integer, Intervallo As Integer)
Dim N, Inc, Dec, Oggi, Prec
Inc = 0
Dec = 0
With ActiveSheet
For N = 0 To Intervallo
Oggi = ActiveCell.Offset(0 - N, -Col)
Prec = ActiveCell.Offset(0 - N - 1, -Col)
If Oggi - Prec > 0 Then
Inc = Inc + Oggi - Prec
Else
Dec = Dec + Prec - Oggi
End If
Next
End With
RSI = 100 - (100 / (1 + (Inc / Dec)))
End Function

l'aggiornamento della formula per trascinamento devi farla con F2+invio sulla cella o copiare singolarmente le celle. Infatti se si usasse l'applicazione
Application.volatile(True) che ricalcola in automatico non funziona in quanto ricalcola tutte le formule prendendo come base la cella attiva al momento.
saluti
Andrea

Edited by - a10n11 on 12/13/2005 19:35:17

---