株価の上げ下げのパターンをVBAで計算する方法

質問

株価には「3日前上がって2日前下がって1日前上がると当日は上がる」といった法則がたまにみつかります。
それを効率よくVBAで計算したいのですが、VBA初心者のため組み方がわかりません・・・。

例えば、Excel上の株価は以下のようになっています。

始値　高値　安値　終値　上下？
240　　300　210 280 1
245 320 220 230 0

「始値＜終値」のとき右端の時系列は１と表示させてます。
　つまり、0010とか1010といった組み合わせを自動化して、「0010と価格が動いたときには翌日セルに１を表示する」といった感じで計算をしたいのです。

どなたか詳しい方おりましたえら是非ご教授下さい。

回答No.1

papayuka · ベストアンサー

株はサッパリなので、意味が違うかも。

「上下？」がE列にあるとして、、、
E列最後が E5だとしたら、E2:E5 を見て、F6に△や▼を付けます。

Sub Test()
Dim r As Range, s As String

　Set r = Range("E65536").End(xlUp)
　If r.Row < 5 Then Exit Sub

　For i = 0 To 3
　　　s = s & r.Offset(-3 + i, 0).Value
　Next i

　Select Case s
　Case "0010", "1010"
　　　 r.Offset(1, 1).Value = "△"
　Case "0001"
　　　 r.Offset(1, 1).Value = "▼"
　End Select
End Sub