注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

网上之家 主站 wangyq.com

永利网店 tb.wangyq.com vwangyq.taobao.com

 
 
 

日志

 
 

excel中用自定义函数生成姓名拼音简拼、简码的办法  

2016-07-07 23:05:02|  分类: 电脑手机 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
方法来自网络,本人整理而成。
在excel2007中试验成功。
方法如下:
第一步,打开excel,操作,点击 开发工具 visual basic →插入→模块,输入以下内容:
Public Function PY(TT As String) As Variant '自定义函数,目的:把一组汉字变为一组汉字拼音的第一个字母。
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

Public 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
复制以上内容。如果要生成大写简拼,将上面倒数第二段a到z字母改为大写字母。
ok。关闭窗口,回到工作表。如a1中是姓名,则在b1中输入 =pinyin(a1),可以看到已经生成了简拼码。
第二步,为方便今后的使用,可以将模块1另存为vb文件,后缀为vba。以后在其它表格中使用时,只需点击开展工具→vb→导出文件→选择vba文件导入,即可使用自定义的函数pinyin.
二、下面是录制的操作演示。
用水淼gif录制工具录的,很不专业,没法看。只好用win7自带的问题步骤记录器,又录了一下,下载地址为我通过@360云盘 分享了文件 “excel生成姓名拼音简码的办法.mht”,访问密码:f89f,点击查看:O网页链接
  评论这张
 
阅读(178)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017