エクセル 行をまたいだ計算式

質問

こんにちわ皆様。
いつも博識の方々に教えて頂き
本当に感謝しております。

エクセルの計算式につきまして質問です。
ある先物価格の時系列毎の数字の列でエクセル式を入れて
計算をしたいと考えています。

Ａの値が１日前のＢ（ア）を超えた所と
次にＡの値が１日前のＢを下回る日(イ）の差を求めたいのですが
どのような式を使えば宜しいでしょうか？

日付 　　Ａ 　　　Ｂ
1月1日 95.513 　　　95.617
1月2日 95.538 　　　95.619
1月3日 95.598　　　　ア95.627
1月4日 95.65 　　　95.644 ←超えた
1月5日 95.659 　　　95.644
1月6日 95.699 　　　95.663
1月7日 95.779 　　　95.701
1月8日 95.775 　　　95.733
1月9日 95.817 　　　95.768
1月10日 95.768 　　　95.790
1月11日 95.798 　　　95.815
1月12日 95.818 　　　95.841
1月13日イ95.809 　　　95.863 ←割った
1月14日 95.812 　　　95.884
1月15日 95.85 　　　95.908
1月16日 95.839 　　　95.928
1月17日 95.815 　　　95.943

■上記の表ですと、

　(1)アからイを引いた数字をイの行に表示したいです。
　(2)また、これを時系列に沿ってずーと繰り返して行きたいです。

結構ランダムに出現し、稀に連続してＡがＢを上回る場合があります。これらをエクセルの式で計算できればと思います。

お手数お掛け致しますが何卒宜しくお願いいたします。

回答No.2

meet_again · ベストアンサー

とりあえず作ってみました。
大して動作検証等をしているわけではないので、御自身の判断で編集等してください。
一応すべての処理にコメントを入れています。
（ので見にくくなりましたが・・・・）

--------------------------------------------------------
Sub 差分調査()
Dim i, flag
Dim sabun
Dim maxrow
Dim m_sabun

'表の最終行
maxrow = Range("A1").End(xlDown).Row

'3行目から最終行までを繰り返す
For i = 3 To maxrow

'該当行のB列から前の行のC列の値を引く
sabun = Cells(i, 2) - Cells(i - 1, 3)

'もしその差分が正の数字でまだフラグが立っていないなら
If sabun > 0 And flag = 0 Then
'正になったからフラグを立てる
flag = 1
'超えた日の先日のBを記憶
m_sabun = Cells(i - 1, 3).Value

'この行は確認用。間違いがなければ消してもOK
Cells(i, 5).Value = "超えた！"
End If

'差分が負でフラグが立っているなら
If sabun < 0 And flag = 1 Then
'記憶した値から該当セルのB列を引いた値をD列に表示
Cells(i, 4).Value = Format(m_sabun - Cells(i, 2).Value, "###0.000")

'上記同様に一応確認用
Cells(i, 5).Value = "割った！"
'フラグを戻す
flag = 0
'記憶された数字を消す
m_sabun = 0

End If

Next i

End Sub

お礼

meet_againさま

　ありがとうございます！！
　自分でもやってみましたが、できました！！

　お手数なのに教えて頂いてとても感謝いたします
　また何かあればご教授いただけると幸いです☆

　　　　　　　　　　　　　　　UNO

回答No.1

meet_again

ゴメンナサイ！！
アとイの位置が全然わからないです。。。
アは超えた時の前日のB？
イは本文と写真でちがうようですが・・・。

尚、関数で実現するには作業用のスペースが結構必要になるので、
マクロ（VBA）を使っても良いですか？

お礼

meet_againさま、

早速の回答ありがとうございます！
申し訳ありません。。

アは越えた日の前日Bで結構です。
イの位置は本文が正解でした。写真は間違いです。。

是非ともマクロでも結構でございます～。
ご教授頂ければ幸いです。

　　　 uno