第16講 全セルリスト構造解析（全体リスト構造解析）によって数独（ナンプレ）を解く
第４話 初期化のコード例

Sub syokika()
　　
　　Dim k As Byte
　　
　　mx = 9
　　For k = 0 To 8
　　　　lst(k) = k + 1
　　Next
　　
End Sub

参考ファイル２

次の課題です。
いよいよセル(1,2)のリスト構造解析をする
Sub cellkaiseki()

End Sub
の記述に入りますが、
いきなりでは難しいですから、
ステップを踏みながらリスト構造解析の任を果たします。
最初のステップは数字が使えるかどうかの判定をします。

そのためにグローバル変数h(8)を用意します。
Dim mah(8, 8) As Byte, lst(8) As Byte, mx As Byte, h(8) As Byte
この配列の役割は
k（kは１～９の内のどれかの数字)の数字を使ってもいいときは h(k-1) = 1
kの数字を使っててはだめなときは h(k-1) = 0
としてkが使えるかを判定することです。
k-1となっている理由は、添え字が0から始まるからです。


初期化Sub syokika()において、
h(0) = 1
h(1) = 1
h(2) = 1
h(3) = 1
h(4) = 1
h(5) = 1
h(6) = 1
h(7) = 1
h(8) = 1
としておきます。
そして、cellkaisekiではまず

の２行目である

の入っている数字を点検します。
９と３が入っていますので、
h(9-1) = 0
h(3-1) = 0
とします。次に,３列目である

の点検に入り、
h(3-1) = 0
h(7-1) = 0
とします。










最後にブロック

を探査して、
h(9-1) = 0
h(1-1) = 0

以上より

h(0) = 0
h(1) = 1
h(2) = 0
h(3) = 1
h(4) = 1
h(5) = 1
h(6) = 0
h(7) = 1
h(8) = 0
すなわち
h(1-1) = 0
h(2-1) = 1
h(3-1) = 0
h(4-1) = 1
h(5-1) = 1
h(6-1) = 1
h(7-1) = 0
h(8-1) = 1
h(9-1) = 0
から使ってもいい数字は
｛２，４，５，６，８｝であることが判明します。
リスト数(候補数）も集合｛２，４，５，６，８，１，３，７，９｝も
判定配列h(k)を使えば決定できます。

以上のヒントを参考にcellkaisekiにおいて、数独問題

を解析して

h(0) = 0
h(1) = 1
h(2) = 0
h(3) = 1
h(4) = 1
h(5) = 1
h(6) = 0
h(7) = 1
h(8) = 0
となるようなプログラムを考えて下さい。
さらに、hyoujiとシートもいじり、実行ボタンを押すと

となるようにして下さい。
消去プログラム
Private Sub CommandButton2_Click()
　　
　　Range("B14", "J22").Select
　　Selection.ClearContents
　　Range("M5", "V9").Select
　　Selection.ClearContents
　　Cells(2, 1).Select

End Sub
も改良して、消去ボタンを押すと

のようにの部分も消えるようにして下さい。

第３話へ　第５話へ

初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba マクロ 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
ＶＢ講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ