ExcelマクロVBAサンプル集
数独(ナンプレ)を解くVBAに挑戦№1

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

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


数独は、一般に「ナンバープレース(ナンプレ)」と呼ばれ、外国では「sudoku」と呼ばれているようです、


この数独をExcelマクロVBAで解いてみようと言う事です。

解き方は、とにかく片っ端から数字を当てはめていくという、なんとも芸の無い方法です。(笑)

作ってみようと思い立ったのですが、そもそも数独はあまりやったことが無く、

効率的な解き方とかは、私は知らないので、手当たり次第に数値を当てはめていけば何とかなるだろうと・・・

とりあえず何とかなりましたので、掲載します。

数独のルール

・空いているマスに1~9のいずれかの数字を入れる。
・縦、横の各列及び、太線で囲まれた3×3のブロック内に同じ数字が複数入ってはいけない。

非常に単純なルールなので、プログラム練習には向いていますね。

このようなシートを用意します。

マクロ VBA サンプル画像

問題は、適当に探して下さい。

上記は、ネットで適当に探しました。

もし、著作権みたいなものがあるならゴメンナサイ。

実行結果

VBAを実行すると、以下のように回答がでます。
マクロ VBA サンプル画像
途中結果をセルに表示しなければ、

約1秒程度で回答がでます。

途中結果をセルに表示すると、かなり時間がかかります。

それだけ、試行錯誤の繰り返しだと言う事です。

でも、途中結果をセルに表示して、のんびり見ていると、

PCが試行錯誤している様が確認できて、結構楽しいです。

次回は、解法の具体的なアルゴリズムをもう少し掘り下げます。


№2へ続きます。

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



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



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

エクセルでファイル一覧を作成

VBAでサブフォルダ以下も含めて全てのファイル一覧を取得します。最初はサブフォルダは無視して、VBAにある関数とステートメントだけで作成します、その後に、FileSystemObjectで再帰処理をすることで、全てのサブフォルダも取得するようにしていきます。
アメブロの記事本文をVBAでバックアップする№6
前回で、当初の目的である、指定月のすべての記事一覧を取得し、記事本文のバックアップが完成しました。取得した記事本文は、このエクセルファイルと同一フォルダのサブフォルダ_HTML_に保存されます。タイトル、テーマ、更新日時はシートに一覧で表示されます。
数独(ナンプレ)を解くVBAに挑戦№5
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証№4
数独(ナンプレ)を解くアルゴリズムを例にアルゴリズムの要点とそれによるパフォーマンスを検証します。一旦は完結したのですが見直す機会がありほんの少し改善しました。赤太字の部分のみの変更です 考え方としては候補数値の数が少ないところから攻めるのですが候補数値の数が2個くらいがいくつかあるのが普通です。
ナンバーリンク(パズル)を解くVBAに挑戦№8
最後に、枠の大きさを10×10に固定せずに、Application.InputBoxでセル範囲を指定して実行するように修正したものを掲載しておきます。理論的には、大きさの制限はありませんが、10×18でやったところ、4時間半もかかってしまいました。
ナンバーリンクを解くVBAのパフォーマンス改善№3
以下が完成したVBAコードの全てになります。10×18で、18分 12×12で、16分 という結果となりました。もちろん、時間はたまたまテストした問題における時間です。解けるまでの時間は問題に大きく左右されますので、あくまで目安です。
オセロを作りながらマクロVBAを学ぼう
ExcelマクロVBAでオセロ(リバーシ)を作っていきながら、マクロVBAを学んで行きましょう。目的は、マクロVBAの学習であり、思考を整理しVBAでプログラミングする学習です。従って、強いソフトを作ることが目的ではありませんので、最近流行のAIなんちゃら…なんていうのは考えるつもりはありません。
他ブックへのリンクエラーを探し解除するマクロ(変更前)
掲載しているVBAコードの最初に掲載したものになります。どのように変更したかを比べてみると、プロシージャー分割の参考になると思います。標準モジュール ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
Excelシートの複雑な計算式を解析するVBAの関数構文
複雑な計算式を解析するVBAで使う「関数構文」シートのサンプルです。ほぼ全ての関数を網羅しています、中には漏れもあるかもしれませんが、解析VBAで使うに十分な関数が入っています。引数のない関数は意味がないのですが、一覧にあるものはそのまま入れています。


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

Byte配列と文字コード関数について|VBA技術解説(8月20日)
PowerQueryの強力な機能をVBAから利用する方法|VBA技術解説(8月4日)
練習問題31(セル結合を解除して値を埋める)|VBA練習問題(7月30日)
練習問題30(マトリックス→リスト形式)|VBA練習問題(7月25日)
Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.ひらがな⇔カタカナの変換|エクセル基本操作
10.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説



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

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


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




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