VBAサンプル集
数独(ナンプレ)を解くVBAに挑戦№5

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2017-11-26

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


数独をExcelマクロVBAで解いてみます№5、
メイン処理を書いて完成になります。


メイン処理のSub

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


Sub main()
  Dim SuAry(1 To 9, 1 To 9) As Integer
  Dim i1 As Integer
  Dim i2 As Integer
  
  Erase SuAry
  For i1 = 1 To 9
    For i2 = 1 To 9
      If Cells(i1, i2) = "" Then
        Cells(i1, i2).Font.Color = vbBlue
      Else
        SuAry(i1, i2) = Cells(i1, i2)
      End If
    Next
  Next
  
  Call trySu(SuAry)
  
  Range("A1:I9").Value = SuAry
  
  If getBlank(SuAry(), i1, i2) = False Then
    MsgBox "解読成功"
  Else
    MsgBox "あれれ・・・"
  End If
End Sub
最初に、数値の入っていないセルの文字色を変更して見やすくしています。

一応最期で、全て埋まっているかを確認しています。

数独の問題で、解が存在しない場合があるのか、ちょっと私には分かりません・・・

また、

逆に、複数の解が存在する場合は、当然あるでしょう。

ここでは、最初に見つかった時点で終了しています。

複数の解を求める場合は、


前回の、trySu、の中の、

If trySu(SuAry) = True Then
  trySu = True
  Exit Function
End If

このExitを消すと、解が見つかっても、続けて次に進みます。

そこで、同じく、trySu、の中の、

If getBlank(SuAry(), i1, i2) = False Then
  trySu = True
  ' ここでシートへ
  Exit Function
End If

このExitの直前に、シートに書き出してやるよわうにすれば良いはずです。

興味があれば、チャレンジしてみて下さい。

いずれにしろ、解けない問題はないと思うのですが、

あまり、数独には詳しくないので、なんとも・・・

もし、不都合な点があれば、メールでも貰えるとありがたいです。

これで完成です。


途中結果を表示しなければ、

予想より処理速度は速かったと感じました。

でも、のんびり途中結果をみるもの悪くないですね。

いろいろな問題で試してみて下さい。

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



以下では、このアルゴリズムを再検証し、より効率的なロジックへ変更しています。

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

上記の変更で、大抵の問題は瞬時に溶けるようになっています。


数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証
数独(ナンプレ)を解くアルゴリズムを例に、アルゴリズムの要点と、それによるパフォーマンスを検証します、数独(ナンプレ)を解くVBAに挑戦 ここでは、とにかく全ての数字を当てはめていくという、いわば全数チェックでの解法を使いました。考察するまでもなく、かなりの無駄がある事は明白です。
こちらの最終完成版のダウンロード



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

エクセルでファイル一覧を作成
アメブロの記事本文をVBAでバックアップする№1
数独(ナンプレ)を解くVBAに挑戦№1
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証№1
ナンバーリンク(パズル)を解くVBAに挑戦№1
ナンバーリンクを解くVBAのパフォーマンス改善№1
オセロを作りながらマクロVBAを学ぼう
他ブックへのリンクエラーを探し解除
Excelシートの複雑な計算式を解析するVBA
Excel将棋:マクロVBAの学習用(№1)
Excel囲碁:万波奈穂先生に捧ぐ


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

import文(パッケージ・モジュールのインポート)|Python入門(9月24日)
例外処理(try文)とexception一覧|Python入門(9月23日)
リスト内包表記|Python入門(9月22日)
Pythonの引数は参照渡しだが・・・|Python入門(9月21日)
lambda(ラムダ式、無名関数)と三項演算子|Python入門(9月20日)
関数内関数(関数のネスト)とスコープ|Python入門(9月18日)
関数の定義(def文)と引数|Python入門(9月18日)
組み込み関数一覧|Python入門(9月17日)
辞書(dict型)|Python入門(9月16日)
入力規則への貼り付けを禁止する|VBA技術解説(9月16日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




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


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



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