Keskustelu: Ohjelmointikysymykset: VBA: RSI

Moi,

Aloittelevana koodarina tuossa koodasin koulua varten Relative Strength Index -kaavaa, mille tuntuu löytyvän aika huonosti tukea mistään kirjallisuudesta tai netistä. Kaava: http://www.investopedia.com/terms/r/rsi.asp

Koodasin sen seuraavaan alkeelliseen muotoon:

Function RSI(range_up As range, range_down As range)
    'ranges of up and down closes
Dim RS, avup, avdown

avup = Application.WorksheetFunction.Average(range_up)
avdown = Application.WorksheetFunction.Average(range_down)
RS = avup / avdown
RSI = 100 - (100 / (1 + RS))

End Function

Ongelmana tässä kuitenkin on, että ennen RSI-funktion hyödyntämistä joudun tekemään alkuperäisen kolumnin lisäksi kaksi lisäkolumnia, joista toiseen lasken up_close:t ja toiseen down_closet. Tämä on hankalaa siksi, että aikasarjasarakkeita on melkoisen paljon jo valmiiksi. Lisäksi lukujen optimointi jälkikäteen hankaloituu huomattavasti nykyisellä menetelmälläni.

Ideaalitilannehan olisi se, että funktioon tarvitsisi syöttää vain lähtösolu sekä haluttu päivien lukumäärä alueiden sijasta.

Osaisikohan joku auttaa minua asiassa eteenpäin?
Kiitos!

-Eemeli

Mod. lisäsi kooditagit; lue ohjeet