汉字转拼音首字的函数及其灵活运用

alzeng · 发表于 2011-6-29 21:13

py = py & Chr(96 + k)

gzy001 · 发表于 2011-7-2 08:23

一改到小写，就有点不对，望大师看一下是什么原因造成的，另外能否请大师在百忙中，把代码注释，使我等笨鸟能多学习，谢谢！！！

alzeng · 发表于 2011-7-2 17:23

试试做一个转换：
py = py & LCase(Chr(64 + k))

alzeng · 发表于 2011-7-2 17:33

Option Compare Text '设定字符比较的格式
Function py(ByVal rng As Range)
Dim i%, k%, str$
str = Replace(Replace(rng, " ", ""), "　", "") '去除各式空格
For i = 1 To Len(str) '遍历字符串str中每一个字符
k = 1
Do Until Mid("芭嚓搭蛾发噶哈击噶咔垃妈拿哦啪期然撒塌挖挖挖昔压匝咗", k, 1) > Mid(str, i, 1) '遍历预定字串，直至其中某一字符的值大于str中的顺序指定字符
k = k + 1
Loop
py = py & Chr(64 + k) '所得的k值加64后用Chr函数得到其对应字母
Next
py = LCase(py) '转换为小写
'字符串"芭嚓搭蛾发噶哈击噶咔垃妈拿哦啪期然撒塌挖挖挖昔压匝咗"用汉字拼音从A至Z的节点字符
End Function

复制代码

gzy001 · 发表于 2011-7-3 18:44

谢谢，学习了！！！！
现在转换成小写一点问题都没有了，谢谢了！！

[ 本帖最后由 gzy001 于 2011-7-3 18:59 编辑 ]

gzy001 · 发表于 2011-7-3 18:57

如:一念大师 Ynds

gzy001 · 发表于 2011-7-3 19:42

PY = Mid(PY, 1, 1) & LCase(Mid(PY, 2, Len(PY) - 1)) '首字母大写，后为小写
我试了下也能用，不知对不对，谢谢！！！

[ 本帖最后由 gzy001 于 2011-7-3 20:28 编辑 ]

alzeng · 发表于 2011-7-3 20:02

原帖由 gzy001 于 2011-7-3 19:42 发表
PYI = Mid(PYI, 1, 1) & LCase(Mid(PYI, 2, Len(PYI) - 1)) '首字母大写，后为小写
我试了下也能用，不知对不对，谢谢！！！

可以用，但比较麻烦，试试这样：

复制代码

alzeng · 发表于 2011-7-3 20:05

gzy001 · 发表于 2011-7-3 20:29

谢谢了，我试一下。

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

[原创] 汉字转拼音首字的函数及其灵活运用