趣味のエクセルで当てよう!ロト・ナンバーズ

当選狙いで、ナンバーズ4をメインにロト、ビンゴ5などの各種データリストや、それらの分析用エクセルVBAなどについて書いてます。

minilotoで当てようloto6の2等


記事目次 ロト・ビンゴ


ロト6の2等でミニロト状態になるのも結構有る様です。(1372回で316回)


(ボはボーナス数字とします。)


mini loto で当てよう loto 6 


続・minilotoで当てようloto6
                 ・対象出現回号

出現間隔は1~6回までが多い?





上の左の表から右の表のようにロト6の2等がミニロト状態になる当選番号を下のマクロで選んで見ました。


Sub miniloto_like2()


i = 0: j = 1


 Sheets("リスト1").Select


Do Until Cells(i + 2, 2) = ""


     If Cells(i + 2, 6) <= 31 And Cells(i + 2, 7) >= 32 And Cells(i + 2, 8) <= 31 Then
 
  j = j + 1
 
   range(Cells(i + 2, 1), Cells(i + 2, 10)).Copy Cells(j, 31)
  
  End If
 
  i = i + 1


Loop
Cells(1, 30) = j - 1
   
End Sub



記事を書いた2日後の1373回で2等17、098、700円が出た?w 1375回も


1373回 01  10  13  18  20  41  ボーナス 11


1375回 02  05  21  22  31  38  ボーナス 28