摘要: Option Explicit Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。 Dim i%, temp$ PY = "" For i = 1 To Len(TT) temp = Asc(Mid$(TT, i, 阅读全文
posted @ 2021-09-06 15:39 ZYDTT 阅读(1816) 评论(0) 推荐(0)