エクセルVBA

 

VBA初心者から競艇のために勉強しました

エクセルファイルを紹介しますね!

 

ファイル種類

 ①1日のデータ収集&投票ファイル

 ②データ蓄積ファイル

 ③収支、回収率のグラフファイル(分析)

  ※②③でもVBA活用しているが、目視できるので都度修正可能なので問題なし

 

ファイル①の内容

 7:00 日程取込ボタンクリック(日程・各レース時間取込)

 7:00 投票予約ボタンクリック

 7:50 テレボート入金(手作業)※忘れるとエラーで購入もデータ収集もできず

 手作業はここまで。以降VBAで動きます

        Aレース締め切り時間に合わせてレース情報をダウンロード

        Bエクセルで計算し、条件が合えばテレボートで舟券購入

        C締め切り時間の15分後に結果をダウンロード

 当日の全レースでABCを繰り返します

  21:00 最終レースが終わってからファイル②へデータを移行して終了

 

 

 

現在の問題点と修正完了

 問題点 入金が手作業。入金忘れるとエラーでエクセル止まる

       ログインも購入もできていますが、入金だけうまくいきません

       テレボート画面から入金ボタンは押せます

       サブウインドウ的な物が出てきますが、

       そこで入金額とパスが入れられない。

       サブウインドウ的な物を捕まえられないのか・・・

       試すのも投票を止めて日曜しかできないので先に進まず

       詳しい方いましたら、ご教授くださいませ

 問題点 レース時間の変更に対応していない

       レース時間が変更されると結果が取れない場合がある

       結果がまだ出ていないのに結果を取り出してしまう

       また、オッズも最終2分前で統一しているが、微妙なずれが出る

       時間を取れば解決可能と思っているが、どの情報を引き込むのか検討中

       レース結果一覧を参照するのが最適と考えている

       江戸川の時間が変わりすぎ!!!よって江戸川購入避けてます

 修正予定 1点買いに特化しすぎて、エクセル内で多点買いが出来ない

       投票シートに記載があれば、多点でも自動投票VBAはできている

       しかし、投票シートに転記する方法に悩み中・・・

       買目を変更する場合も含めて簡単に買目変更できる内容に・・・

       肝心要の部分で細かく言うことできません

       基本1点買いなので時間が出来たらね。修正考えてみます

 修正予定 時間帯で購入終了または開始

       「10時以降から投票する」や「17時以降は投票しない」など

       場ごとの投票可否は設定できるが、時間帯ではできない

 

 

 修正完了

  20.08.05 場ごとに購入するかしないか決められるように

  20.08.17 同時刻に2レースとも買目があった場合エラー修正