趣味のエクセルマクロ

ナンバーズ4などの数字選択式宝くじデータ分析用の自作マクロおよびナンバーズ4の各種データリストなどをブログにしています。

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


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



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

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



Sub kakezan_kensaku() 'A列にかけ算番号表示する。3206は2306と入力


Dim bango As String
Dim i, j As Integer
 
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