[分享]提取拼音首字母自定义函数

gvntw

Option Explicit
Function PY(myStr As String) As String
Dim LenInt As Integer, i As Integer
Dim Temp As String, oStr As String
On Error Resume Next

myStr = StrConv(myStr, vbNarrow)
LenInt = Len(myStr)

For i = 1 To LenInt
If Asc(Mid(myStr, i, 1)) > 0 Or Err.Number = 1004 Then oStr = ""
oStr = Application.WorksheetFunction.Lookup(Mid(myStr, i, 1), _
[{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}])
Temp = Temp & oStr
Next i

PY = Temp
End Function

2009-2/200921610362166354.zip

夜空星辰

这个深了，先拿来用用，拿来主义。想弄明白不容易啊。

gxyue

为什么我另建一个新的EXCEL表后,用PY这个函数就不行了.

原始积累

以下是引用gxyue在2009-4-16 10:14:00的发言：

为什么我另建一个新的EXCEL表后,用PY这个函数就不行了.

这个不是函数，是用VBA做的，你新表没有VBA语句，当然没有用了