- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
excel︰汉字拼音首字母提取
方法一:VBA自定义函数=hztopy()
下面是一个VBA自定义函数,工具-宏-Visual Basic编辑器-,插入模块,在VBA编辑器里面-插入-模块-贴入下述代码,(按ALT+F11,插入模块,在右面窗口中粘贴下面代码Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = For hzi = 1 To hzpysum hzpyhex = H + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case HB0A1 To HB0C4: pystring = pystring + A Case HB0C5 To HB2C0: pystring = pystring + B Case HB2C1 To HB4ED: pystring = pystring + C Case HB4EE To HB6E9: pystring = pystring + D Case HB6EA To HB7A1: pystring = pystring + E Case HB7A2 To HB8C0: pystring = pystring + F Case HB8C1 To HB9FD: pystring = pystring + G Case HB9FE To HBBF6: pystring = pystring + H Case HBBF7 To HBFA5: pystring = pystring + J Case HBFA6 To HC0AB: pystring = pystring + K Case HC0AC To HC2E7: pystring = pystring + L Case HC2E8 To HC4C2: pystring = pystring + M Case HC4C3 To HC5B5: pystring = pystring + N Case HC5B6 To HC5BD: pystring = pystring + O Case HC5BE To HC6D9: pystring = pystring + P Case HC6DA To HC8BA: pystring = pystring + Q Case HC8BB To HC8F5: pystring = pystring + R Case HC8F6 To HCBF9: pystring = pystring + S Case HCBFA To HCDD9: pystring = pystring + T Case HEDC5: pystring = pystring + T Case HCDDA To HCEF3: pystring = pystring + W Case HCEF4 To HD1B8: pystring = pystring + X Case HD1B9 To HD4D0: pystring = pystring + Y Case HD4D1 To HD7F9: pystring = pystring + Z Case Else pystring = pystring + Mid(hzstring, hzi, 1) End Select Next hztopy = pystringEnd Function
方法二:VBA自定义函数=getpy()
下面是一个VBA自定义函数,工具-宏-Visual Basic编辑器-,插入模块,在VBA编辑器里面-插入-模块-贴入上述代码,那么。
那么,比如在A2中有进退两难,则在B2中输入=getpy(A2),则会得到JTLN。
不过此法有时候也会出错,比如鑫、雯、奕等,就无法提取汉字拼音首字母,还有些字如皓、婷等被错提取为“Z”。
Function getpychar(char)
tmp = 6
您可能关注的文档
最近下载
- 投标人对保证工程质量及详细的质量违约处罚措施的承诺;.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)