比较简短的拼音首字母自定义函数

最新推荐文章于 2018-05-10 21:09:41 发布
最新推荐文章于 2018-05-10 21:09:41 发布 · 162 阅读 · 0
文章标签：

#J#

本文介绍了一个使用VBA编写的函数，该函数可以将Excel单元格内的汉字转换为对应的拼音。通过定义一个包含汉字和其对应拼音的字符串，此函数遍历指定范围内的每个字符，并查找相应的拼音进行拼接。

Function pinyin(ByVal r As Range) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim i As Long, j As Byte, temp As String
For i = 1 To Len(r.Text)
For j = 1 To 24
If Asc(Mid(r.Text, i, 1)) >= Asc(Mid(hanzi, j, 1)) Then temp = Mid(hanzi, 23 + j, 1)
Next
pinyin = pinyin & temp
Next
End Function 

用法：b1输入公式 =pinyin(a1)

iteye_3946
关注
Excel自定义函数取拼音首字母
奔跑的兔砸
04-16 725
Excel自定义函数取拼音首字母
VBA自定义函数__获取字符串首字母拼音.xlsm
10-06
VBA自定义函数__获取字符串首字母拼音.xlsm
生成汉字拼音首字母函数！
deqiping4837的博客
06-09 221
createfunctionfun_getPY(@strnvarchar(4000)) returnsnvarchar(4000) as begin declare@wordnchar(1),@PYnvarchar(4000) set@PY='' whilelen(@str)>0 begin set@word=left(@str,1) --如果...
Google 输入法api自定义体验
老朱的专栏
11-04 566
今天刚刚更新谷歌输入法。最新版本是：最新版本: 2.1.9.59。 那么最新版本有什么以往不同呢？那就是提供api，开发者可以根据接口开发谷歌输入法。下面看我的体验过程吧。 准备工作：输入法更新至最新版本2.1.9.59。最新版本才支持api功能。 google pingying api地址：http://www.google.com/ime/pinyin/api.html 有兴趣可以看看吧...
取汉字拼音首字母的函数
『 COSO 』
08-25 975
Create  function fun_getPY  (     @str nvarchar(4000)  ) returns nvarchar(4000) as begin   declare @word nchar(1),@PY nvarchar(4000)   set @PY=   while len(@str)>0   begin     set @word=left(@str,
精选资源
MySQL中文汉字转拼音的自定义函数和使用实例(首字的首字母)
01-21
fristPinyin ： 此函数是将一个中文字符串的第一个汉字转成拼音字母 （例如：”中国人”->Z） 代码如下:CREATE FUNCTION `fristPinyin`(P_NAME VARCHAR(255)) RETURNS varchar(255) CHARSET utf8BEGIN DECLARE V_...
取汉字拼音首字母的自定义EXCEL函数.
03-14
取汉字拼音首字母的自定义EXCEL函数.取汉字拼音首字母的自定义EXCEL函数.
delphi中获取汉字的拼音首字母
良玉的博客
05-23 3855
http://www.elike.org/program-27326.shtm这段代码处理范围比较广，对于双单字，较偏的字也都能处理,是目前比较流行且全面的在delphi中获取汉字的拼音首字母的代码.1、以下代码段直接复制在代码里即可.{$R *.dfm}py: array[216..247] of string = ({216}CJWGNSPGCGNESYPB + TYYZDXYKYGTD
Unicode汉字拼音首字母查询
01-04
Unicode汉字拼音首字母查询，可在程序中生成汉字的拼音首字母，数字各字母等将直接显示
Unicode汉字拼音全拼、首字母Delphi查询函数(推荐使用)
11-15
Delphi编程获取汉字拼音(简拼、全拼皆可)单元 Unicode汉字拼音全拼、首字母Delphi查询函数(推荐使用) { iMode 二进制功能位说明 X X X X X X X X X X X X X X X X 3 2 1 1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符) 3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括 (控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符) 调用方法 Edit2.Text:=MakeSpellCode(Edit1.Text, 1, 255); //拼音全 Edit3.Text:=MakeSpellCode(Edit1.Text, 2, 255); //拼音简写，去除空格 Edit4.Text:=MakeSpellCode(Edit1.Text, 4, 255); //拼音简写 }
取汉字拼音首字母工具源码
08-13
虽为delphi源码，但数据对其它一样通过，可以借鉴。
中文版汉字转汉语拼音
05-08
中文版汉字转汉语拼音中文版汉字转汉语拼音
2012第三届蓝桥杯国赛决赛c/c++本科B组试题总结及解题答案
我要出家当道士
05-10 1508
个人见解，不足之处还望指出一：星期几1949年的国庆节（10月1日）是星期六。 今年（2012）的国庆节是星期一。那么，从建国到现在，有几次国庆节正好是星期日呢？只要答案，不限手段！可以用windows日历，windows计算器，Excel公式，。。。。。当然，也可以编程！不要求写出具体是哪些年，只要一个数目！千万不要提交源代码！答案：9二：数据压缩某工业监控设备不断发回采样数据。每个数据是一个整...
取汉字的拼音简码.如果是其它字符，则原样返回（2010）
热门推荐
sitongqdl的专栏
12-08 4万+
以前用过很多中取汉子拼音的方法，一直有些字是取不出来的 没办法，只有从微软的拼音库把所有的字取出来了，应该没有取不出来的字了。。。。         '-------------------------------------------------------------     '功能：取汉字的拼音简码.如果是其它字符，则原样返回     '参数：     '返回：汉字的拼音首字
获取拼音首字母函数
Tom Studio (汤姆工作室)
12-04 2127
/*-1.-获得汉字字符串的首字母   根据大力的贴子改成.将大力的两个函数合并成了一个函数.   可以应用于助记码的查询--转载(最早见于j9988的发表,具体原作者不明)--*/if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[fGetPy]) and xtype in (NFN, NIF,
MySQL自定义函数实现首字母拼音搜索
函数首先声明了一系列变量，如`tmp_str`用于存储待处理的字符串，`tmp_len`和`tmp_loc`用于跟踪字符串的长度和字符位置，`tmp_char`用于存储每次处理的单个字符，`tmp_cc`用于存储对应汉字的拼音首字母，以及`tmp_rs...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值