如何定义汉字笔画自动计算的自定义函数？

作者：绿色风分类：时间：2022-08-17 浏览：96

楼主 BIN_YANG168	Q：怎样用自定义函数自动计算汉字笔画，如：中山公园变为：(4)(3)(4)(7) A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码： Function getbh(hz As String) As String Dim LenHz As Byte, i As Integer, Astr As String * 1, V As String LenHz = Len** For i = 1 To LenHz Astr = Mid(hz, i, 1) On Error Resume Next C = "(" & Application.WorksheetFunction.VLookup(Astr, Sheets("笔画库").Range("a1:b6764"), 2, False) & ")" If Err.Number <> 0 Then C = "()" Err.Clear End If V = V & C Next getbh = V End Function 然后在A1单元格输入需要的汉字，在其他单元格输入=getbh (A1)即可。注意要加载一个笔画库，详见附件汉字笔画函数.rar
2楼余方方	谢谢分享
3楼 winlph	学习了,谢谢分享!!!!!!!!!!!!!!!!!!!!!!!!!!!
4楼 fchy6868	什么时候能学得这么精呀！
5楼 fchy6868	什么时候能学得这么精呀！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表