DPO
Posted: under ├ DPO. Tags: DPO, VBA, VBAコード, 計算å¼, 計算方法
 
 
 
DPOã«ã¤ã„ã¦ã§ã™ã€‚
 
DPOã¯ãƒ¬ãƒ¼ãƒˆã®ä¸Šä¸‹ã®å‘¨æœŸã‚’抽出ã™ã‚‹ã“ã¨ã‚’目的ã¨ã—ãŸæŒ‡æ¨™ã§ã™ã€‚
 
>>計算å¼ï¼ˆNã¯è¶³æ•°ï¼šå¶æ•°ï¼‰
DPO = ç¾åœ¨å€¤ - (N/2+1)本å‰ã®N本移動平å‡ç·š
 
 
>>ãƒãƒ£ãƒ¼ãƒˆ
(DPO:10)
(DPO:26)
 
ã¤ã„ã§ã«ã€DPOã®5本平å‡ã¨10本平å‡ç·šã§ã™ã€‚
(DPO:10 5本ã€10本ã§ç§»å‹•å¹³å‡åŒ–)
 
 
>>VBAコード
‘※ エクセルã®1列目(A列)ã«è¡Œç•ªå·ã€2列目(B列)ã«æ—¥æ™‚ã€
‘※ 3列目(C列)~6列目(F列)ã«å§‹å€¤ãƒ»é«˜å€¤ãƒ»å®‰å€¤ãƒ»çµ‚値
‘********************************
‘ dpo :DPOã®æŽ¡ç”¨æœ¬æ•°
‘ num:ç¾åœ¨ã®è¡Œ
‘ r_now:ç¾åœ¨å€¤
‘ cell_ma:MA書込ã¿åˆ—
‘ cell_dpo:DPO書込ã¿åˆ—
‘********************************
If num - dpo >= 2 Then
If Cells(num - (dpo - 1), 6) <> “” Then
   Cells(num, cell_ma) = Application.Average _
       (Range(Cells(num - (dpo - 1), 6), Cells(num, 6)))
   dpo_n = Application.RoundUp(dpo / 2, 0) + 1
   If Cells(num - (dpo_n - 1), cell_ma) <> “” Then
       Cells(num, cell_dpo) = r_now - Cells(num - (dpo_n - 1), cell_ma)
   End If
End If
End If
 
 
 
| <PR> |
![]() |
| <PR> |



