Excel中汉字转拼音的VB代码

wsq2002

于 2024-08-09 14:57:10 发布

阅读量1.1k

点赞数 9

文章标签： excel

本文链接：https://blog.csdn.net/wsq2002/article/details/141062003

版权

操作步骤：

1、打开要转换成拼音的excel表格

2、按“Alt+F11”组合键，进入Visual Basic编辑状态，灰色的编辑界面

3、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；

4、如下界面

5、把下代码粘贴到步骤4中的空白处

代码如下：

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 "
  
Case -20283 To -20266: pinyin = "Ba "
  
Case -20265 To -20258: pinyin = "Bai "
  
Case -20257 To -20243: pinyin = "Ban "
  
Case -20242 To -20231: pinyin = "Bang "
  
Case -20230 To -20052: pinyin = "Bao "
  
Case -20051 To -20037: pinyin = "Bei "
  
Case -20036 To -20033: pinyin = "Ben "
  
Case -20032 To -20027: pinyin = "Beng "
  
Case -20026 To -20003: pinyin = "Bi "
  
Case -20002 To -19991: pinyin = "Bian "
  
Case -19990 To -19987: pinyin = "Biao "
  
Case -19986 To -19983: pinyin = "Bie "
  
Case -19982 To -19977: pinyin = "Bin "
  
Case -19976 To -19806: pinyin = "Bing "
  
Case -19805 To -19785: pinyin = "Bo "
  
Case -19784 To -19776: pinyin = "Bu "
  
Case -19775 To -19775: pinyin = "Ca "
  
Case -19774 To -19764: pinyin = "Cai "
  
Case -19763 To -19757: pinyin = "Can "
  
Case -19756 To -19752: pinyin = "Cang "
  
Case -19751 To -19747: pinyin = "Cao "
  
Case -19746 To -19742: pinyin = "Ce "
  
Case -19741 To -19740: pinyin = "Ceng "
  
Case -19739 To -19729: pinyin = "Cha "
  
Case -19728 To -19726: pinyin = "Chai "
  
Case -19725 To -19716: pinyin = "Chan "
  
Case -19715 To -19541: pinyin = "Chang "
  
Case -19540 To -19532: pinyin = "Chao "
  
Case -19531 To -19526: pinyin = "Che "
  
Case -19525 To -19516: pinyin = "Chen "
  
Case -19515 To -19501: pinyin = "Cheng "
  
Case -19500 To -19485: pinyin = "Chi "
  
Case -19484 To -19480: pinyin = "Chong "
  
Case -19479 To -19468: pinyin = "Chou "
  
Case -19467 To -19290: pinyin = "Chu "
  
Case -19289 To -19289: pinyin = "Chuai "
  
Case -19288 To -19282: pinyin = "Chuan "
  
Case -19281 To -19276: pinyin = "Chuang "
  
Case -19275 To -19271: pinyin = "Chui "
  
Case -19270 To -19264: pinyin = "Chun "
  
Case -19263 To -19262: pinyin = "Chuo "
  
Case -19261 To -19250: pinyin = "Ci "
  
Case -19249 To -19244: pinyin = "Cong "
  
Case -19243 To -19243: pinyin = "Cou "
  
Case -19242 To -19239: pinyin = "Cu "
  
Case -19238 To -19236: pinyin = "Cuan "
  
Case -19235 To -19228: pinyin = "Cui "
  
Case -19227 To -19225: pinyin = "Cun "
  
Case -19224 To -19219: pinyin = "Cuo "
  
Case -19218 To -19213: pinyin = "Da "
  
Case -19212 To -19039: pinyin = "Dai "
  
Case -19038 To -19024: pinyin = "Dan "
  
Case -19023 To -19019: pinyin = "Dang "
  
Case -19018 To -19007: pinyin = "Dao "
  
Case -19006 To -19004: pinyin = "De "
  
Case -19003 To -18997: pinyin = "Deng "
  
Case -18996 To -18978: pinyin = "Di "
  
Case -18977 To -18962: pinyin = "Dian "
  
Case -18961 To -18953: pinyin = "Diao "
  
Case -18952 To -18784: pinyin = "Die "
  
Case -18783 To -18775: pinyin = "Ding "
  
Case -18774 To -18774: pinyin = "Diu "
  
Case -18773 To -18527: pinyin = "Dong "
  
Case -18526 To -18519: pinyin = "Fa "
  
Case -18518 To -18502: pinyin = "Fan "
  
Case -18501 To -18491: pinyin = "Fang "
  
Case -18490 To -1

最低0.47元/天解锁文章