ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 22132|回复: 26

[分享] 只用函数实现SUDOKU(标准九宫数独)的自动计算

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-1-18 13:58 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 xinnem 于 2012-3-26 22:33 编辑

----本贴献给Excel和Sudoku的爱好者----

最近无意中在网上看到SUDOKU这个数学游戏(有点out了,现在才知道~),接触之后发现在这个游戏真的非常有吸引力,既可以打发你一些闲时无聊的时间,又可以锻炼逻辑思维,可谓是一举两得哦~
开始的时候是在纸上写上每个空格的可能数,再进行计算。可是后来发现这样计算好慢,而且非常累,要比较每行、每列和每个九宫,有时候不注意还会写错。
作为Excel爱好者,遇到这种问题的时候,第一反应,肯定就是想拿Excel来实现:输入SUDOKU初盘之后,自动计算出每个空格里剩下可能的数。
有了这个想法之后,俺马上动手,三下五除二,每一会的功夫就做出来了,发现这个并不困难。

有了这个之后,算SUDOKU的速度就突然加快了好多了,不过后来发现自己SUDOKU的水平真的有限,遇到困难的题也是很难算出来,于是就有了用Excel来自动计算SUDOKU的想法。
但由于俺没有学过VBA,所以只能硬着头皮,用函数来计算。开始入手的时候,还真的不容易啊。大家都知道,Excel2003存在了一些"BUG",开始的时候,因为这些"BUG",俺就吃了不少苦头,调试出现问题的时候,只能反复查看公式,想办法避开这些"BUG"。而且Excel2003的最多迭代次数是30000,所以,怎么样减少计算次数也是关键...

哈哈,不过经过不懈努力,终于实现了,那是那个兴奋啊{:soso_e113:}
再经过后来算法调整之后,整个计算的稳定性和速度都提高很多了^_~
计算困难级别的题目,一般200步左右就可以算出来了,计算骨灰级的,大概在1000~1500步之内可以算出来。

俺在这里跟各位大虾们分享这份成果啦(请看附件 SUDOKU计算.rar (239.59 KB, 下载次数: 2929) ),有兴趣,或者发现其中有什么问题的,都可以提出来交流哦~

小贴士:计算的时候,要记得要启动迭代计算哦~,而且最多迭代次数最好写到2000

注*  取消保护密码是:1128xinyi

小恩

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-1-18 14:48 | 显示全部楼层
sheet有密码~

TA的精华主题

TA的得分主题

发表于 2012-1-18 14:55 | 显示全部楼层
有密码,2010打开时提示有循环引用错误。

TA的精华主题

TA的得分主题

发表于 2012-1-18 14:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我不知道这种分享有什么意义,什么都不能看。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-18 15:02 | 显示全部楼层
leekingzhou 发表于 2012-1-18 14:57
我不知道这种分享有什么意义,什么都不能看。。。

不好意思,怕打开的时候你们不小心删掉了公式,导致运行出错,所以加了密,请见谅~
密码:1128xinyi

TA的精华主题

TA的得分主题

发表于 2012-1-18 15:05 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-18 15:05 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
leekingzhou 发表于 2012-1-18 14:55
有密码,2010打开时提示有循环引用错误。

工具-选项-重新计算-迭代计算,打上√之后,把最多迭代计算改成2000就可以了~

TA的精华主题

TA的得分主题

发表于 2012-1-18 15:13 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-18 15:18 | 显示全部楼层
yubenjamin 发表于 2012-1-18 15:13
把公式发出来看下了。

用到公式的地方比较多,你取消保护和取消隐藏后就可以看到~
密码:1128xinyi

TA的精华主题

TA的得分主题

发表于 2012-1-18 15:29 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 15:28 , Processed in 0.050447 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表