文件名称：Excel VBA 高效快速生成家谱世系图
文件大小：1.76MB
文件格式：XLS
更新时间：2018-08-06 06:13:16
Excel VBA 家谱 世系图
制作这个VBA之前，我参考过“聚宝瓶”家谱制作。针对其缺点，彻底重写了VBA，改进如下： 1.生成世系图的过程改为由下至上，从而达到了简化逻辑的效果。 2.紧密位图。若无必要，家族成员间不插入空列。 3.尽可能使用数组操作，减少直操作Excel表，加快速度。 4.代码中包含删除空白列的功能（以数组操作实现）。 经实际测试，在我的机器上，家族成员为1500时，“聚宝瓶”生成世系全图约需30分钟，而下面这个改进后 的VBA，家族成员为6500人时，生成世系全图只需1分钟。 注意： 1.为简化逻辑，子号与行号相同，且数据已经按世次、家族成员编码排序。 2.家族成员编码包含每个人从始祖到自己的排行信息，请用公式生或VBA生成(表中前3行含公式)。 3.测试数据与族谱表结构完全相同，是一个完全真实的家谱，因隐私原因，姓名全部改成了“测试”。 4.由于Excel2003有256列的列宽限制，所以此代码必须在Office2007以上版本运行。 5.代码中注释了打印设置相关的内容，必须接有打印机的才能使用相关控制。 长夜飞翔 2015.7.17