第６講 数独を作ろう！
第６話 数独プログラム改良
数独プログラム改良例
改良したのはhyouji()の部分です。
では改良前のプログラムソースと
改良後のプログラムソースを掲載してみましょう。
改良前
a = (cn - 1) Mod 10
s = Int((cn - 1) / 10)
For i = 0 To n * n - 1
For j = 0 To n * n - 1
Cells(i + 7 + (n * n + 1) * s, j + 1 + (n * n + 1) * a) = mah(i, j)
Next
Next
改良後
a = (cn - 1) Mod 10
s = Int((cn - 1) / 10)
For i = 0 To n * n - 1
For j = 0 To n * n - 1
ii = Int(i / n)
js = Int(j / n)
Cells(i + 7 + ii + (n * n + n) * s, j + 1 + js + (n * n + n) *
a) = mah(i, j)
If ii > 0 Then
Cells(6 + (n + 1) * ii + (n * n + n) * s, j + 1 + js + (n *
n + n) * a) = "*"
End If
If js > 0 Then
Cells(i + 7 + ii + (n * n + n) * s, (n + 1) * js + (n * n +
n) * a) = "*"
End If
If ii < n - 1 And js < n - 1 Then
Cells(6 + (n + 1) * (ii + 1) + (n * n + n) * s, (n + 1) * (js
+ 1) + (n * n + n) * a) = "*"
End If
Next
Next
青がピンクに変更されています。
変更点を順に解説していきましょう。
ii = Int(i / n) js = Int(j / n)
はそれぞれｉをｎで割った商（ｉｓとしたいところですがこれはイズとなりＶｉｓｕａｌＢａｓｉｃからチェックされ不可とされてしまいます。）、
ｊをｎで割った商を表しています。ｎ＝３の場合、つまり９（３の２乗）次数列の場合で以降話を進めます。
| 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | |
| 0 | 1 | 2 | 3 | * | 4 | 5 | 6 | * | 7 | 8 | 9 |
| 1 | 4 | 5 | 6 | * | 7 | 8 | 9 | * | 1 | 2 | 3 |
| 2 | 7 | 8 | 9 | * | 1 | 2 | 3 | * | 4 | 5 | 6 |
| 3 | * | * | * | * | * | * | * | * | * | * | * |
| 4 | 2 | 1 | 4 | * | 3 | 6 | 5 | * | 8 | 9 | 7 |
| 5 | 3 | 6 | 5 | * | 8 | 9 | 7 | * | 2 | 1 | 4 |
| 6 | 8 | 9 | 7 | * | 2 | 1 | 4 | * | 3 | 6 | 5 |
| 7 | * | * | * | * | * | * | * | * | * | * | * |
| 8 | 5 | 3 | 1 | * | 6 | 4 | 2 | * | 9 | 7 | 8 |
| 9 | 6 | 4 | 2 | * | 9 | 7 | 8 | * | 5 | 3 | 1 |
| 10 | 9 | 7 | 8 | * | 5 | 3 | 1 | * | 6 | 4 | 2 |
いくつかの場合を見て動きを追ってみましょう。
①０≦ｉ≦２，０≦ｊ≦２すなわち水色の場合
ｉｉ＝０，ｊｓ＝０となります。
このときはCells(i + 7 + ii + (n * n + n) * s, j + 1 + js + (n * n + n) * a)= mah(i,
j)は
Cells(i + 7 + (n * n + 1) * s, j + 1 + (n * n + 1) * a) = mah(i,
j)と同じになります。
つまり水色を順に埋めていきます。
②ｉ＝３かつｉ≠ｊの場合
ｉ＝３，ｉｉ＝１となりCells(6 + (n + 1) * ii + (n * n + n) * s, j + 1 + js + (n * n + n) * a) = "*"は
Cells(6 + (n + 1) * 1+ (n * n + n) * s, j + 1 + js + (n * n + n) * a) =
"*"
となり紺色を順に埋めていきます。尚オレンジはｊｓの存在のため飛ばされてしまいます。
例えばｊ＝２のとき、ｊｓ＝０でj + 1 + jsは２であるのに対して
ｊ＝３ではｊｓ＝１となりj + 1 + jsは４となり、オレンジのところが飛ばされてしまうのが分かると思います。
③ｊ＝７かつｉ≠ｊの場合
ｊ＝７，ｊｓ＝２となりCells(i + 7 + ii + (n * n + n) * s, (n + 1) * js + (n * n + n) * a) = "*"は
Cells(i + 7 + ii + (n * n + n) * s, (n + 1) * 2 + (n * n + n) * a) = "*"
となり青（(n + 1) * 2は８でこれはｊ＝７場合になります。j + 1でｊとは１つずれていますので）を順に埋めていきます。
②尚オレンジは２の場合と同様にｉｉの存在のため飛ばされてしまいます。
例えばｉ＝２のとき、ｉｉ＝０ではi + 7 + iiは９（i番号２に相当、i + 7によってｉ番号と７ずれているため）であるのに対して
ｉ＝３ではｉｉ＝１となりi + 7 + iiは１１（i番号４に相当）となり、オレンジのところが飛ばされてしまうのが分かると思います。
④６≦ｉ≦８，３≦ｊ≦５の場合
ｉｉ＝２，ｊｓ＝１となります。
このときはCells(i + 7 + ii + (n * n + n) * s, j + 1 + js + (n * n + n) * a)= mah(i,
j)は
Cells(i + 7 + 2 + (n * n + n) * s, j + 1 + 1 + (n * n + n) * a)= mah(i,
j)となり
これは薄ピンクを順に埋めていきます。
⑤ｉ＝ｊ＝２またはｉ＝２，ｊ＝６またはｉ＝６，ｊ＝２またはｉ＝ｊ＝６のとき
ｉ＝ｊ＝２ならｉｉ＝０，ｊｓ＝０で
Cells(6 + (n + 1) * (ii + 1) + (n * n + n) * s, (n + 1) * (js + 1) + (n * n + n) * a) = "*"
はCells(6 + 4 + (n * n + n) * s, 4 + (n * n + n) * a) = "*"
となりこれは（３，３）の場合でそこに*が入ります。
読者の方は、①から⑤の場合のｉ，ｊを例示されている以外も動かしトレースしましょう。
また、①から⑤以外の場合を考えて、表のようにうまく表示されることを確認しましょう。
さて、それでは読者の皆さん、数独プログラム改良例をさらに改良して
答えがもっと数独らしくなるようにランダム要素を入れてみましょう。
第５話へ 第７話へ
