投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

excel中如何将文本转换成拼音缩写

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 47

步骤如下：

1.ALt+F11，打开VBE界面，左上角空白处，点击右键，插入模块

excel中如何将文本转换成拼音缩写插图1

2.在模块的空白处，粘贴上如下代码：

Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = “A”
Case -20283 To -19776: pinyin = “B”
Case -19775 To -19219: pinyin = “C”
Case -19218 To -18711: pinyin = “D”
Case -18710 To -18527: pinyin = “E”
Case -18526 To -18240: pinyin = “F”
Case -18239 To -17923: pinyin = “G”
Case -17922 To -17418: pinyin = “H”
Case -17417 To -16475: pinyin = “J”
Case -16474 To -16213: pinyin = “K”
Case -16212 To -15641: pinyin = “L”
Case -15640 To -15166: pinyin = “M”
Case -15165 To -14923: pinyin = “N”
Case -14922 To -14915: pinyin = “O”
Case -14914 To -14631: pinyin = “P”
Case -14630 To -14150: pinyin = “Q”
Case -14149 To -14091: pinyin = “R”
Case -14090 To -13319: pinyin = “S”
Case -13318 To -12839: pinyin = “T”
Case -12838 To -12557: pinyin = “W”
Case -12556 To -11848: pinyin = “X”
Case -11847 To -11056: pinyin = “Y”
Case -11055 To -2050: pinyin = “Z”
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function

excel中如何将文本转换成拼音缩写插图3

3.关闭VBE界面，返回Excel，就可以像正常函数一样使用自定义的Getpy函数，来取得文本的拼音缩写了

excel中如何将文本转换成拼音缩写插图5

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/26128.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2024年4月2日 pm1:56
下一篇 2024年4月3日 am9:07

相关推荐

发表评论

登录后才能评论