ナンバーズ4 の かけ算パターン
4桁の内1桁x1桁で残りの2桁がどうなるか?8899なら9981に近い番号になる。
9999等はかけ算にならない番号
検索して番号を出力欄に表示する。
(黄色塗りは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
<シングル・シングル以外のかけ算番号>