第16講 全セルリスト構造解析（全体リスト構造解析）によって数独（ナンプレ）を解く
第３話 代入と表示のコード例

Dim mah(8, 8) As Byte, lst(8) As Byte, mx As Byte

Private Sub CommandButton1_Click()
　　
　　dainyuu
　　syokika
　　cellkaiseki
　　hyouji

End Sub

Sub dainyuu()
　　
　　Dim i As Byte, j As Byte
　　For i = 0 To 8
　　　　For j = 0 To 8
　　　　　　If Cells(4 + i, 2 + j) = "" Then mah(i, j) = 0 Else mah(i, j) = Cells(4 + i, 2 + j)
　　　　Next
　　Next
　　
End Sub
Sub hyouji()
　　
　　Dim i As Byte, j As Byte
　　For i = 0 To 8
　　　　For j = 0 To 8
　　　　　　Cells(14 + i, 2 + j) = mah(i, j)
　　　　Next
　　Next
　　
End Sub

Sub syokika()

End Sub

Sub cellkaiseki()

End Sub

Private Sub CommandButton2_Click()
　　
　　Range("B14", "J22").Select
　　Selection.ClearContents
　　Range("M5", "V9").Select
　　Selection.ClearContents
　　Cells(2, 1).Select

End Sub

参考ファイル１

さて、次の課題はlst(k)とmxの初期化を担当する
Sub syokika()

End Sub
のコードを考えることです。
初期化は
｛１，２，３，４，５，６，７，８，９｝と９個です。

第２話へ　第４話へ

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

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