- 博客(1)
- 收藏
- 关注
原创 比较简短的拼音首字母自定义函数
Function pinyin(ByVal r As Range) As StringConst hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"Dim i As Long, j As Byte, temp As StringFor i = 1 To Len(r.Text)For j = 1 To 24If Asc(Mid(r.Te
2007-05-24 22:43:00 2818
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人