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

質問

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

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

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

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

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

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

回答No.2

imogasi

例データ
（Ｓｈｅｅｔ１）
Ａ１：Ｂ１２
銘柄　　出来高　順位１　　順位２
a 1323 61 6
b 342 101 10
c 6345 11 1
d 5423 21 2
e 1323 62 7
f 2346 31 3
g 2134 41 4
h 222 111 11
i 875 91 9
j 1678 51 5
k 954 81 8
空き列のＣ，Ｄ列２列を作業列として使う。
Ｃ２には　=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)
と入れて、Ａ２：Ｂ２をＡ１２：Ｂ１２まで式を複写する。
結果　Ａ２：Ｂ１２
c 6345
d 5423
f 2346
g 2134
j 1678
a 1323
e 1323
k 954
i 875
b 342
h 222
他に列数が多いときはＩｎｄｅｘ関数の最後の引数を
Column()に変えて、横方向に＋ハンドルを引っ張る手もある。
（imogasi方式）
Ｓｈｅｅｔ１の、出来高を変えていただければ、直ちにＳｈｅｅｔ２の表に反映するはず。
●マクロVBAの本を読むとどうもVBEを使って追加の命令を加えるような気がするんですが。（（DO　LOOP　（WHILE）等の例文を
・・
そんなんじゃなくて、イベントプロシージュアーというものを使わないといけないでしょう。ＳｈｅｅｔのＣｈａｎｇｅイベントを調べましょう。

回答No.1

EL-SUR

表示させたい列の先頭のセルに
=LARGE(L:L,ROW(A1))

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