- 締切済み
株の出来高ランキングをリアルタイムで降順で表示し続ける法
L列に出来高を出します。 この出来高を大きい順番にリアルタイムで表示させ続けるにはどうしたらいいでしょうか? 初心者のため降順並び替えをマクロで設定すればリアルタイムで動くものだと勘違いしていました。(一回一回手動でマクロを実行させなければならず実用になりませんでした。) 株式市場は9:00~15:00迄なのでその間リアルタイムで計算させ表示させ続けます。 (現状は株式データはリアルタイムで入って来るので株価、出来高は目まぐるしく動きます。 よって、あと出来高を大きい順に並び替えられればいいのですが。 やり方が分かりません。) マクロVBAの本を読むとどうもVBEを使って追加の命令を加えるような気がするんですが。 ((DO LOOP (WHILE)等の例文を集めてみましたが、どれも計算させて答えを出させる命令ばかりでした。並び替えを継続させるような例文は発見出来ませんでした。)) EXCELに詳しい方、出来高をリアルタイムで大きい順番に並び替え続けさせる方法をお教えください。
- rota
- お礼率38% (16/42)
- オフィス系ソフト
- 回答数2
- ありがとう数0
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
例データ (Sheet1) A1:B12 銘柄 出来高 順位1 順位2 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 空き列のC,D列2列を作業列として使う。 C2には =RANK(B2,B:B)*10+COUNTIF($B$2:B2,B2) D2には =RANK(C2,C:C,1) 2列使うのは同じ出来高がありうることを考慮している。 9銘柄以上は同じにならないものとする。99銘柄にも拡張できるが。=RANK(C2,C:C,1)の第3引数の1は降順を区別するもの。 結果は上記C,D列の通り。 (Sheet2) Sheet2に行って A2は =INDEX(Sheet1!$A$2:$B$100,MATCH(ROW()-1,Sheet1!$D$2:$D$100,0),1) B2は =INDEX(Sheet1!$A$2:$B$100,MATCH(ROW()-1,Sheet1!$D$2:$D$100,0),2) と入れて、A2:B2をA12:B12まで式を複写する。 結果 A2:B12 c 6345 d 5423 f 2346 g 2134 j 1678 a 1323 e 1323 k 954 i 875 b 342 h 222 他に列数が多いときはIndex関数の最後の引数を Column()に変えて、横方向に+ハンドルを引っ張る手もある。 (imogasi方式) Sheet1の、出来高を変えていただければ、直ちにSheet2の表に反映するはず。 ●マクロVBAの本を読むとどうもVBEを使って追加の命令を加えるような気がするんですが。((DO LOOP (WHILE)等の例文を ・・ そんなんじゃなくて、イベントプロシージュアーというものを使わないといけないでしょう。SheetのChangeイベントを調べましょう。
- EL-SUR
- ベストアンサー率76% (83/108)
表示させたい列の先頭のセルに =LARGE(L:L,ROW(A1)) と入力して、下にコピーではダメでしょうか?
関連するQ&A
- リアルタイムでForループを表示
Excel2010でVBAを使っています。 一つのループの計算のために10秒くらいかかるForループを10000回繰り返すプログラムを作った場合、 計算が終了するまでに30分程度時間がかかります。 計算途中にどこまで計算が進んだか分かるようにするため ダイアログにリアルタイムで変数iを表示できるようなプログラムを書きたいのですが どのようにすれば良いですか? Matlabだと「;」をつけないといった方法があるのですが VBAでやり方を教えてください。
- ベストアンサー
- Visual Basic
- 行の並び替え(マクロ化)
現在4行目に参照された数字が記入されております。 C2~AP50を範囲指定し データの並び替えで オプション⇒列単位に変更をクリック 最優先されるキー 行4 値 降順 とクリックして 最後の確認を数値とテキスト形式の数を分けて並び替えを行う で決定 とういう作業を毎日しております。 1回は短時間ですが、毎日なのでちょっと手間に感じております。 マクロに詳しい方、上記作業をマクロ化して頂けませんでしょうか? 申し訳ありませんが宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの記録がうまくいきません。マクロの記録→セルを押してWEBクエリ
マクロの記録がうまくいきません。マクロの記録→セルを押してWEBクエリを選択→データを取り込み→シートに表示されそれを日付順にセルの並び替えを選択→並び替えを確認→マクロの記録の停止の順でやっているのですが、マクロを実行するとデータは記録できているけど日付順の並び替えのみができていません。なぜでしょうか?何回記録しなおしても日付だけ並び替えされて記録されていません。ご教授お願いします。Windows 7 でExcel2007を使用しています。
- ベストアンサー
- オフィス系ソフト
- 出来高について(リアルタイム)
こんばんは 例えば、その日のその株(銘柄)の出来高で10件あったとします。 5000円で4件成立、 5100円で3件成立、 5200円で1件成立、 5300円で2件成立。 (これはあくまで、例えです) これらを調べることってできますか? (できればリアルタイムで) 某証券会社の、「QUICK情報」サービスや「ヤフーファイナンス」「日経」(NIKKEI.NETの株・為替)等を利用しております。 よろしくお願いします。
- ベストアンサー
- 株式市場
- 出来高ランキングについて
いつも株のランキングを見ていて気になるのですが、出来高ランキング上位のものは頻繁に売買されているので、上昇しやすいと聞きますが、たとえば最低取り引数が1000株で現在値が100円の株と、最低取り引数が1株で現在値が100000円のものでは、取引する金額は同じですが、出来高ランキングでは最低取り引数が1000株で現在値が100円の株のほうが上位になりますよね? なぜ皆さんは出来高ランキングに着目されるのでしょうか? 本来は取引金額のランキング(取り引株数×株価)に着目すべきなのではないのでしょうか?
- ベストアンサー
- 株式市場
- 5文字以上の文字列だけを、他の場所に上詰めで表示させたい
"ABCD"AAABB""EFG""DF.KO!#"などと文字列があったときに、5文字以上のものだけを他のセルに上に詰めて表示させる方法はあるでしょうか。LENで文字数を表示させて並び替えをすれば対象の文字列はすぐに分かりますが、その結果を組み込んでまた次の計算に使うので、手順を自動化できるように関数でできる方法があれば嬉しいです。また文字数で並び替えをすると文字列の順番が入れ替わってしまいますが、可能なら元の順番通りに他のセルに表示させたいです(対象の文字列の文字数が、上から7,5,9,8,6となっていたら、このままの順番で表示させたい)。でもこれが難しいなら、上に詰めて表示させる方法だけでもどうにかできないかと思っています。注文が多くて申し訳ありませんが、良い知恵をお持ちの方がいらっしゃれば、どうかご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- 基準列が空欄セルも含めて並び替えを実施する方法
添付ファイルの様な左列のIDを基準にそれに紐付く氏名、住所、商品名の列があります。 表が出力される時は並びがIDを基準に降順(番号の新しいものが上に)になっていますが、これを毎日昇順(番号が古い物を上に)する作業があります。 表を見て頂ければおわかりの通り、IDは1行しか表示されない為、通常のエクセルの並び替えメニューで実行するとIDが表示ある行とない行でバラバラになってしまう為、現状は行切り取り→下へ移動の方法で並び替えを実施していますが、この作業が手作業な為、非常に時間が掛かってしまいます。 マクロかVBAでID列を基準にそれにぶら下がっているID空欄行を全て並び替える(降順 → 昇順)方法がお分かりになればご指導願います。 ※サンプルは5明細ですが実際の明細は50前後の明細になります。
- 締切済み
- 財務・会計・経理
- 株の出来高について
株の出来高はヤフーファイナンス等で表示されますが、大手や有名な銘柄で株価が大きく上がった、または下がったものばかりです。 ランキングで追っていけば分かりますが時間がかかります。 例えば低位株(5万円以下)で出来高ランキングの表示はスクリーニング可能でしょうか? 他には上昇トレンドから下降トレンドに転換して、再度、上昇に反転したのが分かる銘柄。 または買いで銘柄を選択する際にどのように検索しているか教えて頂けると助かります。(お礼のチップは入れれるだけ入れます) 自分で銘柄選択をしたいです。どうしてもツイッター等の情報源に頼りがちです。 SBI証券で取引しています。 *いろんなツイッターの情報を元に売買したら踏み上げで空売りも出来ない程に資金を失いました。(筋が明らかに操縦しており、逆日歩が連日凄くて撤退しました。) 早めの損切りをすべきでした。
- ベストアンサー
- 株式市場