提取汉语拼音的首字

小刀

EXCEL技術雜壇中有朋友问道，如何提取汉语拼音的首字。 函数法：利用vlookup（可以在本站找Vlookup相关教材），但有一定的局限性，效率也是问题。 vba法：是最佳的选择，群友提出某高人用vb编写要几百行。我要说的是如果用Excel VBA几行就行，为什么这么说呢？因为Excel里利用Vlookup工作表函数和Evaluate方法可以快捷的计算出结果。 通过这个例子可以看出Excel VBA独有的优势。代码如下 Public Function MyPY(ByVal vText As Variant) As String Application.Volatile Dim strResult As String Dim lStart As Long On Error Resume Next For lStart = 1 To Len(vText) strResult = strResult & Application.Evaluate("VLookup(""" & Mid(vText, _ lStart, 1) & _ """,{""吖"",""A"";""八"",""B"";""嚓"",""C"";""咑"",""D"";""鵽"",""E"";""发"",""F"";""猤"",""G"";""铪"",""H"";""夻"",""J"";""咔"",""K"";""垃"",""L"";""嘸"",""M"";""旀"",""N"";""噢"",""O"";""妑"",""P"";""七"",""Q"";""囕"",""R"";""仨"",""S"";""他"",""T"";""屲"",""W"";""夕"",""X"";""丫"",""Y"";""帀"",""Z""},2,1)") Next MyPY = strResult End Function 200792811195788615.rar (7.09 KB, 下载次数: 9)

2011-6-25 15:56 上传

点击文件名下载附件 顺便提一句，编写VBA代码，最好按一定的格式标准进行编码。现在论坛的VBA代码按标准编写的很少，好的编码习惯利于提高编写效率，利于后期维护，利于阅读。自定义函数的编码就是遵循上面的框架，并使用临时变量，本例中就是strResult。 ************************************************************ 上文自定义函数提取的是纯汉字，但“中华人民共和国123（辽宁）”要求返回“ZHRMGHG（LN）” “中华人民共和国1-辽宁”返回“ZHRMGHG-LN”怎么办？ 关键点： 1、排除A~Z a~z 0~9，就是所有字母和数字。 2、判断是否为每个提取的字符是否汉字。一般判断为汉字可以利用ASC码值判断，这里我提供另一种方法。 整体代码如下： Public Function SuperPY(ByVal vText As Variant) As String Application.Volatile Dim strResult As String Dim lStart As Long Dim sTemp As String On Error Resume Next For lStart = 1 To Len(vText) sTemp = VBA.StrConv(Mid(vText, lStart, 1), vbNarrow) If sTemp Like "[!A-Z !a-z !0-9]" Then '排除什么可以在like表达式中修改 If Len(sTemp) <> LenB(StrConv(sTemp, vbFromUnicode)) Then '是否为汉字 strResult = strResult & Application.Evaluate("VLookup(""" & Mid(vText, _ lStart, 1) & _ """,{""吖"",""A"";""八"",""B"";""嚓"",""C"";""咑"",""D"";""鵽"",""E"";""发"",""F"";""猤"",""G"";""铪"",""H"";""夻"",""J"";""咔"",""K"";""垃"",""L"";""嘸"",""M"";""旀"",""N"";""噢"",""O"";""妑"",""P"";""七"",""Q"";""囕"",""R"";""仨"",""S"";""他"",""T"";""屲"",""W"";""夕"",""X"";""丫"",""Y"";""帀"",""Z""},2,1)") Else strResult = strResult & Mid(vText, lStart, 1) End If End If Next SuperPY = strResult End Function 200792818443321829.rar (8.37 KB, 下载次数: 13)

2011-6-25 15:56 上传

点击文件名下载附件

liangwen

楼主真不愧是高人中的高人啊！

yuhai0012

楼主是独狐求败

上东阳光

谢谢，收藏

hhzjxss

QUOTE:

以下是引用yuhai0012在2007-9-28 11:36:33的发言：
楼主是独狐求败

东方不败！

[em01][em01]

泡沫飞逝

怎么弄啊？

zhaoxiaofeng

收下

小刀

我又加了点料

[em01][em01][em01]

hxqzccct

好东东

  楼主

[em17][em17][em17]

Luckyguy2008

学习[em17][em17][em17]