数独（ナンプレ）を解くVBAに挑戦№4

最終更新日：2017-11-26

数独（ナンプレ）を解くVBAに挑戦№4

数独をExcelマクロVBAで解いてみます№4、
前回は、愚直に人間の判定とおなじ事をVBAコード化してみましたが続きになります。

空き配列を探す

SuAry：9×9の2次元配列（Integer）
i1：配列の1次元のインデックス
i2：配列の2次元のインデックス

未回答（値が0）の配列を探し、見つかったら、i1,i2に入れる。

未回答があったら、True
すべて埋まっていたら、False

Function getBlank(ByRef SuAry() As Integer, ByRef i1 As Integer, ByRef i2 As Integer) As Boolean
　　For i1 = 1 To 9
　　　　For i2 = 1 To 9
　　　　　　If SuAry(i1, i2) = 0 Then
　　　　　　　　getBlank = True
　　　　　　　　Exit Function
　　　　　　End If
　　　　Next
　　Next
　　getBlank = False
End Function

ここは単純に、、配列内から0を探すだけになります。

数値の仮り置きを繰り返す・・・再帰処理

getBlankで空き配列（値が0）をみつけ、1から順に、
chkSuを使い、数値が入れられるかの判定をします。
入れられる場合は、配列にその数値を設定。
入れられない場合は、2、3、・・・と9までカウントアップする。
数値が入れられる場合は、
　・配列に数値を入れ、
　・自信をCall（再帰処理）
　・Trueを設定し、Exit
9まで行って、いずれも入れられない場合は、
　・配列に0を入れる
　・Falseを設定

Function trySu(ByRef SuAry() As Integer) As Boolean
　　Dim i1 As Integer
　　Dim i2 As Integer
　　Dim su As Integer
　　If getBlank(SuAry(), i1, i2) = False Then
　　　　trySu = True
　　　　Exit Function
　　End If
　　For su = 1 To 9
　　　　If chkSu(SuAry(), i1, i2, su) = True Then
　　　　　　SuAry(i1, i2) = su
'　　　　　　Cells(i1, i2) = su
　　　　　　If trySu(SuAry) = True Then
　　　　　　　　trySu = True
　　　　　　　　Exit Function
　　　　　　End If
　　　　End If
　　Next
　　SuAry(i1, i2) = 0
'　　Cells(i1, i2) = ""
'　　DoEvents
　　trySu = False
End Function

太字部分が再帰処理となっています。

コメントアウトしている部分が、

途中結果のセルへの表示になります。

のんびり見たい場合は、この行を生かして下さい。

次回は、メイン処理を書いて完成になります。

№5へ続きます。

数独（ナンプレ）を解くVBAに挑戦 №1 №2 №3 №4 №5

※数独（ナンプレ）を解くアルゴリズムの要点とパフォーマンスの検証
こちらの最終完成版のダウンロード