楽天ブログ　買っちゃった

競馬のWIN5は2等,3等が無いから当たりにくいし仮に当たっても税金が掛かって面倒だし予想がランダムなBIGも当たりそうに無いし自分で予想できるtotoがいいよね。
でも自分で予想するのは結構面倒なので投票率からExcelで簡単にtoto予想できるようにしてみたよ。

さっかりん - toto 投票率グラフ
http://soccer.phew.homeip.net/toto/vote/
の表をコピーしてExcelに貼り付ける。



ブラウザによってコピーのされかたが変わるね。
ChromeだとA1からJ28にコピーされるけどIEやEdgeだとA1からJ41になるからChromeがいいかな。

L4に =RAND() を入力

M4に =IF(L4<D4,"ホーム",IF(L4<(D4+E4),"引き分け","アウェイ"))
L4M4をコピーして1行置きに貼り付ける。

M1に ホーム を入力
M2に 引き分け を入力
M3に アウェイ を入力

N1に =COUNTIF(M4:M28,"ホーム") を入力
N2に =COUNTIF(M4:M28,"引き分け") を入力
N3に =COUNTIF(M4:M28,"アウェイ") を入力


乱数で適当に選ぶと当たりそうにないので投票率の高い方が選ばれる勝率を高くしてみたんだけどどうかな。
F9を押すと乱数が再計算されるからホーム、引き分け、アウェイの比率がいい感じになるまで何回かF9を押すといいよ。

どれぐらいの比率がいいのか分からないけど
　ホーム 5試合以上7試合以下
　引き分け 2試合以上4試合以下
　アウェイ 4試合以上6試合以下
がいいかな。

F9を何度も押すのが面倒な場合はVBAを使うといいね。

Sub toto()
Dim n As Long, f As Long

For n = 1 To 1000 '1000回で終了

　　ActiveSheet.Calculate '再計算

　　f = 0

　　If Range("N1") >= 5 And Range("N1") <= 7 Then f = 1 'ホーム勝ちが5試合以上7試合以下
　　If Range("N2") >= 2 And Range("N2") <= 4 Then f = f + 1 '引き分けが2試合以上4試合以下
　　If Range("N3") >= 4 And Range("N3") <= 6 Then f = f + 1 'アウェイ勝ちが4試合以上6試合以下
　　If Range("N1") > Range("N3") Then f = f + 1 'ホーム勝ちがアウェイ勝ちより多い

　　If f = 4 Then Exit For '全部の条件を満たしたら終了

Next n
　　If n = 1001 then MsgBox "条件が満たされませんでした"
End Sub


この方法で早速土曜日に買ってみたら9つ当たったよ。