获取Excel种文字的拼音首字母函数
一、开启Excel中的 开发工具(文件->选项->自定义功能区->主选卡 勾选开发工具)
二、回到Excel的主页,点选开发工具 Visual Basic
三、选择对应的Sheet档,右键 插入->模块 中插入以下代码,并保存!
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53679 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文,则不处理
getpychar = char
End If
End Function
'逐个取ASC码
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
四、回到Excel页中,调用 getpy函数即可!
获取Excel种文字的拼音首字母函数相关推荐
- Java中获取GBK编码汉字的拼音首字母(包括生僻字)
Java中获取GBK编码汉字的拼音首字母(包括生僻字) 前言 代码 结果 前言 网上关于Java中获取汉字的拼音首字母的方法很多,但大多基于GB2312的汉字所属编码位置判断方法,现有一种基于GBK编 ...
- VC++中如何获取GB2312字符集中汉字拼音首字母
一.关于GB2312编码的必要知识 GB2312编码适用于汉字处理.汉字通信等系统之间的信息交换,通行于中国大陆:新加坡等地也采用此编码.中国大陆几乎所有的中文系统和国际化的软件都支持GB 2312. ...
- Excel如何提取汉字拼音首字母
今天跟大家分享一下Excel如何提取汉字拼音首字母 1.我们想要将D列数据中的汉字拼音首字母提取出来. 2.首先我们选中D列数据单元格区域 3.然后点击DIY工具箱(Excel工具箱,百度即可了解详细 ...
- python提取首字母的函数_Oracle提取中文字符串拼音首字母函数
通过oracle的NLSSORT函数对汉字按照拼音排序,然后根据汉字的区间返回对应的首字母. 效果1,获取拼音简码: 效果2,获取姓名首字母: 创建函数: /* 获取拼音简码函数 */ CREATE ...
- oracle 中文拼音取首字母,ORACLE依据中文拼音首字母排序、取得中文拼音首字母函数...
当前位置:我的异常网» 数据库 » ORACLE依据中文拼音首字母排序.取得中文拼音首字母 ORACLE依据中文拼音首字母排序.取得中文拼音首字母函数 www.myexceptions.net 网友 ...
- 两种取汉字拼音首字母的方法.--函数为转抄而来.
1.使用字库得到一个汉字的拼音首字母. 2.使用ORACLE 中的 NLSSORT,得到一个汉字的排序顺序,从而算出拼音的首字母, 但两种方法都存在有一字多音的问题.如一个字有多种拼音,就可能和你想要 ...
- 小功能 获取一段汉字的拼音首字母
Code 1 internal sealed class program 2 { 3 public static void Main() { 4 Co ...
- SqlServer 汉字转换拼音首字母函数
CREATE function [dbo].[Func_GetPY](@str nvarchar(4000)) returns nvarchar(4000) as begin set @str=RTR ...
- oracle 提取中文字符串拼音首字母函数,拼音简码提取函数
从别的数据库里拿到的获取拼音简码的函数,觉得挺有意思的,具体的思路就是,通过oracle的NLSSORT函数对汉字按照拼音排序,然后根据汉字的区间返回对应的首字母.具体实现效果和代码如下. 希望能帮助 ...
最新文章
- 冒泡排序 选择排序 快速排序(C语言)
- linux /proc/net/arp
- iToken----开发前准备
- Github 新学入门
- 【图像处理】彩色图像自适应对比度增强(OpenCV实现)
- mysql 查看锁等待
- C# .net基于Http实现web server(web服务)
- 4.2 react patterns(转)
- html可以移动的按钮插件,纯css3按钮动画插件
- 【智能路由器】轻量级web服务器lighttpd架设——打造家庭影院
- 昂达v80 plus linux,8英寸便携平板 昂达V80 Plus一体工艺来袭
- Python 网络爬虫与数据采集(一)
- Cisco思科交换机Vlan划分
- 我当 DevOps 的一年
- 安装ubuntu系统中磁盘分区
- hdu4556(欧拉函数)
- html判断display,display与show的区别
- 浏览器被劫持打开变成hao123 和 vs CODE编译器无法打开浏览器问题
- 推荐系统论文粗读记录【二】
- STM32启动代码学习