乖離率
Posted: under ├ 乖離率. Tags: VBA, ├ 乖離率, 乖離, 計算方法
 
 
乖離率ã«ã¤ã„ã¦ã§ã™ã€‚
 
移動平å‡ç·šã‚„他指標ã¨ã®ä¹–離を計算ã—ã€ä¸ŠãŒã‚Šã™ãŽã€ä¸‹ãŒã‚Šã™ãŽã‚’測るãŸã‚ã®æŒ‡æ¨™ã§ã™ã€‚
 
>>計算å¼
計算方法ã¯ã€å˜ç´”ã«ç§»å‹•å¹³å‡ç·šãªã©ã¨ç¾åœ¨ã®ãƒ¬ãƒ¼ãƒˆã¨ã®ä¹–離を計算ã—ã¾ã™ã€‚
乖離率 = (終値 - 移動平å‡ç·š) / 移動平å‡ç·š × 100
 
乖離率ã®å€¤ãŒå¤§ãããªã‚Šã€ä¸€å®šå€¤ã‚’è¶…ãˆã‚‹ã¨ä¸ŠãŒã‚ŠéŽãŽã€å€¤ãŒå°ã•ããªã‚Šä¸€å®šå€¤ã‚’下回るã¨ä¸‹ãŒã‚Šã™ãŽã¨åˆ¤æ–ã§ãã€åè»¢ã®æŒ‡æ¨™ã¨ã—ã¦ä½¿ç”¨ã—ã¾ã™ã€‚
 
>>ãƒãƒ£ãƒ¼ãƒˆ
移動平å‡ç·š(80本)ã¨çµ‚値ã®ä¹–離率ãƒãƒ£ãƒ¼ãƒˆ(通貨ã¯AUDJPY30min)
 
 
>>VBAコード
‘※ エクセルã®1列目(A列)ã«è¡Œç•ªå·ã€2列目(B列)ã«æ—¥æ™‚ã€
‘※ 3列目(C列)~6列目(F列)ã«å§‹å€¤ãƒ»é«˜å€¤ãƒ»å®‰å€¤ãƒ»çµ‚値
‘********************************
‘ cell_kairi :乖離率計算値入力列
‘ cell_obj :乖離率計算対象(移動平å‡ç·šãªã©ï¼‰å…¥åŠ›åˆ—
‘ num:ç¾åœ¨ã®è¡Œ
‘********************************
If .Cells(num - 1, obj) <> “” _
And .Cells(num, obj) <> “” Then
Cells(num, cell_kairi) = (Cells(num, 6) - Cells(num, obj)) / Cells(num, obj) * 100
End If
 
 
| <PR> |
![]() |
| <PR> |



