Excel百科

专业的excel知识必备博客

当前位置:首页 / Excel批量处理 / Excel 解数独|如何在电脑上做数独表格

Excel 解数独|如何在电脑上做数独表格

栏目:Excel批量处理   日期:2020-12-23   浏览量:587

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:"

微信扫一扫,分享到朋友圈

Excel 解数独|如何在电脑上做数独表格
推荐产品
微信扫码关注纵横SEO
微信扫码关注纵横SEO
Excel百科微信:pbi365
Copright © 2020 Excel百科 All Rights Reserved. 粤ICP备13050212号 站点地图