Excel 解数独|如何在电脑上做数独表格
Excel 解数独
c1 填阶数,加一按钮,代码如下:
Private Sub CommandButton1_Click()
Application.EnableEvents = False
Dim N, i, j As Integer
Dim s As Long
N = CInt(Range("c2").Value)
'检查阶数
If N 253 Or N Mod 2 = 0 Then
MsgBox "请输入一 3至253 间的奇数。 ", 64, "设置幻方阶数"
Exit Sub
End If
'删除原为数据
Dim nRow As Integer
nRow = Range("d65536").End(xlUp).Row
nRow = IIf(nRow < 4, 4, nRow)
Rows("4:"
微信扫一扫,分享到朋友圈