ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创]汉字笔画函数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-10-17 06:03 | 显示全部楼层 |阅读模式

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

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

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

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

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

有兴趣的还可以扩容。

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

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2004-10-17 09:35 | 显示全部楼层
已经试用了,不错,加个花。

TA的精华主题

TA的得分主题

发表于 2004-10-17 16:30 | 显示全部楼层
做得非常好,水平真高,建议做一个区位码速查表。谢谢

TA的精华主题

TA的得分主题

发表于 2004-10-18 02:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-10-18 10:09 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-10-19 18:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错,你输入了这么多汉字,累坏了吧?

TA的精华主题

TA的得分主题

发表于 2004-10-21 11:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

太好了.

真是做了一大贡献!

TA的精华主题

TA的得分主题

发表于 2004-11-1 08:35 | 显示全部楼层

辛苦了!!

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

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

TA的精华主题

TA的得分主题

发表于 2004-11-1 09:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
喝彩!

TA的精华主题

TA的得分主题

发表于 2004-11-1 13:25 | 显示全部楼层

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

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

WM8nxPIz.txt (30.12 KB, 下载次数: 415)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 16:44 , Processed in 0.049174 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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