ExcelマクロVBAサンプル集 | 数独(ナンプレ)を解くVBAに挑戦2 | Excelマクロの実用サンプル、エクセルVBA集と解説



最終更新日:2014-12-15

数独(ナンプレ)を解くVBAに挑戦2


数独をExcelマクロVBAで解いてみます2、
解法の具体的なアルゴリズムをもう少し掘り下げます。

解法

1.シートの問題を、9×9の2次元配列(Integer)に入れる。

  配列は1 To 9として、シート位置に合わせる事で理解しやすくします。
  全ての配列が0以外になった時点で回答が出来たと判定
2.配列内から、値が0(回答が見つかっていない)の位置をみつける
3.値が0の配列に1〜9を順に入れられるか判定
  数独のルールに従い判定
4.数値を入れられる場合は、配列に数値をセットし、次へ
  9まで確認し、いずれも入れられない場合は、前に戻る
5.2〜4を全ての配列が0以外になるまで繰り返す。
6.配列をシートに書き出す。
  回答の数値には、区別できるように色を付ける

大体こんな感じになります。

用意するFunctionプロシージャー

数独ルール判定

Function chkSu(ByRef SuAry() As Integer, ByVal i1 As Integer, ByVal i2 As Integer, ByVal su As Integer) As Boolean
SuAry:9×9の2次元配列(Integer)
i1:配列の1次元のインデックス
i2:配列の2次元のインデックス
su:確認する数値

指定の数値が、指定の配列位置に入れられるかの判定
つまり、数独のルール判定プロシージャーになります。
入れられる場合は、True
入れられない場合は、False
空き配列を探す

Function getBlank(ByRef SuAry() As Integer, ByRef i1 As Integer, ByRef i2 As Integer) As Boolean
SuAry:9×9の2次元配列(Integer)
i1:配列の1次元のインデックス
i2:配列の2次元のインデックス

未回答(値が0)の配列を探し、見つかったら、i1,i2に入れる。
未回答があったら、True
すべて埋まっていたら、False
数値の仮り置きを繰り返す・・・再帰処理

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

メイン処理のSub

シートのA1〜I9を配列(1 To 9, 1 To 9)に入れる。
trySuを呼ぶ・・・再帰プロシージャー
配列(1 To 9, 1 To 9)をシートのA1〜I9に入れる。

次回は、上記をもとに、具体的なVBAコードを書きます。

3へ続きます。

数独(ナンプレ)を解くVBAに挑戦 1 2 3 4 5





同じテーマ「ExcelマクロVBAサンプル集」の記事

数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証4
ナンバーリンク(パズル)を解くVBAに挑戦8
ナンバーリンクを解くVBAのパフォーマンス改善3
アメブロの記事本文をVBAでバックアップする6

新着記事 ・・・新着記事一覧を見る

スプレッドシートが非常に遅い、高速化するには|Google Apps Script入門(1月17日)
画像のトリミング(PictureFormat,Crop)|ExcelマクロVBAサンプル集(12月27日)
シート保護|Google Apps Script入門(12月24日)
表示の固定|Google Apps Script入門(12月24日)
グラフ|Google Apps Script入門(12月21日)
入力規則|Google Apps Script入門(12月13日)
並べ替え|Google Apps Script入門(12月12日)
メモの挿入・削除と改行文字|Google Apps Script入門(12月6日)
リンクの挿入・編集・削除|Google Apps Script入門(12月6日)
セルに数式を入れる|Google Apps Script入門(12月1日)

アクセスランキング ・・・ ランキング一覧を見る

1.RangeとCellsの使い方|ExcelマクロVBA入門
2.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
3.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.CSVの読み込み方法|ExcelマクロVBAサンプル集
9.変数とデータ型(Dim)|ExcelマクロVBA入門
10.VBAのFindメソッドの使い方には注意が必要です|ExcelマクロVBA技術解説



  • >
  • >
  • >
  • 数独(ナンプレ)を解くVBAに挑戦2

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP