Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37276 / 76732 ←次へ | 前へ→

【44629】RCI系指数をVBAで
質問  minarai  - 06/11/25(土) 1:02 -

引用なし
パスワード
   以下のEXCELシートをマクロで自動計算式できますか
宜しくお願いします
新日鉱HD

日付順位  終値  価格順位   順位差平方  RCI
B4     C4    D4      E4      F4
5      800   1      
B5     C5    D5      E5      F5
4      788   4
B6     C6    D6      E6      F6
3      779   5
B7     C7    D7      E7      F7
2      795   3
B8     C8    D8      E8      F8
1      797   2
 
>>参考の出展先です
>例として5日間の RCI を求めることにします。以下の(表1)をご覧ください。これ>はある株銘柄の5日間の価格(終値)の変動を表にしたものです:


>>表1 日付 日付順位 終値 価格順位 順位差平方 RCI
2006/01/17  11,545   
2006/01/18  11,520   
2006/01/19  11,539   
2006/01/20  11,528   
2006/01/23  11,439   


この表に順位を書き加えたものが(表2)です。日付については新しい順に、価格については高い順に順序付けをします。


表2 日付 日付順位 終値 価格順位 順位差平方 RCI
2006/01/17   5  11,545   1  
2006/01/18   4  11,520   4  
2006/01/19   3  11,539   2  
2006/01/20   2  11,528   3  
2006/01/23   1  11,439   5  


この2つの順位の差を平方(2乗)した結果をそれぞれ求めます。例えば 2006/01/17 の場合は 5 - 1 = 4 の2乗で 16 になりました(表3)。


[ 1 − 6 × (順位差平方の合計) ÷ { N × ( N × N − 1 ) } ] × 100
という式で求めることができます。

今回は N = 5 で、順位差平方の合計は 16 + 0 + 1 + 1 + 16 = 34 ですからこれを代入すると、2006/01/23 は RCI = -70.0% になります(表4)。


表4 日付 日付順位 終値 価格順位 順位差平方 RCI
2006/01/17 5 11,545 1 16 
2006/01/18 4 11,520 4 0 
2006/01/19 3 11,539 2 1 
2006/01/20 2 11,528 3 1 
2006/01/23 1 11,439 5 16 -70.0%


これが RCI の求め方です。


表5 日付 日付順位 終値 価格順位 順位差平方 RCI
2006/01/17  11,545   
2006/01/18 5 11,520 3 4 
2006/01/19 4 11,539 1 9 
2006/01/20 3 11,528 2 1 
2006/01/23 2 11,439 5 9 -70.0%
2006/01/24 1 11,466 4 9 -60.0%


        
0 hits

【44629】RCI系指数をVBAで minarai 06/11/25(土) 1:02 質問
【44630】Re:RCI系指数をVBAで ichinose 06/11/25(土) 8:16 発言
【44632】Re:RCI系指数をVBAで minarai 06/11/26(日) 9:27 お礼
【44635】Re:RCI系指数をVBAで minarai 06/11/26(日) 18:23 お礼

37276 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free