level 1
UvU淡然
楼主
这个EXCEL中取汉字拼音首字的一个函数，里面用到了EXCEL自带的LookUp函数，如果要在ACCESS里面用，应该怎么修改呢？
Function Py$(ByVal rng$)
Dim i%, pyArr, str$, ch$
pyArr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
str = Replace(Replace(rng, " ", ""), " ", "") '去空格和Tab
For i = 1 To Len(str)
ch = Mid(str, i, 1)
If ch Like "[一-龥]" Then '如果是汉字，进行转换
Py = Py & WorksheetFunction.Lookup(Mid(str, i, 1), pyArr)
Else
'Py = Py & UCase(ch) '如果不是汉字，直接输出
End If
Next
End Function
2024年01月13日 12点01分
1
Function Py$(ByVal rng$)
Dim i%, pyArr, str$, ch$
pyArr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
str = Replace(Replace(rng, " ", ""), " ", "") '去空格和Tab
For i = 1 To Len(str)
ch = Mid(str, i, 1)
If ch Like "[一-龥]" Then '如果是汉字，进行转换
Py = Py & WorksheetFunction.Lookup(Mid(str, i, 1), pyArr)
Else
'Py = Py & UCase(ch) '如果不是汉字，直接输出
End If
Next
End Function
