[解决多音字]汉字转拼音的完美解决方案[12.11.29更新]

win2009 · 发表于 2015-2-22 06:43

这个是全网vb语言最完美的解决方案

xiaoduan660 · 发表于 2015-3-1 08:57

请问能不能做一个支持64位的Excel汉字转拼音功能呀，你的那个只能支持32位系统！真的很需要64位的！这是我的QQ:349987395谢谢了！

lfhome · 发表于 2015-3-6 11:09

谢谢，下载学习了！

xiaoduan660 · 发表于 2015-3-11 09:07

请问能不能做一个支持64位的Excel汉字转拼音功能呀，你的那个只能支持32位系统！真的很需要64位的！这是我的QQ:349987395谢谢了！

缔造者 · 发表于 2015-4-6 10:01

下载了Hztopy 20121129最新版，经测试对于多音字仍未完美解决。
例如：=Hztopy("车马炮"," "),结果为：chē mǎ pào，实际应是 jū mǎ pào
因为车马炮是象棋棋子的名称。

学不完用不尽 · 发表于 2015-4-6 22:35

本帖最后由学不完用不尽于 2015-4-7 13:27 编辑

用Vba调用时，第一参数为什么不能是数组？
提示“编译错误：ByRef参数类型不符” 。第一参数引用cells(i,1)时正常。
请指点：

Sub 首字母()
Dim r As Integer, i As Integer
Dim ar, br
With Worksheets("测试")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
ar = .Range("a2:a" & r).Value
ReDim br(1 To r, 1 To 1)
For i = 1 To r - 1
br(i, 1) = HzToPy(ar(i, 1), " ", False, True, True)
Next
.Range("b2").Resize(r - 1) = br
End With
End Sub

复制代码

zongyj · 发表于 2015-4-7 12:45

拼音之间能不能自动加空格

学不完用不尽 · 发表于 2015-4-7 13:24

谢谢吴姐！
用cstr(ar(i,1))测试成功，Hztopy("车马炮"," ")=chē mǎ pào,Hztopy("車马炮"," ")=jū mǎ pào
请问吴姐：
我的win7，同时装有2003和2010版的excel，使用2003版的汉字转拼音函数获取首字母时，为什么是小写而不是大写？

学不完用不尽 · 发表于 2015-4-7 20:18

再次谢谢吴姐的热情回答！
我没找到upper函数，只好用ucase()函数了。
吴姐，有空整个“搜狗拼音输入法”的。

学不完用不尽 · 发表于 2015-4-8 14:00

谦虚的吴姐，期待您更多的佳作！！

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

[解决多音字]汉字转拼音的完美解决方案[12.11.29更新]

点评

点评

点评

点评