真正可用Excel家谱录入表，可高效生成漂亮的世系图。

cyfx2288 · 发表于 2017-8-4 16:36

本帖最后由 cyfx2288 于 2017-8-6 11:10 编辑

最近的修改变动校大，最近刚才刚把主要的BUG去掉，及时上传。

cyfx2288 · 发表于 2017-8-7 21:18

不算新版本，只是成员表多加了一列，去掉一些BUG。

ndytw · 发表于 2017-8-10 23:13

cyfx2288 发表于 2017-8-7 21:18
不算新版本，只是成员表多加了一列，去掉一些BUG。

点击查询错误。

cyfx2288 · 发表于 2017-8-11 18:04

本帖最后由 cyfx2288 于 2017-8-11 19:30 编辑

你应该用的是Win10操作系统，我在Win7 + office2016(64位版)环境下测试过，没问题。
相关语句为：
#If VBA7 Then
Private Declare PtrSafe Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _
ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
#Else
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _
ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
#End If
这个判断可以保证WinXP-Win& + Ofifice2003-2016环境下正常运行，Win7以上环境没有测试。

cyfx2288 · 发表于 2017-8-11 18:06

本帖最后由 cyfx2288 于 2017-8-13 18:28 编辑

要是有人关注，我就更新，反之，这就是最后更新了。

ndytw · 发表于 2017-8-12 09:14

本帖最后由 ndytw 于 2017-8-12 09:16 编辑

cyfx2288 发表于 2017-8-11 18:06
要是有人关注，我就更新，反之，这就是最后更新了。

我用的在win764位和xp32位，excel2007，提示如下：保存和查询时均提示简转繁错误。

cyfx2288 · 发表于 2017-8-12 09:18

本帖最后由 cyfx2288 于 2017-8-12 09:19 编辑

554501178 家谱交流群，到群里直接联系吧。
Office2007是新版OFFIC的开山之作，其中很多地方不完善，不建议用。
直到OFFICE2010之后，这个版本才稳定下来。

Office2010/2013 与 Office2007的关系，有点象 OFFICE97 与 Office95之间的关系。

ndytw · 发表于 2017-8-12 17:08

cyfx2288 发表于 2017-8-12 09:18
554501178 家谱交流群，到群里直接联系吧。
Office2007是新版OFFIC的开山之作，其中很多地方不完善，不建 ...

好的。谢谢

ardu95 · 发表于 2017-12-18 06:35

好东西留存

00bdq · 发表于 2017-12-18 17:37

感谢楼主的分享，学习中

		自动登录	找回密码
密码			免费注册

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