コード例
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte, a(1, 1) As Byte, h As Byte
For i = 0 To 1
For j = 0 To 1
a(i, j) = Int(2 * Rnd) + 1
h = 1
If j > 0 Then
For k = 0 To j - 1
If a(i, k) = a(i, j) Then
j = j - 1
h = 0
End If
Next
End If
If h = 1 Then
If i > 0 Then
For k = 0 To i - 1
If a(k, j) = a(i, j) Then
i = i - 1
h = 0
End If
Next
End If
End If
Next
Next
For i = 0 To 1
For j = 0 To 1
Cells(5 + i, 2 + j) = a(i, j)
Next
Next
End Sub
参考ファイル１
今回のコードは
Dim i As Byte, j As Byte, k As Byte, a(1, 1) As Byte, h As Byte
For i = 0 To 1
For j = 0 To 1
a(i, j) = Int(2 * Rnd) + 1
色の付いている部分1と2をそれぞれ2と3に変更すれば、
３行３列１ブロック数独になります。
（ただし、罫線はエクセルから手で入れてあります。）参考ファイル２
また、それぞれ3と4に変更すれば、
４行４列１ブロック数独になります。
参考ファイル３
さらに、
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte, a(10, 10) As Byte, h As Byte, n As Byte
n = Cells(5, 12)
For i = 0 To n - 1
For j = 0 To n - 1
a(i, j) = Int(n * Rnd) + 1
h = 1
If j > 0 Then
For k = 0 To j - 1
If a(i, k) = a(i, j) Then
j = j - 1
h = 0
End If
Next
End If
If h = 1 Then
If i > 0 Then
For k = 0 To i - 1
If a(k, j) = a(i, j) Then
i = i - 1
h = 0
End If
Next
End If
End If
Next
Next
For i = 0 To n - 1
For j = 0 To n - 1
Cells(7 + i, 2 + j) = a(i, j)
Next
Next
End Sub
と改良してシートを若干いじれば
と一般化できます。
参考ファイル４
これで実験すると分かりますが、数秒以内でできるのはn=4までで
n=5だと１０分以上待っても結果が出力されません。
５行５列でこうですから、９行９列では歯が立ちません。
まして、そこへブロックの条件を入れたら、
永久に答えが出ないことがお分かりになると思います。
ところで、n=5だとプログラムが正常に動いているか分かりません。
そこで、次話において動きが分かるようにコードを変更してみましょう。
