说明: 制作这个VBA之前,我参考过“聚宝瓶”家谱制作。针对其缺点,彻底重写了VBA,改进如下: 1.生成世系图的过程改为由下至上,从而达到了简化逻辑的效果。 2.紧密位图。若无必要,家族成员间不插入空列。 3.尽可能使用数组操作,减少直操作Excel表,加快速度。 4.代码中包含删除空白列的功能(以数组操作实现)。 经实际测试,在我的机器上,家族成员为1500时,“聚宝瓶”生成世系全图约需30分钟,而下面这个改进后 的VBA,家族成员为6500人时,生成世系全图只需1分钟。 注意: 1.为简化逻辑,
<cyfx2288> 上传 | 大小:1mb