求数独VBA解法

luoyuke

怎么增加一个宏代码，在 9x9 的空白单元格中填入数字，‌使得每一行、‌每一列以及每一个 3x3 的子网格‌中的数字 1 到 9 都不重复

huanghai22

无脑循环一下不就行了

yynrzwh

https://club.excelhome.net/forum ... amp;_dsign=e29c439f

醉眼看尘世

参与一下。硬拷数学填法

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, vTemp, t#
   
    Application.ScreenUpdating = False
    t = Timer
    br = RndNumCount(1, 9, 9)
    ReDim ar(1 To 9, 1 To 9)
   
    For i = 1 To UBound(ar)
        ar(i, 1) = br(i)
        vTemp = ar(i, 1)
        For j = 1 To 8
            vTemp = ar(i, 1) + j
            ar(i, j + 1) = IIf(vTemp Mod 9 = 0, 9, vTemp Mod 9)
        Next j
    Next i
   
    [A1].Resize(9, 9) = ar
    Application.ScreenUpdating = True
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.0000") & "  秒", 64
End Sub

Function RndNumCount(MinNum&, MaxNum&, CountNum&)
    Dim i&, n&, ar, xNum&, temp&
   
    Application.Volatile
    If MaxNum < MinNum Then temp = MaxNum: MaxNum = MinNum: MinNum = temp
    If CountNum > MaxNum - MinNum + 1 Then RndNumCount = "无解": Exit Function
    ReDim ar(1 To CountNum): n = 1
    Randomize
    Do While n <= CountNum
        xNum = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
        ar(n) = xNum
        For i = 1 To n
            If ar(i) = xNum Then Exit For
        Next i
        If i = n Then n = n + 1
    Loop
   
    RndNumCount = ar
End Function

gwjkkkkk

.................

luoyuke

yynrzwh 发表于 2024-8-13 21:32
https://club.excelhome.net/forum.php?mod=viewthread&tid=1092452&_dsign=e29c439f

感谢分享！！

luoyuke

huanghai22 发表于 2024-8-13 19:59
无脑循环一下不就行了

看不了代码呀，想学习下！

luoyuke

huanghai22 发表于 2024-8-13 19:59
无脑循环一下不就行了

看不了代码，

luoyuke

gwjkkkkk 发表于 2024-8-13 23:17
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, vTemp, t#

感谢!!