記事目次　ナンバーズ4

たとえば当選番号1234を123、124、134、234に分けてそれぞれどのくらいの間隔で5094回分で1回～30回が何回出ているかマクロと関数を使って調べて見ました。

上のグラフの様に1回後に19回も出ていてビックリしました。
これはたとえば1234が出た後で1264や0234や1834や1230の様に出た事です。
（確率的には1000分の1が次回に出たことになる）

ストレート当選の攻略法として使っている人もいますが、どうなんでしょうか？
まあ、1回あたりに4種類の番号が出来て来るのでその後に出る可能性もありますかね？

去年5033回5834で5037回5804で4回後にストレート3桁584が出ていましたが、中々狙うのは難しい気もしますが？ひとつの方法としては面白いですね。

回数も間隔が極端に大きくなると減る様な感じですが？

1回後出現後のデータの一部
1236回　5559
1237回　5559　　次回に同じ番号当選
1618回　2067　　206？
1619回　2064　　206？
2007回　8799　　8？99
2008回　8999　　8？99
3240回　2312　　23？2
2341回　2392　　23？2
3901回　2574　　？574
3902回　5574　　？574

3桁を固定して10種類購入し当たる可能性は？
3桁未出番号でストレートを狙う？

？724の部分が出ていなかったので？
5079回に6724買いましたが4631でした。なんか0724～9724の10種類も気に成っていたが、次回5080回に3724出てビックリｗ
これは次回に0724～9724の10種類でストレート当選のタラレバでしたねｗ

ナンバーズ4のボックス3桁

マクロは下の様にしました。残りの3種類も入出力位置以外はほぼ同じです。

Sub three_keta千百十() 'ストレート順での3桁出現回号表示　1000通り
Dim i, bangoend As Integer

    Sheets("三桁分析").Select
    Range("j28:alu62").Clear
 
bangoend = Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(2, 15)
 saikeisanoff
 setretu = 0
 i = 4

  Do Until Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 3) = ""
      '千百十の番号を出して列を決める
      setretu = Val(Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 4) & Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ"). _
         Cells(i, 5) & Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 6))
        
    caunter = Application.Count(Range(Cells(28, 10 + setretu), Cells(45, 10 + setretu)))

    Cells(28 + caunter, 10 + setretu) = Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 1) '回号表示’
      
     If caunter = 0 Then '回号データの間隔を400行から記入する
        Cells(400 + caunter, 10 + setretu) = Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 1)
     Else
        Cells(400 + caunter, 10 + setretu) = Abs(Cells(27 + caunter, 10 + setretu) - Cells(28 + caunter, 10 + setretu))
     End If
  
      Cells(55 + caunter, 10 + setretu) = Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 3) '当選番号
    Cells(26, 10 + setretu) = caunter + 1 '累計の回数計算　
 
 If Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(i, 1) = bangoend Then

 saikeisanon
 Cells(27, 10 + setretu).Select
 
 End If
 i = i + 1
  If i = bangoend + 50 Then Exit Do
Loop
 
  Cells(14, 1) = Cells(24, ActiveCell.Column)
  Cells(15, 1) = Cells(17, ActiveCell.Column)
 
   Cells(29, 2) = "千百十"　
 For j = 1 To 1000　’未出3桁番号の出力
   If Cells(26, 9 + j) = 0 Then
     jj = jj + 1
    
    Cells(29 + jj, 2) = Cells(27, 9 + j) & "?"
     Cells(30 + jj, 2) = ""
  
   End If
 
 Next j

End Sub