ボリンジャーバンドのチャート表示について
はじめまして。初めて投稿します。
Excel VBAを使って日足を取得し、ボリンジャーバンドをマクロで
計算させてExcelシートにチャート表示させているのですが、
自分で計算したチャートは、折れ線グラフで表示されるせいか値が
微妙に違ってしまいます。
ボリンジャーバンドをうまくチャートに表示する方法がわかる方が
いらっしゃれば教えていただきたいです。よろしくお願いします。
ボリンジャーバンドを計算するコードは以下のようにしました。
Sub Bollinger_Band()
Dim sigma As Integer
length(1) = 25 'MAの期間
sigma = 2 'σの設定
co1 = 13 'Bollinger_Band(-2σ)の列
co2 = 14 'Bollinger_Band(+2σ)の列
co3 = 8 'MAの列
If firstrow < length(1) + 2 Then ro1 = length(1) + 2 Else ro1 = firstrow
For i = ro1 To lastrow
Cells(i, co1) = Cells(i, co3) - sigma * WorksheetFunction.StDevP(Cells(i - length(1) + 1, 5), Cells(i, 5)) 'Cells(i,5)は終値
Cells(i, co2) = Cells(i, co3) + sigma * WorksheetFunction.StDevP(Cells(i - length(1) + 1, 5), Cells(i, 5))
Next i
End Sub
お礼
回答ありがとうございます。 このサイトは自分でも見ていたのですが、表計算ソフトを使うものだと思ってました。 よく見れば、エクセル計算式が載っていますね。 見落としてました・・・。 無事解決です。助かりました!!