第１話 第14講第９話数独自動生成アプリを改良して、データを読み込めるようにする
皆さんまず第14講第９話の添付ファイルを開いて下さい。
これは数独自動生成アプリでした。
このマクロを改良して、問題を解くソフト（アプリ）を開発します。
まず、シートの方を次のように改良して下さい。
そして、次のように問題を入力しておきましょう。
さらに、コードの
Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
n = 9
Randomize (Timer)
Call f(0) 'n次数独作成プロシージャ
End Sub
Sub f(g As Integer)
If cn = 100 Then Exit Sub
・・・
・・・
tobi1:
a(gy, gx) = i
If g + 1 < n * n Then
Call f(g + 1)
If cn = 100 Then Exit Sub
Else
Call h
If cn = 100 Then Exit Sub
End If
tobi:
Next
End Sub
Sub h()
Dim i As Integer, j As Integer, s As Integer, am As Integer, w As Integer, p As Integer, q As Integer
p = 0
For i = 0 To n + 3
q = 0
If (i Mod 4) = 0 Then
p = p + 1
For j = 0 To n + 3
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = "*"
Next
Else
For j = 0 To n + 3
If (j Mod 4) = 0 Then
q = q + 1
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = "*"
Else
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = a(i - p, j - q)
End If
Next
End If
Next
cn = cn + 1
tobi:
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
のピンクの部分を改良して、
数独が１個だけ解答図に表示されるように変更して下さい。
また、青い部分もいじって問題図と解答図の内容のみが消えるようにしてださい。
まだ、根本的な改良を加えていませんので、
表示されたものは問題の解答ではなく、
空欄の場合のランダムに最初に作った解答です。
