excel 汉字拼音首字母提取的自定义函数,以及使用方法
发布时间:2022-10-21 11:08:42
关于excel汉字拼音首字母提取的自定义函数,在网上看了一些代码,总有点小遗憾,一些自定义来提取汉字拼音首字母,如果数据源里面有字母或者数字将会被忽略掉。
下面这个excel汉字拼音首字母提取的自定义函数,相对完美一些,做了容错处理,考虑到了如果是数字或者字母,将会自动显示出来,如果是汉字才进行提取拼音首字母。
下面是上面所示效果图的提取汉字拼音首字母的VBA代码:
Option Explicit
Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。
Dim i%, temp$
PY = ""
For i = 1 To Len(TT)
temp = Asc(Mid$(TT, i, 1))
If temp > 255 Or temp < 0 Then '是汉字吗?
PY = PY & pinyin(Mid$(TT, i, 1)) '转化为拼音首字母,
Else
PY = PY & LCase(Mid$(TT, i, 1)) '转化英文字母
End If
Next i
End Function
Function pinyin(myStr As String) As Variant '自定义函数,目的:把单个汉字变为拼音的第一个字母。
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""
pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}], 2)
End Function
使用方法是:打开excel文档,按下ALT+F11,打开VBE编辑器,然后插入——模块,复制上面的代码,关闭VBE。回到工作表中,输入公式,比如:=py(A2),就可以提取A2单元格汉字拼音首字母。
猜你喜欢
- 在利用Excel表格进行日常办公时,经常会在表格中运用到enter回车键,有时候用户会发现不同的WPS的回车可以呈现不同的回车效果,有的是向
- Excel2019怎么批量删除单元格内的空格?excel文档里的数据包含了很多的空格,这些空格没什么意义的,怎样快速将其删除掉?这篇文章主要
- 大家知道,表格由竖排变成横排必须把纸张方向调整为横向,但调整后,表格就会变得很凌乱,需要重新调整。如图:是竖排表格,现在要把它调整为横向表格
- 在举办会议或者进行评比时,需要对相关的人员姓名按照姓氏笔划进行排序。首先,将需要排序的姓名写出来,每个姓名要占一行,即输入结束后需按“回车”
- 分栏就是Word页面排版,一般是用在杂志、报刊、书籍等排版。这种排版方式看起来整齐,便于阅读。很多伙伴还不知道怎么设置分栏,小Q在这里给大家
- 大家知道,手机号码是11位。如果输入其它位数肯定是错误的,那怎样限制输入的位数呢?并且输入错误,会出现报错提醒呢?1.点击【数据】
- word里怎么画网格线?word中想要画网格线,该怎么画呢?下面我们就来看看word显示网格的教程,很简单,需要的朋友可以参考下可能在办公的
- 操作方法如下:1、左键选定散点图。2、按下工具栏上的图表工具。3、在图表布局里面有图例,在那里就可以调出图例了。4、选择需要的图例位置,就可
- 前不久,领导布置一项节点任务,需要统计全公司的每一位员工拥有公司哪些应用系统的访问权限,对应的登录账号分别又是什么。用excel的多对多账户
- word2017怎么给方框打勾?这篇文章主要介绍了Word2017在方框内打勾的三种方法,需要的朋友可以参考下有时候我们在编辑Word文档的
- 如何在Word 2007中检查语法?除了检查拼写是否正确外,Word 2007还使您能够证明您的文档能够捕获语法错误。您可以在滚动文档时查看
- Word标题编号变成了黑方块,怎么办?已经不止遇到一次这种情况了:用WORD对文章排版的时候,用多级符号对章与节进行编号。好好的非常规整的编
- 有的时候我们将复制的内容再复制到其他位置会发现多了不少东西,怎么回事呢?今天,小编就教大家在Excel中进行只复制可见单元格的操作技巧。Ex
- 有相当一部分用户希望微软能够在下一版本中将这两个按钮去掉,但是在Win10技术预览版升级至Build 9860之后,这两个按钮依然存在。在此
- 在 WWDC 2022 开幕式主题演讲上,苹果对增强现实和虚拟现实技术只字未提,但实际上在涉及 ARKit 和相关技术时,iOS 16 带来
- 在对win10系统的字体进行研究时偶尔有人会想全局替换掉字体,那么该怎么操作呢?下面就一起来看看详细教程吧。win10字体全部删除替换:1、
- 首先,依次点击Word文档中的“文件→选项→自定义功能区”。 然后,在左侧“从下列位置选择命令”中,点击下拉菜单选
- Win11与以往的电脑系统在功能与设置上有了些许改变,就例如在任务栏上,就有用户使用不习惯Win11任务栏,就想将其设置为传统任务栏,那么应
- 在使用win10系统时,许多用户表示,他们遇到了这样或那样的bug,其中一个是win10机时的黑屏,只有鼠标。原因是什么?如何解决?让我们来
- Word文档框格流程图组合不能拆散取消怎么办?在word流程图里组合好以后,发现不合适,想取消组合该怎么办呢?下面分享解决办法,需要的朋友可