ある一定時間の最高値と最小値を取りたい

質問

すいません，お知恵を貸してください。

モデルを簡単にしますね。

○現在Ａ１セルに，刻々と数値が変わる数式が入っています。（具体的には株価です，自動で変わります，楽天RSSです）

○そこで例えば９時２０分から９時４０分までの間の最高値と最小値を取得したいのですが，どうしたら良いでしょうか？

○関数でセルにif分を使うと自セルとの比較になり，どうしても循環参照になってしまい，できません。

○ＶＢＡでPrivate関数のworksheet_changeを使用してみましたが，手入力と違うからかマクロがＡ１の値変更には反応しません。

○次々と値を新しいセルに２０分間ぶっこんでいって後で集計も考えましたが，一日中動かしますので，負荷が高すぎて現実的ではありません。

どなたか，お知恵をよろしくお願いいたします。やりたい事はいたってシンプルですので，私がただの馬鹿なのかもしれませんが・・・

回答No.3

muushuke · ベストアンサー

VBAの勉強を始めて3日目の者です。
以下のコードをsheet1のところに記述すると、とりあえずできると思います。。。
A1には株価
B1に最高値
C1に最安値を表示させます

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Cells.Count = 1 Then
s = Target.FormulaLocal
On Error Resume Next
Application.EnableEvents = False

If Range("a1") > Range("b1") Then
Range("b1") = Range("a1")
End If

If Range("c1") = "" Then
Range("c1") = Range("a1")
End If

If Range("a1") < Range("c1") Then
Range("c1") = Range("a1")
End If

Application.EnableEvents = True
On Error GoTo 0
End If
End Sub

参考になりますでしょうか。。。

お礼

昨日は出張にてお礼が遅れまして申し訳ございません。早速試させていただきました。
しかし，結果は残念ながら・・・Ｘでした。

Ａ１に手入力で数字を入力すればprivate関数の
worksheet_changeにて，まさに正しく動作しますが
Ａ１に株価自動数値入力の以下の関数を入れると

=RSS|N225.FUT01.OS!現在値
（楽天証券のオリジナル関数，株価がリアルタイムで更新されます）

Ｂ１，Ｃ１共に反応を示さず，Ａ１だけが刻々と更新されます。
試しにＤ１に上記関数を，そしてＡ１に＝Ｄ１とやっても結果は同じでした。
手入力しか，Private sub関数は反応しないのでしょうか？

回答No.2

Hardking

RSSの関数を調べれば分かりますが
Excelのセル式の情報コードに対象銘柄の
高値、安値、高値時刻、安値時刻を指定すれば
各々取得できるので、後は範囲時刻内で
最高値、最安値を求めればいいですよ。

RSS｜' 銘柄コード . 市場コード '！ 情報コード
RealTimeSpreadSheetのソフト仕様をよく調べることです。

補足

回答ありがとうございます。２０分足での，それぞれの高値，安値を
９：００ー９：２０
９：２０－９：４０
９：４０－１０：００
のように取得していきます。
ＲＳＳに標準装備の最高値，最安値は

「一日」を通してのものですので
役には立ちません。

回答No.1

noname#60992

いろいろ方法はあると思いますが、

＞関数でセルにif分を使うと自セルとの比較になり，どうしても循環参照になってしまい，できません

最高値と最小値というセルを作ってそこと比較したら
いかがでしょうか。

補足

回答ありがとうございます

＞＞最高値と最小値というセルを作ってそこと比較し＞＞たらいかがでしょうか。

今度はそのセルが循環参照になってしまいます。