第14講 数独の自動生成
第7話 数独自動生成アプリの完成

023
を実現するプログラム例

Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()

  CommandButton2_Click
  cn = 0
  n = 9
  Call f(0) 'n次数独作成プロシージャ
End Sub

Sub f(g As Integer)

  If cn = 100 Then Exit Sub
  
  Dim i As Integer, j As Integer, jy As Integer, jx As Integer
  Dim gy As Integer, gx As Integer
  
  gy = Int(g / n)
  gx = g Mod n
  For i = 1 To n
    If gx > 0 Then
      For j = 0 To gx - 1
        If i = a(gy, j) Then GoTo tobi
      Next
    End If
    If gy > 0 Then
      For j = 0 To gy - 1
        If i = a(j, gx) Then GoTo tobi
      Next
    End If
    If g > 0 Then
      For j = gy - (gy Mod 3) To gy - (gy Mod 3) + 2
        For k = gx - (gx Mod 3) To gx - (gx Mod 3) + 2
          If g = n * j + k Then GoTo tobi1
          If i = a(j, k) Then GoTo tobi
        Next
      Next
    End If
tobi1:
    a(gy, gx) = i
    If g + 1 < n * n Then
      Call f(g + 1)
      If cn = 100 Then Exit Sub
    Else
      Call h
    End If
tobi:
  Next
  
End Sub

Sub h()

  Dim i As Integer, j As Integer, s As Integer, am As Integer, w As Integer
  

  For i = 0 To n - 1
    For j = 0 To n - 1
      Cells(6 + i + (n + 1) * Int(cn / 5), 2 + j + (n + 1) * (cn Mod 5)) = a(i, j)
    Next
  Next
  cn = cn + 1
  
tobi:
  
End Sub


Private Sub CommandButton2_Click()
  
  Rows("5:20000").Select
  Selection.ClearContents
  Cells(1, 1).Select
  
End Sub

参考ダウンロード添付ファイル


数独は完成していますが、
ブロックを示す線がないとわかりにくいですね。
そこで、境界線を*で引いて、


としましょう。
表示関数hをいじって下さい。
また、シートの方は全部センタリングの設定に変えてあります。

第6話へ 第8話へ
004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ