[原创]汉字笔画函数

cpali3023 · 发表于 2004-11-1 08:35

辛苦了！！

版主：用下面代码打开你的笔划库，不过我觉得此自定义函数还不太完善，可以把上述的字库做为一个以逗号相隔的字符串数据库固化到程序中，避免引用此函数时带着一个字库表，很不方便。

Sub allshow() For Each Sheet In ActiveWorkbook.Sheets Sheet.Visible = True Next End Sub

cpali3023 · 发表于 2004-11-1 13:25

通过split函数进行上述文本数据库数据的提取，速度会慢，但方便一些。

WM8nxPIz.txt (30.12 KB, 下载次数: 415)

cpali3023 · 发表于 2004-11-1 15:54

版主：

在你函数的基础上加了一个数据库引用自定义函数，这样的话就不需要笔划表（数据库在程序中）啦！，不过速度慢了许多。

O3pHObVX.rar (65.49 KB, 下载次数: 334)

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

已转化为文本变量的笔划数据库