楽天ブログ　買っちゃった

< 新しい記事

新着記事一覧(全4480件)

過去の記事 >

2016/04/11

Excelでtoto予想

テーマ：２億円サッカーtoto予想(6777)

カテゴリ： toto

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

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

toto

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

L4に =RAND() を入力

M4に =IF(L4<D4,"ホーム",IF(L4<(D4+E4),"引き分け","アウェイ"))

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

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

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

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

がいいかな。

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

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

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

　　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つ当たったよ。