[分享]求汉字拼音偏旁与笔划

andysky · 发表于 2008-4-2 08:20

本帖最后由 andysky 于 2012-10-10 22:03 编辑

参数为1计算拼音参数为2计算部首参数为3计算笔划数

使用方法：下载附件后，放在以下文件夹即可：

Excel 2003：C:\Program Files\Microsoft Office\Office11\XLSTART

Excel 2007：C:\Program Files\Microsoft Office\Office12\XLSTART

zlICRfj0.rar (124.01 KB, 下载次数: 332)

LangQueS · 发表于 2008-4-2 08:34

谢谢andysky版！

blueshirts · 发表于 2008-5-2 12:34

[em17]

xieyidh · 发表于 2008-5-4 11:07

怪事，放入文件夹和加载宏都无反应在。

woaicomputer · 发表于 2008-5-4 13:24

只可惜不支持繁体字！

andysky · 发表于 2008-5-4 13:49

QUOTE:

以下是引用xieyidh在2008-5-4 11:07:34的发言：
怪事，放入文件夹和加载宏都无反应在。

你不会是没有解压缩就放到文件夹里了吧？

水无形 · 发表于 2008-6-17 10:20

Function 汉字(单元格 As Range, 选项 As Byte)
If 选项 <> 1 And 选项 <> 2 And 选项 <> 3 Then 汉字 = "": Exit Function
汉字 = Application.WorksheetFunction.VLookup(单元格, ThisWorkbook.Sheets(1).Columns("A:D"), 选项 + 1, 0)
End Function

那么罗版是不是在加载宏文件SHEET(1)中列出了所有的汉字的这些条目呀？,这些资料原始哪里来的呢（不过这个我不关心）。

怎么才能看加载宏里面的原始表格内容呀，我发现改加载宏的名字可不允许？

kysdfkt · 发表于 2008-6-17 10:24

谢谢版主分享

YZLSZAJ · 发表于 2009-7-15 11:14

谢谢版主分享

ysese · 发表于 2009-8-13 20:16

支持 2000吗？

我的怎么不可以？

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