【文件属性】：
文件名称：excel汉子首拼代码
文件大小：1KB
文件格式：TXT
更新时间：2015-03-19 04:20:00
汉子首拼 excel
excel汉子首拼自动生成
先打开excel，再点击工具-宏-visual basic 编辑器
在编辑器中右键点击vbaproject，点插入-模块
再将下列代码考入模块中，
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 Len(sTemp) <> LenB(StrConv(sTemp, vbFromUnicode)) Then '是否为汉字
网友评论
- 挺不错的，自己还是不会写。