株の出来高ランキングをリアルタイムで降順で表示し続ける法

L列に出来高を出します。
この出来高を大きい順番にリアルタイムで表示させ続けるにはどうしたらいいでしょうか？

初心者のため降順並び替えをマクロで設定すればリアルタイムで動くものだと勘違いしていました。（一回一回手動でマクロを実行させなければならず実用になりませんでした。）

株式市場は9：00～15：00迄なのでその間リアルタイムで計算させ表示させ続けます。
（現状は株式データはリアルタイムで入って来るので株価、出来高は目まぐるしく動きます。

よって、あと出来高を大きい順に並び替えられればいいのですが。
やり方が分かりません。）

マクロVBAの本を読むとどうもVBEを使って追加の命令を加えるような気がするんですが。
（（DO　LOOP　（WHILE）等の例文を集めてみましたが、どれも計算させて答えを出させる命令ばかりでした。並び替えを継続させるような例文は発見出来ませんでした。））

EXCELに詳しい方、出来高をリアルタイムで大きい順番に並び替え続けさせる方法をお教えください。

No.2 回答者： imogasi 回答日時： 2006/01/15 18:59

例データ

（Ｓｈｅｅｔ１）
Ａ１：Ｂ１２
銘柄　　出来高　順位１　　順位２
a1323616
b34210110
c6345111
d5423212
e1323627
f2346313
g2134414
h22211111
i875919
j1678515
k954818
空き列のＣ，Ｄ列２列を作業列として使う。
Ｃ２には　=RANK(B2,B:B)*10+COUNTIF($B$2:B2,B2)
Ｄ２には　=RANK(C2,C:C,1)
２列使うのは同じ出来高がありうることを考慮している。
９銘柄以上は同じにならないものとする。９９銘柄にも拡張できるが。=RANK(C2,C:C,1)の第３引数の１は降順を区別するもの。
結果は上記Ｃ，Ｄ列の通り。
（Ｓｈｅｅｔ２）
Ｓｈｅｅｔ２に行って
Ａ２は　=INDEX(Sheet1!$A$2:$B$100,MATCH(ROW()-1,Sheet1!$D$2:$D$100,0),1)
Ｂ２は　=INDEX(Sheet1!$A$2:$B$100,MATCH(ROW()-1,Sheet1!$D$2:$D$100,0),2)
と入れて、Ａ２：Ｂ２をＡ１２：Ｂ１２まで式を複写する。
結果　Ａ２：Ｂ１２
c6345
d5423
f2346
g2134
j1678
a1323
e1323
k954
i875
b342
h222
他に列数が多いときはＩｎｄｅｘ関数の最後の引数を
Column()に変えて、横方向に＋ハンドルを引っ張る手もある。
（imogasi方式）
Ｓｈｅｅｔ１の、出来高を変えていただければ、直ちにＳｈｅｅｔ２の表に反映するはず。
●マクロVBAの本を読むとどうもVBEを使って追加の命令を加えるような気がするんですが。（（DO　LOOP　（WHILE）等の例文を
・・
そんなんじゃなくて、イベントプロシージュアーというものを使わないといけないでしょう。ＳｈｅｅｔのＣｈａｎｇｅイベントを調べましょう。

No.1 回答者： EL-SUR 回答日時： 2006/01/15 17:24

表示させたい列の先頭のセルに

=LARGE(L:L,ROW(A1))

と入力して、下にコピーではダメでしょうか？