用VBA设计的数独九宫格解答程序

冰水寒川

谢谢楼主

alk99

因为最近偶尔想用excel做数独游戏，所以我下载你的程序看了看，给你点建议：如果特别难的数独，在某种情况下必须先填入某个二选一的进行测试，可以用程序自动实现这种测试功能。我以前用c#写过一个winform的程序，就是这样做的，基本上可以在5轮之内做完整个数独

xmgino

香川群子 发表于 2010-7-6 21:47
我做了几个按照一般规律求解的方法，
比如行列宫唯一数，排除法等。

{:soso_e179:}

残风冷月

真是好东西，为人类，至少为我这个人类的进步贡献了一份力量，

gaogaohehe

先下了，有时间研究一下。支持。有意思。

rwl139

我也编一个数独vb，工作表范围在a1:i9,是个初步的就是只有唯一答案的，代码也不算多算，参与一下吧！
Sub 九宫()
Dim a(1 To 9) As Integer
For Each d In Range("a1:i9")
     If d = "" Then
        n = n + 1
       End If
     Next
'所定区域的确定
For m = 1 To n
For i = 1 To 9
  For j = 1 To 9
   If Cells(i, j) = "" Then
     x = (Int(i / 3.1)) * 3 + 1: y = (Int(j / 3.1)) * 3 + 1
   For Each h In Union(Range(Cells(1, j), Cells(9, j)), Range(Cells(i, 1), Cells(i, 9)), Range(Cells(x, y), Cells(x + 2, y + 2)))
         If h <> "" Then
          a(h) = 1
          End If
     Next
   '判断
    If a(8) + a(7) + a(6) + a(5) + a(4) + a(3) + a(2) + a(1) + a(9) = 8 Then
       For k = 1 To 9
            If a(k) <> 1 Then
            Cells(i, j) = k
           p = p + 1
            End If
        Next
      End If
   End If
     Erase a
   Next
   Next
   Next
     If p = n Then
  MsgBox "ok"
  Else: MsgBox "some err"
     End If
End Sub

zoechen99

太有才了哦。。。

ABALON

楼主真好，赞一个

yuliangexcel

欣赏学习一下

buyi23

给力，直接用了，谢谢分享