[原创]汉字笔画函数

守柔 · 发表于 2004-10-17 06:03

JpF05m5N.rar (78.17 KB, 下载次数: 4590)

说明：论坛乃至网上迄今未曾找到比较专业地应用于OFFICE数据库的简体汉字笔画库，作者充分利用汉字简体字库，EXCEL程序、WORD程序和笔画计算器，反复编程，才获得一个以EXCEL为载体的笔画库在这个笔画库中，收录了6763个常用简体汉字，你可以通过筛选的方法，看一下每个笔画的汉字数量，也可以得到指定数量的汉字。它的出台弥补了汉字的缺憾（作者窃以为）。

当然有了这个数据库自定义函数，自然不在话下了。你只要在单元格中输入getbh（引用单元格）就可以了。

作者的心愿：汉字作为中国文化的载体，亦作为OFFICE中交流的主要形式通过在论坛中的努力学习与创造完成了两个心愿，一个是对汉字拼音编程的加注，可以一次性完成32000左右的汉字拼音。另一个是对汉字笔画数据库，在WORD与EXCEL中，有按笔画和拼音排序却没有能得到相应笔画数的函数和工具。

本函数的另一个用途，对于喜爱易经朋友也是一个福音，笔画测字在网上比比皆是。

有兴趣的还可以扩容。

相关链接：http://club.excelhome.net/viewthread.php?tid=65883

笔画库工作表保护：123，此工作表已被深度隐藏。VBA未设保护

办公之星 · 发表于 2004-10-17 09:35

已经试用了，不错，加个花。

wengjl · 发表于 2004-10-17 16:30

做得非常好，水平真高，建议做一个区位码速查表。谢谢

ladhome · 发表于 2004-10-18 02:38

谢谢版主的精品大作。

清风_ll · 发表于 2004-10-18 10:09

楼主辛苦了,感动中

hxhgxy · 发表于 2004-10-19 18:56

不错，你输入了这么多汉字，累坏了吧？

Rowen · 发表于 2004-10-21 11:08

太好了.

真是做了一大贡献!

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

辛苦了！！

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

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

jame · 发表于 2004-11-1 09:55

喝彩！

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

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

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

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

[原创]汉字笔画函数

评分

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