VBA函数汇总
又小雪666
本博客用于记录编程学习中遇到的问题及解决方法,方便查找。还有一些生活中的问题及感悟。
展开
-
【VBA】汉字转换全拼函数
Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase Asc("了"): pinyin = "le"Case Asc("什"): pinyin = "shen"Case Asc("还"): pinyin = "hai"Case Asc("着"): pinyin = "zhe"Case Asc("讴"): ...原创 2020-04-27 10:12:55 · 1904 阅读 · 0 评论 -
【VBA】汉字转换成每个字首字母
Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711:...原创 2020-04-27 10:11:56 · 1316 阅读 · 0 评论