Excel巧解数独(VBA)完整版.docxVIP

Excel巧解数独（VBA） 山东省荣成市委党校?????? 刘振华 教育生活·测试空间中的数独题，然而我们需要几个小时能解出来呢？想象着我们苦思冥想的样子，阴险的徐诚编辑不知要邪恶地笑多少次呢！想象着我们苦思冥想的样子，阴险的徐诚编辑不知要邪恶地笑多少次呢！今天我就给大家一个方法：用我们平日常用的电子表格Excel来帮助我们求解数独。这个方法不但可以求解16宫数独，而且还可以求解4宫甚至25宫数独，甚至还可以将某宫格数独的所有可能解全部求出！比如4宫格数独共有288种解，只用几秒钟就可以将其全部求出。有了这样的方法，一方面可以让徐诚编辑的阴谋不再得逞，另一方面也可让我们领略一下经常使用的电子表格的另一些功能。电子表格Excel准备好了么？让我们开始吧！? 一、基础工作这部分工作的任务是自动格式化电子表格，并根据用户选择来格式化数独。这部分工作只需要做一次，以后可以永远使用：?1、打开Excel，按下Alt+F11键或通过菜单“工具”、“宏”来打开“Visual Basic 编辑器”。（如图1）?2、在打开的窗口中，选择菜单“插入”、“模块”并将以下代码输入????Dim ggN%?????????? 宫格数Dim ggSN%????????? 总数组维数Dim SD$()????????? 初始化后的内容Dim SDV$()???????