ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] 真正可用Excel家谱录入表,可高效生成漂亮的世系图。

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2016-10-28 11:37 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 cyfx2288 于 2016-10-28 13:05 编辑

去年我发布了生成世系图的改进版,现在我把自己真正使用的家谱录入表发布出来,供大家参考。表中使用的家族成员数据是真实的,只是为避免泄漏个个隐私,把所有姓名都改成了字母和数字。
此表中的家族成员约1.48万,生成一次世系全图约需几十秒(看电脑配置了)。右侧家族树可以随意点选,点那个名字,就自动查询并以此名字为录入起点。任何时候点“世系图生成”都自动从当前起点生成之后家族世系图。第17行是一些选项,可选择世次范围、繁简模式、录入、校对模式。其中父系、母系功能刚开始修改,尚未完成母系功能。
这个表的界面可能比不上专门的Windows应用程序,但实用性绝对比那些专有程序高。至少我自己是实在受不了那种拍脑代编出来的程序后,才专门给自己做了这个家谱录入表,用来完成本家族的家谱整理、录入事宜。
注意:本表校对模式的使用。手工从成员表中把校对标志中的内容清除掉,在录入界面中选择校对模式,所有的人员将变成橙色,这时就可以对家谱进行膛一校对,每核对一个名字,点一个录入区域对应名字的“校核”标志,录入家谱来源,就以让该名字变为正常状态,这样并未改动数据即可实现可靠的校对。该功能看上去简单,但在真实家谱录入中却非常实用,我是真实为录入家谱,难免反复校对,因此才专门加了这个小功能。

上传时我忘记删除掉“家谱生成”按钮了,现在家谱生成功能正在修改中,会报错的哦,别喷我。


补充内容 (2021-10-31 21:01):
QQ群:554501178 不定期更新。

自动生成的世系图

自动生成的世系图

家谱录入界面

家谱录入界面

家谱录入表(真正可用).rar

895.5 KB, 下载次数: 11410

家谱 录入 世系图 真正可用

评分

17

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-11-20 08:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 cyfx2288 于 2022-11-20 16:08 编辑

Excel “溯源家谱” 主要功能内容:

  1.优化了世系图生成算法,速度提高约30%;
  2.版面进行了调整,提供了“紧密”、“五服”、“松散”选项,更便于阅读;

  3.家族树可上下自由滚动、向右自由展开、伸缩;
  4.控制区域可显示,可隐藏。
  5、带有两个组测试数据,其中的“闻喜赵氏”测试数据,可演示逐页校对
如图:


01.jpg

五服

五服

校对

校对
04.jpg

选择家族

选择家族

溯源家谱2022.11.20.rar

1.47 MB, 下载次数: 215

Excel 家谱

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-12-16 19:54 | 显示全部楼层
本帖最后由 cyfx2288 于 2022-12-17 21:12 编辑

修改内容:修正BUG。

溯源家谱2022.12.17.rar

1.34 MB, 下载次数: 575

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2016-10-28 11:46 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-10-28 12:40 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
感谢分享,支持原创。点赞。

TA的精华主题

TA的得分主题

发表于 2017-2-22 18:09 | 显示全部楼层
本帖最后由 flywhc 于 2017-2-22 18:18 编辑

不能用啊,excel2013提示文件坏了,试图修复后删除了\xl\vbProject.bin.part,里面宏都没有了请查查吧

TA的精华主题

TA的得分主题

发表于 2017-2-22 19:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个家谱录入软件好。

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-9 16:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 cyfx2288 于 2017-5-12 13:09 编辑

unfu2010   网友找我要最终版,此论坛中,我没有回复消息的权限,只能在这里回复。
我是边整理家谱,边改进这个表,截止现在,其中Word版谱书生成这部分还没改好,因此,还没有什么最终版。只有当前我正在使用的版本。我改进此表的唯一标准就是方便家谱录入、校对,准确反映家族成员关系。这表原计划父系、母系双谱系家族表,但是由于目前我重点先录入了自己家族父系家谱,所以母系家族方面的功能没有注意修正。
当前我自己使用的版本,与去年发布的版本又有了一些细节上改进,主要增加了如下内容:
记录姓氏(实际录谱才发现,族谱中居然真的有改姓他姓的亲族),录谱时记录纸质家谱页码、生按纸质家谱页码,生成单页世系图,世系图中增加了批注信息,用来显示每个人的附加信息,等等。
另外:录谱过程中,我遇到了“嗣孙”,同一人过继两次的情况,这是超出我原先预想的。“嗣孙”此表可处理。同一人两次过继,暂时不能处理。
相对于当前网上发布的,只是细节上的变化,没有质的变化,仅从录入的角度而言,没有区别。

这次我仅仅隐去了我家族成员的真实姓名,其他所有的一切,包括家族结构、数据全都与我当前正在使用的完全一致。
具体使用方法,请各位自己试偿试吧。
如果有人想清空此表数据,然后用它录入自己的家族信息,那么只要删除“成员”表中第三行之后的数据,手工修改第二行数据为自己家族先祖,即可开始录入了。
成员表中,第一行是标题行,第二行是虚拟数据,任何家族的第一个人,其父号指向第二行。第三行开始才是真正家族数据。
凡是没有父号的家族成员,点“建谱”按钮之后,都会自动将其父号指向第二行数据,其世次置为1世。AH列之后的信息,建谱时会自动重建。
此表没有设置数据删除的功能,若确实录错了数据,请按成员编号,在成员表中找到该行记录予以删除。若该家族成员后面还有子嗣,请手工修正,否则此表必然出错。此表数据检查方面做得不够,在录入时故意录入非法数据或不合理数据而造成的问题,此表处理不了。
此表配偶录入稍有点特别,录入时偿试一下就知道了。这表使用了VBA所以必须使用微软OFFICE,我测试过带VBA功能的WPS,虽然可以运行,但由于个别指令不兼容,导致部分功能异常。
建议用Win7+OFFICE2010以版版本打开此表。其他环境下不能保证正常。由于我在此论坛只有上传2M文件的权限,所以本次上传的附件打包成了两个小文件。

家谱20170509.part1.rar

1.95 MB, 下载次数: 8117

家谱20170509.part2.rar

1.09 MB, 下载次数: 3621

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-5-10 21:02 | 显示全部楼层
cyfx2288 发表于 2017-5-9 16:25
cunfu2010   网友找我要最终版,此论坛中,我没有回复消息的权限,只能在这里回复。
我是边整理家谱,边改 ...

感谢无私精神

TA的精华主题

TA的得分主题

发表于 2017-5-17 00:05 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
可以电话联系吗?

TA的精华主题

TA的得分主题

发表于 2017-5-17 00:07 | 显示全部楼层
cyfx2288 发表于 2017-5-9 16:25
unfu2010   网友找我要最终版,此论坛中,我没有回复消息的权限,只能在这里回复。
我是边整理家谱,边改 ...

可以留个电话咨询吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-17 16:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
电话不方便在网上公布。QQ:512699747
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-6-26 16:04 , Processed in 0.044694 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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