- 1、本文档共2页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
excel汉字转换成拼音简拼〔只取首字母〕
打开Excel-工具-宏-Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键-插入-模块
下面会出现一个名为模块1,点击
在右边的空白栏中粘贴以下内容:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = A
Case -20283 To -19776: pinyin = B
Case -19775 To -19219: pinyin = C
Case -19218 To -18711: pinyin = D
Case -18710 To -18527: pinyin = E
Case -18526 To -18240: pinyin = F
Case -18239 To -17923: pinyin = G
Case -17922 To -17418: pinyin = H
Case -17417 To -16475: pinyin = J
Case -16474 To -16213: pinyin = K
Case -16212 To -15641: pinyin = L
Case -15640 To -15166: pinyin = M
Case -15165 To -14923: pinyin = N
Case -14922 To -14915: pinyin = O
Case -14914 To -14631: pinyin = P
Case -14630 To -14150: pinyin = Q
Case -14149 To -14091: pinyin = R
Case -14090 To -13319: pinyin = S
Case -13318 To -12839: pinyin = T
Case -12838 To -12557: pinyin = W
Case -12556 To -11848: pinyin = X
Case -11847 To -11056: pinyin = Y
Case -11055 To -2050: pinyin = Z
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy pinyin(Mid(str, i, 1))
Next i
End Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1 A2
中国 =getpy(A1)
您可能关注的文档
最近下载
- 投标人对保证工程质量及详细的质量违约处罚措施的承诺;.doc
- 2023年深圳市南山区第二外国语学校小升初分班考试英语模拟试卷及答案解析.docx
- 华东理工大学《多元统计学》2020-2021学年第二学期期末试卷.pdf
- 主题班会成功无捷径 学习当奋斗(课堂PPT).ppt
- 习概 推进依法治国.docx VIP
- 安徽大学-2020-2021学年第-一-学期大学英语A试卷及答案.docx
- 常见创伤分类与现场急救(1).ppt
- DENON天龙AV接收机AVC-X8500H产品说明书.pdf
- 中学英语教研组校本研修活动记录.doc
- 河北工业大学2022-2023学年第2学期《高等数学(下)》期末试卷(A卷)附标准答案.pdf
文档评论(0)