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函数，来取得文本的拼音缩写了
0
投稿猜你喜欢
打印机是日常办公中必不可缺的设备，但是部分升级到Win11系统的用户，遇到了打印机驱动不知道怎么安装的问题，那么Windows11打印机驱动- 微星主板bios设置u盘启动设置在哪？通过主板bios设置U盘启动，可以方便用户使用u盘作为引导进行系统修复或者安装，那具体要在哪里设置呢？
- 现在使用mac系统的网友越来越多了，了解mac系统技巧就显得很有必要了。出于节能考虑，Mac在停止操作一段时间之后会进入睡眠状态，就像人坐着
- 日常工作中，时常会编辑各类长篇的文档，可能包含几十个图片，或几十张表格。默认情况下，插入的这些图片和表格都是没有编号的。但在文档
- 安装完毕后简体中文下只有一个微软拼音简捷，新体验模式不见了!有需要的同学，请跟随笔者，一步一步找回新体验模式微软拼音输入法的新体验模式，其实
- 今天早上小编想打开一个软件，习惯了到程序里面去找。可是左下角开始菜单，跳出来的东西里面却找不到。纳闷了，win10如何打开程序列表？刚过渡到
- 问题：如何在Excel单元格中快速输入“勾”？ 解答：分享两种方法！ 具体方法如下： 方法1：插入-符号，在普通文本中，找到勾，点击插入即可
- 有很多用户更新Windows11系统后非常不喜欢右键菜单的样式，感觉操作起来很繁琐，想要修改右键菜单变成以前的那种感觉。下面系统部落小编就讲
- win7定时关机计划程序如何设置？有win7系统用户说要把电脑设置为定时关机，就不用动手去关了，那么win7定时关机计划程序如何设置呢？下面
- 我们在利用WPS和Word进行日常办公时，经常会遇到很多需要撤销的内容，比如我们输入错了一些文字或者表格需要撤销，有时候发现撤销一定次数后就
- 打开一个已经制作好了的Excel图表。选中图表，在要添加系列的图表上单击鼠标右键，从下拉菜单中选择“选择数据”选项。进入“选择数据源”对话框
- Win11怎么设置动态壁纸？很多朋友都想要知道有没有什么方法可以不借助软件设置动态壁纸，答案是没有，系统部落小编今天就来跟大家聊聊这个事情，
- 随着Win11的升级更新，有部分Win11用户觉得自己任务栏的图标很大，想要对任务栏图标大小进行设置但不清楚具体的操作方法。如果你也有这样的
- 我们经常会用到Word来编辑文档，经常需要在文档中插入各种序号。如果一个个手动输入这些序列号，会降低我们的工作效率。那么，这种情况下，我们该
- 在使用腾讯手游模拟器的时候，我们总是会下载很多的游戏和软件进行使用，但是很多用户们却不知道，下载后的游戏软件要怎么才能够卸载，快来看看详细教
- 在本课程中，我们主要介绍条件格式在WPS表中的应用。所谓的条件格式是指当单元格的内容满足特定条件时，自动应用于单元格的格式。换句话说，如果你
- wps演示怎么制作动画打开wps演示并创建一个新的空白文档点击白色页面，我们设置白色内容布局并随意插入图片。找到自定义动画设置我们单击添加效
- Excel表格中如何求和、求积想必大家都会了吧，在前几篇文章中也有所介绍。如果还有不会的那就只有重新复习一遍了。至于Excel中怎么求差，在
- 我们在接触一台新电脑的时候，难免会对一台电脑的功能有所陌生，不知道一些功能如何打开，就比如摄像头找不到在哪打开，今天小编带来联想笔记本的摄像
- 苹果除了在iPhone 上有设计热点分享的功能之外，其实Mac 笔记本电脑很早就已经可以开启类似热点分享网络的功能了，在没有Wi-Fi 只提
