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

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

ナンバーズ4 の かけ算パターン

記事目次 ナンバーズ4


4桁の内1桁x1桁で残りの2桁がどうなるか?8899なら9981に近い番号になる。
9999等はかけ算にならない番号


ナンバーズ4 の かけ算展開(2桁) 



検索して番号を出力欄に表示する。

(黄色塗りはbox番号の1ヶ所変えればちょうどかけ算になる番号とする----隠れかけ算

Sub kakezan_kensaku() 'A列にかけ算番号表示する。3206は2306と入力
Dim bango As String
Dim i As long, j As long
  Sheets("boxかけ算").Select
  Range("e2:n715").Select
   bango = Application.InputBox("かけ算番号入力して下さい")
     If Len(bango) <> 4 Then End '4桁で入力しないと処理せず終了
  For i = 1 To 715
    For j = 1 To 10
     If Cells(i + 1, j + 4) = bango Then
        Cells(i + 1, 1) = bango  'かけ算番号をA列に表示する
      End If
    Next j
 Next i
End Sub


ナンバーズ4 かけ算番号(~5144回)


ナンバーズ4かけ算にならない



                <シングル・シングル以外のかけ算番号>

記事目次 ナンバーズ4