摘要:
Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And tmp <= 45252) Then getpychar = "A" ElseIf (tmp >= 45253 And tmp <= 45760) Then g 阅读全文
摘要:
Option Explicit Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。 Dim i%, temp$ PY = "" For i = 1 To Len(TT) temp = Asc(Mid$(TT, i, 阅读全文