高效快速生成家谱世系图

内掌柜 · 发表于 2017-8-1 00:37

非常感谢，超赞！

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

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

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

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

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

ndytw · 发表于 2017-8-11 15:43

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

不能保存，提示隐含模块编译错误：y简转繁

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

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

ndytw 发表于 2017-8-11 15:43
不能保存，提示隐含模块编译错误：y简转繁

你应该用的是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:07

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

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

yy1968 · 发表于 2017-9-5 00:14

感谢分享！

刘某人100 · 发表于 2017-10-22 20:10

老铁，感觉相当复杂，不懂用，还是EX的版本有问题？我用WPS的。

forever0307 · 发表于 2017-11-17 15:39

感谢楼主分享！

goldenfar · 发表于 2017-12-13 22:40

已下载，感谢楼主分享！

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

[原创] 高效快速生成家谱世系图