[已解决]数独 / 九宫的问题 用 VBA如何解?

qiuzhuvba

3*3的九宫图
要求1: 将1-9的数字按照一定的方式填入九格内， 使每一行，每一列，以及两条对角线上的和都分别相等。

例如都等于15
例子图:


要求2: 将2-10的数字按照一定的方式填入九格内， 使每一行，每一列，以及两条对角线上的和都分别相等。





要求3: 将3-11的数字按照一定的方式填入九格内， 使每一行，每一列，以及两条对角线上的和都分别相等。


要如何写VBA才能一次把所有可能都填出来.
因为有三个要求.希望最后能看到三段VBA代码..非常期待...

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-15 08:42

………………

跳转到最佳答案楼层

dsmch

http://club.excelhome.net/thread-928462-1-1.html

qiuzhuvba

dsmch 发表于 2015-3-14 17:46
http://club.excelhome.net/thread-928462-1-1.html

276951438
294753618
438951276
492357816
618753294
672159834
816357492
834159672

每一个格就是 答案??

运行代码 得到这么一串...看不明白

dsmch

如第4行结果，按照九宫格从左到右、从上到下顺序填写，即得到楼主模拟的结果，其他类似

dsmch

………………