excel中如何将文本转换成拼音缩写
时间:2022-07-31 17:27:34
步骤如下:
1.ALt+F11,打开VBE界面,左上角空白处,点击右键,插入模块
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
3.关闭VBE界面,返回Excel,就可以像正常函数一样使用自定义的Getpy函数,来取得文本的拼音缩写了
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
win10显示模糊怎么调?win10显示模糊调节教程
![](https://img.aspxhome.com/file/2023/8/48528_0s.jpg)
win10电脑两边黑边怎么去掉?win10电脑去掉两边黑边教程
![](https://img.aspxhome.com/file/2023/7/48487_0s.jpg)
电脑ip地址怎么改不了?电脑ip地址改不了教程
![](https://img.aspxhome.com/file/2023/8/47938_0s.png)
Word 2003工具栏不见了怎么还原?还原Word 2003工具栏的4种方法
![](https://img.aspxhome.com/file/2023/2/34012_0s.jpg)
Word 2007另类妙用:快速保存网页
![](https://img.aspxhome.com/file/2023/2/22112_0s.jpg)
与大家分享一下有关word字号及间距的一些技巧
![](https://img.aspxhome.com/file/2023/6/32566_0s.gif)
怎样在word中设置段落间距?
![](https://img.aspxhome.com/file/2023/2/19802_0s.jpg)
win10多屏显示设置方法?win10如何设置多屏显示?
![](https://img.aspxhome.com/file/2023/1/47171_0s.jpg)
word2013文档段落快速选中行.段落.句子的方法
![](https://img.aspxhome.com/file/2023/3/21323_0s.jpg)
如何使用微软Word的修订功能编辑文档
![](https://img.aspxhome.com/file/2023/2/23812_0s.jpg)
Win10笔记本外接显示器分辨率怎么调?
![](https://img.aspxhome.com/file/2023/1/49351_0s.jpg)
Excel2010软件冻结首行首列的操作方法分享
![](https://img.aspxhome.com/file/2023/1/16041_0s.png)
win10电脑系统更新失败怎么办?win10电脑系统更新失败的解决方法
![](https://img.aspxhome.com/file/2023/1/46571_0s.png)
win10有多少个版本?他们有什么区别?win10系统版本区别
![](https://img.aspxhome.com/file/2023/3/46583_0s.png)
Project 2016 / Visio2016下载安装激活教程
![](https://img.aspxhome.com/file/2023/1/16161_0s.jpg)
word 文档中直径符号Φ怎么打/输入
![](https://img.aspxhome.com/file/2023/2/35672_0s.jpg)
word把书上的字快速弄到电脑上
Word 2010 如何隐藏回车符
word怎么去掉箭头图形里的颜色?
![](https://img.aspxhome.com/file/2023/3/29043_0s.jpg)