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

iAI

怎么溢出了。。。。

运行时错误"6"

alzeng

出错高亮的代码是什么？

hyjius

运行时错误‘6’
溢出
高亮字母为 i = i + 1

iAI

运行时错误‘6’
溢出
高亮字母为 i = i + 1

alzeng

修改 Dim str$, i As Byte, j As Byte, k As Byte为
Dim str$, i%, j%, k%，原数据类型限定了个数不能大于256 。

iAI

名册里姓名3000左右，在输入那就非常卡。点下A列中的单元格，卡的很，能否，在单位格限制显示。只有等到输入首字母过些时间再显示呢。谢谢

hyjius

出现
If rng Like UCase("*" & str & "*") Then高亮
是怎么回事？

商人

楼主是高人，谢谢分享，受教了
发现个小小小小小小...问题，覃作为姓，一般念Qín
不过这个是多音字，念tán姓貌似比较少

[ 本帖最后由 商人 于 2010-10-12 03:06 编辑 ]

jiandke

太给力了，非常感谢。

gzy001

Function py(ByVal rng As Range)
        Dim i%, k%, str$
   
        str = Replace(Replace(rng, " ", ""), "　", "")
        For i = 1 To Len(str)
            k = 1
            Do Until Mid("芭嚓搭蛾发噶哈击噶咔垃妈拿哦啪期然撒塌挖挖挖昔压匝咗", k, 1) > Mid(str, i, 1)
                k = k + 1
            Loop
            py = py & Chr(64 + k)
        Next
    End Function
代码在那个地方修改，使大写变成小写，多谢！！！！