数独（ナンプレ）を解く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

※数独（ナンプレ）を解くアルゴリズムの要点とパフォーマンスの検証

数独（ナンプレ）を解くアルゴリズムを例に、アルゴリズムの要点と、それによるパフォーマンスを検証します。一旦は完結したのですが、見直す機会があり、ほんの少し改善しました。赤太字の部分のみの変更です考え方としては、候補数値の数が少ないところから攻めるのですが、候補数値の数が2個くらいがいくつかあるのが普通です。

こちらの最終完成版のダウンロード