| |
▼minarai さん：
おはようございます。
RCIの説明は非常にわかりやすかったですよ！！
こんなデータでRCIの算出を考えます。
Ａ Ｂ Ｃ
１ 日付 終値 RCI
２ 2006/1/17 11,545
３ 2006/1/18 11,520
４ 2006/1/19 11,539
５ 2006/1/20 11,528
６ 2006/1/23 11,439
７ 2006/1/24 11,466
上記のデータでＮ＝５でRCIをＣ列に算出します。
尚、書式は Ａ列は日付 Ｂ列は、通貨に設定されているとします。
Ｃ列は、標準に設定しておいて下さい
標準モジュールに
'=====================================================
Sub main()
Dim rng As Range
Dim rw As Long
Dim N As Long
Dim add1 As String, add2 As String
N = 5 '←Ｎの変更はここ
Set rng = Range("a" & Rows.Count).End(xlUp)
Do Until rng.Row - N + 1 <= 1
With rng
add1 = .Offset(1 - N).Resize(N).Address
add2 = .Offset(1 - N, 1).Resize(N).Address
.Offset(, 2).Value = Evaluate("=1-6*SUMSQ(RANK(" & _
add1 & "," & add1 & ")-RANK(" & _
add2 & "," & add2 & "))/(" & N & _
"*(" & N & "*" & N & "-1))")
.Offset(, 2).NumberFormatLocal = "0%"
End With
Set rng = rng.Offset(-1)
Loop
End Sub
として、mainを実行してみて下さい。
Ａ Ｂ Ｃ
１ 日付 終値 RCI
２ 2006/1/17 11,545
３ 2006/1/18 11,520
４ 2006/1/19 11,539
５ 2006/1/20 11,528
６ 2006/1/23 11,439 -70%
７ 2006/1/24 11,466 -60%
こんな結果を得ることができます。
試してみて下さい。
|
|
ichinose
- 06/11/25(土) 8:16 -
