エクセルで株価取得の仕組みを作ろうと思い
マクロのIf~ElseIfを列単位で条件分岐できないかと考えています。
今、作りたいと思っているのは
(1)列に特定の数値があった場合は
(2)セルに入力されている銘柄コードの
(3)始値・高値・安値・終値・出来高といった時系列データをネットから取得
を考えています。
添付画像で言うと例えば
(1)C列の「前日比が+」であった場合は
(2)A列の「銘柄コード」の
(3)始値・高値・安値・終値・出来高といった時系列データをネットから取得
という事を考えています。
分かりにくくて申し訳ありません
添付画像では3銘柄ほどしかありませんが、
実際は150銘柄ほどでこれを行い、
条件を満たしている銘柄のすべてで時系列データを取得したいと思っています。
自分でやろうと思ったやり方では
C1,C2,C3...と一つ一つ指定するくらいしか出来なかったため、
マクロが長文になってしまいました。
そこで列単位で一括で条件分岐する方法はないでしょうか。
アドバイス頂けると助かります。
No.1
- 回答日時:
こんにちは!
質問文を読む限りでは「オートフィルタ」が一番簡単だと思います。
わざわざVBAでやる必要はなく手を動かすのが手っ取り早いのではないでしょうか?
C列をキーに 「0より大きい」でフィルタをかけ、表示されているデータのみを別Sheetにコピー&ペーストする。
といった感じではどうでしょうか?
※ どうしてもVBAで!というコトであれば、上記の一連の操作をコードにすると
↓のような感じですかね?
元データはSheet1にあり、Sheet2にコピー&ペーストするコードの一例です。
Sub Sample1()
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.Clear
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=3, Criteria1:=">0"
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Range("A1")
.AutoFilterMode = False
End With
End Sub
こんな感じでは同でしょうか?m(_ _)m
早速のご回答誠にありがとうございます。
仰る通りフィルタをかけるのが手っ取り早く、大した手間ではないのですが、
出来る限り作業を機械的に行いたいと思っているのです。
ボタン一つで必要な情報をすべて取得して、
あとは株の売買の注文ボタンを押すだけ、
というのを理想としておりましたので。
ご提示いただいた別シートへのコピーは
今回の質問とは違うのですが、ちょうど自分が別に考えていた株情報取得に役立つ内容なので
ぜひ使わせていただきます。
ご回答ありがとうございます!
No.2ベストアンサー
- 回答日時:
Sub Macro1()
MaxRow = Range("C1").End(xlDown).Row
For Each r In Range("C2").Resize(MaxRow)
If r > 0 Then
'ここにやりたい処理を挿入
'C列のデータが1以上のセルが r で利用できます
' r.Offset(0,-2).Value で銘柄コードを取得できます
End If
Next
End Sub
早速のご回答誠にありがとうございます。
>For Each
「繰り返す」というものがあったのですね。
ご教示ありがとうございます!
具体例も書いていただき非常に助かりました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大引けの出来高と次の日の株価
-
株式で、ストップ高すると翌日...
-
株価の表示の赤・青について
-
新聞の東証株式の欄に銘柄が載...
-
株式の質権者って何ですか?
-
株価インパクトって何ですか?
-
株式市場の年間取引日数?
-
株式が1,000株単位から100株単...
-
4004昭和電工、見通しを
-
よく聞く言葉 手法とは・・・
-
日銀の黒田はまたお得意の日本...
-
値上がり率は、わかるけど、値...
-
PTS株価って翌日の始値に影響が...
-
総資産と時価総額の違いを教え...
-
マッチングアプリで知り合った...
-
日足データから週足、月足デー...
-
株式の裁判結果について
-
株式用語の「カチ上げ」とは、...
-
米ハイイールド債について
-
跛行 と 爬行 の違い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
大引けの出来高と次の日の株価
-
総資産と時価総額の違いを教え...
-
PTS株価って翌日の始値に影響が...
-
株式市場の年間取引日数?
-
日経平均株価が年内に5万円突破...
-
マッチングアプリで知り合った...
-
投資信託、グローバルロボテッ...
-
株価は今後も下落を続けるでし...
-
つみたてNISA
-
「ダウ」は指数なのに、単位は...
-
跛行 と 爬行 の違い
-
株価の表示の赤・青について
-
株式で、ストップ高すると翌日...
-
信用買残と売残の読み方
-
信用倍率1608倍です株価どうな...
-
株価インパクトって何ですか?
-
鬼ホールド
-
複数の証券会社で上場している銘柄
-
カラ売りした銘柄が倒産した場合
-
明日の株価予想
おすすめ情報