Excelでtoto予想
競馬の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 LongFor 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つ当たったよ。