Excel采用拼音函数
发布时间
阅读量:
阅读量
Excel中文转拼音(完整版)
启动Excel程序后,依次点击工具选项卡中的宏功能,随后选择Viaual Basic编辑器(也可直接按下快捷键组合 alt+f11)
在弹出的界面中,找到VBAproject并右键点击,在出现的菜单中选择插入选项,然后点击模块
此时会显示一个名称为"模块1"的窗口,请单击进入
在右侧提供的空白区域中,将以下内容进行粘贴操作:

Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
Case -20317 To -20305: pinyin = "ai "
Case -20304 To -20296: pinyin = "an "
Case -20295 To -20293: pinyin = "ang "
Case -20292 To -20284: pinyin = "ao
全部评论 (0)
还没有任何评论哟~
