[已解决]提取汉字的拼音首字母问题

徐淑颖

我自己百度了一个提取汉字拼音首字母的代码，但是里面有个问题解决不了，请老师指教下，就是英文下的括号，转换后还在，中文状态下的括号，转换后就没了（我也想保留），帮忙看下代码怎么修改下呢，谢谢！{:1012:} 新建文件夹.rar (32.24 KB, 下载次数: 14)

2017-6-21 11:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-6-21 13:39

加一句
Function pinyin(myStr As String) As Variant

    On Error Resume Next

    If myStr = "（" Or myStr = "）" Then pinyin = myStr: Exit Function
   
    myStr = StrConv(myStr, vbNarrow)

    If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = "": Exit Function

    pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"咑","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"帀","Z"}], 2)

End Function

跳转到最佳答案楼层

grf1973

加一句
Function pinyin(myStr As String) As Variant

    On Error Resume Next

    If myStr = "（" Or myStr = "）" Then pinyin = myStr: Exit Function
   
    myStr = StrConv(myStr, vbNarrow)

    If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = "": Exit Function

    pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"咑","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"帀","Z"}], 2)

End Function

徐淑颖

grf1973 发表于 2017-6-21 13:39
加一句
Function pinyin(myStr As String) As Variant

好的，谢谢，我试试！

徐淑颖

grf1973 发表于 2017-6-21 13:39
加一句
Function pinyin(myStr As String) As Variant

管用，谢谢！{:1712:}