Option Explicit Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。 Dim i%, temp$ PY = "" For i = 1 To Len(TT ...
.启动Excel 其它版本请仿照操作 ,打开相应的工作表 .执行 工具 宏 Visual Basic编辑器 命令 或者直接按 Alt F 组合键 ,进入Visual Basic编辑状态 .执行 插入 模块 命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态 .将代码输入其中 Function pinyin p As String As String i Asc p Select Cas ...
2016-09-30 15:58 0 4192 推荐指数:
Option Explicit Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。 Dim i%, temp$ PY = "" For i = 1 To Len(TT ...
提取汉字拼音首字母的VBA代码:Option ExplicitFunction PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。Dim i%, temp$ PY = "" For i = 1 To Len(TT ...
Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"C ...
1. 下载WPS2019VB插件 如果不下载的话,VB编辑器一栏会显示灰色不可用 链接:https://pan.baidu.com/s/1PV_p3ngP9zUaszQs70-kSA 提取码:pghg 2. 打开VB编辑器 【开发工具】->【VB编辑器】 3. ...
excel 中怎样设置每个单词的首字母大写,不是每句,而是每个单词假定数据在a列,在b1输入:=PROPER(A1)公式下拉,就可以将单元格中每个单词的第一个字母转换为大写。 ...
Excel中如何获取汉字拼音首字母 在工作中,为了方便查询、排序或者编码,需要生成汉字内容信息的首字母,如果信息很多的话,一个个录入是一件很麻烦的事情,下面给大家介绍一个便捷的方法,轻松获取汉字拼音首字母信息。 最终效果 ...
...
excel 获取中文拼音首字母 CreateTime--2018年5月31日08:50:42 Author:Marydon 1.情景展示 想要获取姓名的拼音首字母 2.实现方式 通过使用excel的宏命令来实现 第一步:开启宏命令 ...