《excel汉字转拼音》由会员分享，可在线阅读，更多相关《excel汉字转拼音（12页珍藏版）》请在金锄头文库上搜索。
1、Excel 中文转拼音，要不要空格可自选2012-08-17 14:54:49| 分类： System_Windows | 标签：|字号 大中小 订阅= Excel 中文转拼音（简称版）= 打开 Excel- 工具 -宏-Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键 -插入 -模块下面会出现一个名为“模块 1“，粘贴以下内容：Function getpychar(char) tmp = 65536 + Asc(char) If (tmp = 45217 And tmp = 45253 And tmp = 45761 And tmp = 46318 And tmp
2、 = 46826 And tmp = 47010 And tmp = 47297 And tmp = 47614 And tmp = 48119 And tmp = 49062 And tmp = 49324 And tmp = 49896 And tmp = 50371 And tmp = 50614 And tmp = 50622 And tmp = 50906 And tmp = 51387 And tmp = 51446 And tmp = 52218 And tmp = 52698 And tmp = 52980 And tmp = 53689 And tmp = 54481 And
3、 tmp 工具 -宏-Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键 -插入 -模块下面会出现一个名为“模块 2“，点击在右边的空白栏中粘贴以下内容：Option Explicit Option Compare Text Public Function HZQP(expression As String, Optional delimiter As String = “ “, Optional limit As Integer = -1) As String expression 必需的 ?包含要转换的字符串? delimiter 可选的。用于标识分隔拼音的字符串
4、字符。如果忽略，则使用空格字符(“ “)作为分隔符。如果delimiter 是一个长度为零的字符串，则返回仅包含一个元素，即完整的expression字符串。limit 可选的。要返回拼音字符数， 1 表示返回所有的拼音字符数，1 表示返回拼音首字母。Dim STR As String, arrWord(400) As String Dim i As Integer, j As Integer arrWord(1) = “ 吖 a“ arrWord(2) = “ 哎 ai“ arrWord(3) = “ 腤 an“ arrWord(4) = “ 肮 ang“ arrWord(5) = “ 凹
5、ao“ arrWord(6) = “ 八 ba“ arrWord(7) = “ 挀 bai“ arrWord(8) = “ 扳 ban“ arrWord(9) = “ 邦 bang“ arrWord(10) = “勹 bao“ arrWord(11) = “陂 bei“ arrWord(12) = “奔 ben“ arrWord(13) = “崩 beng“ arrWord(14) = “皀 bi“ arrWord(15) = “边 bian“ arrWord(16) = “杓 biao“ arrWord(17) = “憋 bie“ arrWord(18) = “邠 bin“ arrWord(
6、19) = “仌 bing“ arrWord(20) = “拨 bo“ arrWord(21) = “峬 bu“ arrWord(22) = “嚓 ca“ arrWord(23) = “猜 cai“ arrWord(24) = “飡 can“ arrWord(25) = “仓 cang“ arrWord(26) = “撡 cao“ arrWord(27) = “冊 ce“ arrWord(28) = “嵾 cen“ arrWord(29) = “噌 ceng“ arrWord(30) = “*cha“ arrWord(31) = “拆 chai“ arrWord(32) = “辿 chan“
7、arrWord(33) = “伥 chang“ arrWord(34) = “抄 chao“ arrWord(35) = “车 che“ arrWord(36) = “抻 chen“ arrWord(37) = “阷 cheng“ arrWord(38) = “吃 chi“ arrWord(39) = “充 chong“ arrWord(40) = “抽 chou“ arrWord(41) = “出 chu“ arrWord(42) = “搋 chuai“ arrWord(43) = “巛 chuan“ arrWord(44) = “刅 chuang“ arrWord(45) = “吹 chu
8、i“ arrWord(46) = “旾 chun“ arrWord(47) = “踔 chuo“ arrWord(48) = “呲 ci“ arrWord(49) = “从 cong“ arrWord(50) = “凑 cou“ arrWord(51) = “粗 cu“ arrWord(52) = “汆 cuan“ arrWord(53) = “崔 cui“ arrWord(54) = “邨 cun“ arrWord(55) = “搓 cuo“ arrWord(56) = “咑 da“ arrWord(57) = “呆 dai“ arrWord(58) = “丹 dan“ arrWord(59
9、) = “当 dang“ arrWord(60) = “刀 dao“ arrWord(61) = “恴 de“ arrWord(62) = “灯 deng“ arrWord(63) = “仾 di“ arrWord(64) = “敁 dian“ arrWord(65) = “刁 diao“ arrWord(66) = “爹 die“ arrWord(67) = “丁 ding“ arrWord(68) = “丟 diu“ arrWord(69) = “东 dong“ arrWord(70) = “剅 dou“ arrWord(71) = “嘟 du“ arrWord(72) = “耑 duan
10、“ arrWord(73) = “垖 dui“ arrWord(74) = “吨 dun“ arrWord(75) = “多 duo“ arrWord(76) = “妸 e“ arrWord(77) = “奀 en“ arrWord(78) = “儿 er“ arrWord(79) = “发 fa“ arrWord(80) = “帆 fan“ arrWord(81) = “方 fang“ arrWord(82) = “飞 fei“ arrWord(83) = “分 fen“ arrWord(84) = “丰 feng“ arrWord(85) = “仏 fo“ arrWord(86) = “紑
11、 fou“ arrWord(87) = “夫 fu“ arrWord(88) = “旮 ga“ arrWord(89) = “该 gai“ arrWord(90) = “干 gan“ arrWord(91) = “冈 gang“ arrWord(92) = “皋 gao“ arrWord(93) = “戈 ge“ arrWord(94) = “给 gei“ arrWord(95) = “根 gen“ arrWord(96) = “更 geng“ arrWord(97) = “工 gong“ arrWord(98) = “勾 gou“ arrWord(99) = “估 gu“ arrWord(1
12、00) = “瓜 gua“ arrWord(101) = “乖 guai“ arrWord(102) = “关 guan“ arrWord(103) = “光 guang“ arrWord(104) = “归 gui“ arrWord(105) = “衮 gun“ arrWord(106) = “呙 guo“ arrWord(107) = “铪 ha“ arrWord(108) = “嗨 hai“ arrWord(109) = “佄 han“ arrWord(110) = “夯 hang“ arrWord(111) = “蒿 hao“ arrWord(112) = “诃 he“ arrWord
13、(113) = “黒 hei“ arrWord(114) = “拫 hen“ arrWord(115) = “亨 heng“ arrWord(116) = “叿 hong“ arrWord(117) = “侯 hou“ arrWord(118) = “乎 hu“ arrWord(119) = “花 hua“ arrWord(120) = “怀 huai“ arrWord(121) = “欢 huan“ arrWord(122) = “巟 huang“ arrWord(123) = “灰 hui“ arrWord(124) = “昏 hun“ arrWord(125) = “吙 huo“ arr
14、Word(126) = “丌 ji“ arrWord(127) = “加 jia“ arrWord(128) = “戋 jian“ arrWord(129) = “江 jiang“ arrWord(130) = “艽 jiao“ arrWord(131) = “阶 jie“ arrWord(132) = “巾 jin“ arrWord(133) = “坕 jing“ arrWord(134) = “冂 jiong“ arrWord(135) = “丩 jiu“ arrWord(136) = “凥 ju“ arrWord(137) = “姢 juan“ arrWord(138) = “噘 jue
15、“ arrWord(139) = “军 jun“ arrWord(140) = “咔 ka“ arrWord(141) = “开 kai“ arrWord(142) = “刊 kan“ arrWord(143) = “忼 kang“ arrWord(144) = “*kao“ arrWord(145) = “匼 ke“ arrWord(146) = “肎 ken“ arrWord(147) = “劥 keng“ arrWord(148) = “空 kong“ arrWord(149) = “抠 kou“ arrWord(150) = “郀 ku“ arrWord(151) = “夸 kua“
16、arrWord(152) = “蒯 kuai“ arrWord(153) = “宽 kuan“ arrWord(154) = “匡 kuang“ arrWord(155) = “亏 kui“ arrWord(156) = “坤 kun“ arrWord(157) = “扩 kuo“ arrWord(158) = “垃 la“ arrWord(159) = “来 lai“ arrWord(160) = “兰 lan“ arrWord(161) = “啷 lang“ arrWord(162) = “捞 lao“ arrWord(163) = “仂 le“ arrWord(164) = “雷 lei“ arrWord(165) = “塄 leng“ arrWord(166) = “唎 l
