「ie制御」タグアーカイブ

ミドルシニアのお金の事情

【検証】＜VBA自動投票＞地方競馬（5/12~5/25）

回収率は150.0％であった。

最近２週間の戦績はどうでしたか？

回収率は150.0％であった。

単勝購入の成績はどうでしたか？
単勝購入の成績はどうでしたか？

単勝率が25.0％、回収率は187.5％であった。

複勝購入の成績はどうでしたか？
複勝購入の成績はどうでしたか？

複勝率が50.0％、回収率は112,5％であった。

次回の検証予定はいつですか？
次回の検証予定はいつですか？

2週間後を予定している。

「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？
「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？

「【ExcelVBA】＜地方競馬自動投票＞今さら聞けないExcelVBA（ログイン）」以降シリーズで掲載中である。

「＜VBA自動投票＞地方競馬」の検証はこれからも続けて行く。

これでＯＫ！

Ameba

ミドルシニアのお金の事情

【検証】＜VBA自動投票＞地方競馬（4/28~5/11）

回収率は63.0％であった。

最近２週間の戦績はどうでしたか？

回収率は63.0％であった。

項目投票レース数購入額回収額回収率
単勝複勝計5R5,000円3,150円63.0％
単勝購入の成績はどうでしたか？
単勝購入の成績はどうでしたか？

単勝率が20.0％、回収率は66.0％であった。

項目投票レース数的中レース数 購入額回収額回収率
単勝計5R1R 2,500円1,650円66.0％
複勝購入の成績はどうでしたか？
複勝購入の成績はどうでしたか？

複勝率が40.0％、回収率は60.0％であった。

項目投票レース数的中レース数 購入額回収額回収率
複勝計5R2R 2,500円1,500円60.0％
次回の検証予定はいつですか？
次回の検証予定はいつですか？

2週間後を予定している。

「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？
「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？

「【ExcelVBA】＜地方競馬自動投票＞今さら聞けないExcelVBA（ログイン）」以降シリーズで掲載中である。

「＜VBA自動投票＞地方競馬」の検証はこれからも続けて行く。

これでＯＫ！

Ameba

ミドルシニアの趣味の世界

【45歳から】始めたいExcelVBA競馬自動投票＜オッズ情報（単複）＞

（楽天）地方競馬情報サイトのオッズ情報（単勝・複勝）を自動取得します

何か準備しておくものはありますか？

（楽天）地方競馬情報サイトへの自動ログインとレース情報取得は済ませておいてください。

今までにご紹介した「（楽天）地方競馬情報サイトへの自動ログイン」と「（楽天）地方競馬情報サイトのレース情報取得」は済ませておいてください。

まだの方は、以下の記事をご覧になってくださいください。

●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（ログイン）

●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（レース情報）

どうすれば「楽天競馬」サイトのオッズ情報（単勝・複勝）が取得できますか？
どうすれば「楽天競馬」サイトのオッズ情報（単勝・複勝）が取得できますか？

オッズ情報取得VBAマクロを作成します

「楽天競馬」サイトから自動でオッズ情報（単勝・複勝）を取得するには次の設定を行ってください。

①レース情報取得マクロ実行ボタンの設置

1

前回作成したExcelブック「rakuten_keiba.xlsm」を開きます。）

2オッズ情報取得マクロの購入
右のExcel VBAマクロボタンをクリックし、「オッズ情報取得マクロ」を購入します。

Excel VBAマクロ 

3

「オッズ情報取得ボタン」の設置
[開発][挿入][フォームコントロール]の中から[ボタン（フォームコントロール）]を選択し、ログインボタンの下にボタンを設置します。「マクロの登録」ダイアグラムで[新規作成]ボタンをクリックします。

 マクロの貼り付け
「オッズ情報取得マクロ」のすべてをコピーし、すべてを上書きでペースト（貼り付け）します。
ダイアグラムを閉じます（右上×をクリックします）。
4ボタン名の変更
作成したボタン名を「オッズ情報取得」に変更します。
5マクロの登録
「オッズ情報取得ボタン」を右クリックし、「マクロの登録」をクリックします。
「rakuten1_Click」を選択し、「OK」をクリックします。


6新しいシート「RealData1」の追加
シート最下段の右横の「＋」をクリックし、シートを追加します。
追加したシート名を「RealData1」に変更します。

 

②オッズ情報取得の実行

「オッズ情報取得」ボタンをクリックします。

「楽天競馬」のレース情報が取り込まれました！
実行すると「楽天競馬」のオッズ情報（単勝・複勝）が取り込まれます。

「楽天競馬」の「オッズ情報」が取り込まれます。

シート「RealData1」に全レース情報が取り込まれます。

単勝（馬番・倍率（下1桁が小数点以下）・人気）、複勝（馬番・倍率（下1桁が小数点以下）・人気）の順で表示される。
※「倍率」：123は12.3倍を意味する

私でもできた！次のステップへ進もう！
次のステップは何ですか？

次回は分析の考え方を紹介します

次回、分析の考え方を紹介します。

これでＯＫ！
次回は、「【45歳から】始めたいExcelVBA競馬自動投票＜オッズ情報（出走馬）＞」で出走馬情報を取得するVBAマクロを紹介します。

Ameba

ミドルシニアのお金の事情

【検証】＜VBA自動投票＞地方競馬（4/14~4/27）

回収率は100.3％であった。

最近２週間の戦績はどうでしたか？

回収率は100.3％であった。

項目投票レース数購入額回収額回収率
単勝複勝計15R15,000円15,050円100.3％
単勝購入の成績はどうでしたか？
単勝購入の成績はどうでしたか？

単勝率が46.7％、回収率は120.7％であった。

項目投票レース数的中レース数 購入額回収額回収率
単勝計15R7R 7,500円9,500円120.7％
複勝購入の成績はどうでしたか？
複勝購入の成績はどうでしたか？

複勝率が60.0％、回収率は80.0％であった。

項目投票レース数的中レース数 購入額回収額回収率
複勝計15R9R 7,500円6,000円80.0％
次回の検証予定はいつですか？
次回の検証予定はいつですか？

2週間後を予定している。

「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？
「＜VBA自動投票＞地方競馬」を実践するにはどうすればいいですか？

「【ExcelVBA】＜地方競馬自動投票＞今さら聞けないExcelVBA（ログイン）」以降シリーズで掲載中である。

「＜VBA自動投票＞地方競馬」の検証はこれからも続けて行く。

これでＯＫ！

Ameba

ミドルシニアの趣味の世界

【45歳から】始めたいExcelVBA競馬自動投票＜レース情報＞

（楽天）地方競馬情報サイトのレース情報を自動取得します

何か準備しておくものはありますか？

（楽天）地方競馬情報サイトへの自動ログインは済ませておいてください。

前回ご紹介した「（楽天）地方競馬情報サイトへの自動ログイン」は済ませておいてください。

まだの方は、以下の記事をご覧になってくださいください。

【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（ログイン）

どうすれば「楽天競馬」サイトのレース情報が取得できますか？
どうすれば「楽天競馬」サイトのレース情報が取得できますか？

レース情報取得VBAマクロを作成します

「楽天競馬」サイトから自動でレース情報を取得するには次の設定を行ってください。

①レース情報取得マクロ実行ボタンの設置

1前回作成したExcelブック「rakuten_keiba.xlsm」を開きます。
2

「１．ログイン情報」のNo.4に「開催場数」の追加
セルC6には「開催場数」と名前を定義します。
（名前の定義の仕方は、該当セルを選択し、[数式][名前の定義]で名前を入力します）

3レース情報取得マクロの購入
右のExcel VBAマクロボタンをクリックし、「レース情報取得マクロ」を購入します。

Excel VBAマクロ 

4

「レース情報取得ボタン」の設置
[開発][挿入][フォームコントロール]の中から[ボタン（フォームコントロール）]を選択し、ログインボタンの下にボタンを設置します。「マクロの登録」ダイアグラムで[新規作成]ボタンをクリックします。

 マクロの貼り付け
「レース情報取得マクロ」のすべてをコピーし、すべてを上書きでペースト（貼り付け）します。
ダイアグラムを閉じます（右上×をクリックします）。
5ボタン名の変更
作成したボタン名を「レース情報取得」に変更します。
6マクロの登録
「レース情報取得ボタン」を右クリックし、「マクロの登録」をクリックします。
「rakuten_raceinfo_Click」を選択し、「OK」をクリックします。

7新しいシート「Raceinfo」の追加
シート最下段の右横の「＋」をクリックし、シートを追加します。
追加したシート名を「Raceinfo」に変更します。

②レース情報取得の実行

「レース情報取得」ボタンをクリックします。

「楽天競馬」のレース情報が取り込まれました！
実行すると「楽天競馬」のレース情報が取り込まれます。

「楽天競馬」の「レース情報」が取り込まれます。

シート「Raceinfo」に全レース情報が取り込まれます。

各列の項目名と適用する式は次のとおりです。

【A列】 「回次」･･･次の式を200行コピーする

＝IF(D1<>””,MID(D1,1,SEARCH(”  “,D1,1)-1),””)

【B列】 「競馬場名」･･･次の式を200行コピーする

=IF(D1<>””,”【” & MID(D1,SEARCH(”  “,D1,1)+12,SEARCH(“競馬”,D1,1)-SEARCH(”  “,D1,1)-10) & “】”,””)

【C列】「日次」･･･次の式を200行コピーする

=IF(D1<>””,MID(D1,SEARCH(”  “,D1,1)+28,LEN(D1)-SEARCH(”  “,D1,1)+28),””)

【D列】 何もしない

【E列】 「開催日」

【F列】 「レース番号」

【G列】 「発走時刻」

【H列】 「レース名」

【I列】 「距離（ｍ)」

【J列】 「頭数」

私でもできた！次のステップへ進もう！

次のステップは何ですか？

次回はオッズ情報を取得するVBAマクロを紹介します

次回、オッズ情報（単勝・複勝）を取得するVBAマクロを紹介します

これでＯＫ！

次回は、「【45歳から】始めたいExcelVBA競馬自動投票＜オッズ情報（単複）＞」でレース情報を取得するVBAマクロを紹介します

Ameba