Excel VBA code (technical index for trading system)

|HOME|Technical index source code ページ

Excel VBA Source Code --- PercentR(%R)

Technical code for trading system.

VBA Source code

Sub PercentR()

'''-----http://www.samurai-logic.com/
'''-----Project of Trading System Development
'''------------------------------------------------------------------
''----Ｂ列（日付）、Ｃ列（始値）、Ｄ列（高値）、Ｅ列（安値）、Ｆ列（終値）
''----
''----TextBox1に計算期間
''--------------------------------------------------------------------

Dim length1%, length2%, i&, j&

Application.ScreenUpdating = False

Worksheets("%R").Activate
 
LastRow = Range("B4").End(xlDown).Row

length1 = CInt(ActiveSheet.TextBox1.Value)

Range("H5:H5000").ClearContents

Range("H3") = "％Ｒ:" & length1

For i = length1 + 5 To LastRow

   Cells(i, 8).Value = (Cells(i, 6).Value - _
   WorksheetFunction.Min(Range("E" & i - (length1) + 1, "E" & i))) * _
   100 / (WorksheetFunction.Max(Range("D" & i - (length1) + 1, "D" & i)) - _
   WorksheetFunction.Min(Range("E" & i - (length1) + 1, "E" & i)))

Next i

Range("H5", "H" & LastRow).NumberFormatLocal = "0.00"

Application.ScreenUpdating = True
End Sub