如果程式(編程)對你有幫助, 你願意捐助此網站

請在最後一頁使用微信支付, 感謝你

詢問或教學, 每件人民幤 2 元, 因個人能力有限, 解決問題才通知收費

詢問或教學, 範圍在 office 軟件 及 Visual Studio 編程

詢問或教學, 請 聯絡站長

這是強弱指標RSI , 在excel 的自定函數

Function RSI(x, y) 'x 指定起始儲存格, y 是計算天數

Dim suma, sum1, sum2 As Double

Dim t As Integer '設回圈數

sum1 = 0

sum2 = 0

For t = 0 To y 'Row 列 Column 欄

If (Cells(x.Cells.Row() - t, x.Cells.Column()).Value - Cells(x.Cells.Row() - t - 1, x.Cells.Column()).Value >= 0) Then

sum1 = sum1 + Cells(x.Cells.Row() - t, x.Cells.Column()).Value - Cells(x.Cells.Row() - t - 1, x.Cells.Column()).Value

Else

sum2 = sum2 + (-(Cells(x.Cells.Row() - t, x.Cells.Column()).Value - Cells(x.Cells.Row() - t - 1, x.Cells.Column()).Value))

End If

Next

suma = sum1 / (sum1 + sum2) * 100

RSI = Application.Round(suma, 2) '+ 起始值 輸出

End Function