Advertisement

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)

还没有任何评论哟~