[应用&技术] 分享Excel中文汉字转拼音脚本函数/宏（完整版） Excel, 中文拼音, 汉字转拼音, 函数, 公式

jfx

分享Excel中文汉字转拼音脚本函数/宏（完整版）PS: 经测试后, 有部分字转换不成功,  可自行完善.. r* J! D) e! n5 N7 C: I. \0 ^. H
, l7 R# @4 }+ k$ T
打开Excel->工具->宏->Viaual Basic编辑器  (也可以用组合键:  直接按“Alt+F11” )0 C( l) M) _' @, Z9 G0 A3 D0 y& E7 I
在弹出来的窗口中对着VBAproject点右键->插入->模块
$ G2 ?/ ~' d7 Z! ]( U& \2 s下面会出现一个名为"模块1"，点击
% c% t! J: o3 H3 n在右边的空白栏中粘贴以下内容：
1 \1 K9 P+ P- b8 d6 A
$ W6 O2 t- B" I  v

1. Function pinyin(p As String) As String
   
2. i = Asc(p)
   
3. Select Case i
   
4. Case -20319 To -20318: pinyin = "a"     
   
5. Case -20317 To -20305: pinyin = "ai"   
   
6. Case -20304 To -20296: pinyin = "an"   
   
7. Case -20295 To -20293: pinyin = "ang"   
   
8. Case -20292 To -20284: pinyin = "ao"   
   
9. Case -20283 To -20266: pinyin = "ba"   
   
10. Case -20265 To -20258: pinyin = "bai"   
    
11. Case -20257 To -20243: pinyin = "ban"   
    
12. Case -20242 To -20231: pinyin = "bang"  
    
13. Case -20230 To -20052: pinyin = "bao"   
    
14. Case -20051 To -20037: pinyin = "bei"   
    
15. Case -20036 To -20033: pinyin = "ben"   
    
16. Case -20032 To -20027: pinyin = "beng"  
    
17. Case -20026 To -20003: pinyin = "bi"   
    
18. Case -20002 To -19991: pinyin = "bian"  
    
19. Case -19990 To -19987: pinyin = "biao"  
    
20. Case -19986 To -19983: pinyin = "bie"   
    
21. Case -19982 To -19977: pinyin = "bin"   
    
22. Case -19976 To -19806: pinyin = "bing"  
    
23. Case -19805 To -19785: pinyin = "bo"   
    
24. Case -19784 To -19776: pinyin = "bu"   
    
25. Case -19775 To -19775: pinyin = "ca"   
    
26. Case -19774 To -19764: pinyin = "cai"   
    
27. Case -19763 To -19757: pinyin = "can"   
    
28. Case -19756 To -19752: pinyin = "cang"  
    
29. Case -19751 To -19747: pinyin = "cao"   
    
30. Case -19746 To -19742: pinyin = "ce"   
    
31. Case -19741 To -19740: pinyin = "ceng"  
    
32. Case -19739 To -19729: pinyin = "cha"   
    
33. Case -19728 To -19726: pinyin = "chai"  
    
34. Case -19725 To -19716: pinyin = "chan"  
    
35. Case -19715 To -19541: pinyin = "chang"
    
36. Case -19540 To -19532: pinyin = "chao"  
    
37. Case -19531 To -19526: pinyin = "che"   
    
38. Case -19525 To -19516: pinyin = "chen"  
    
39. Case -19515 To -19501: pinyin = "cheng"
    
40. Case -19500 To -19485: pinyin = "chi"   
    
41. Case -19484 To -19480: pinyin = "chong"
    
42. Case -19479 To -19468: pinyin = "chou"  
    
43. Case -19467 To -19290: pinyin = "chu"   
    
44. Case -19289 To -19289: pinyin = "chuai"
    
45. Case -19288 To -19282: pinyin = "chuan"
    
46. Case -19281 To -19276: pinyin = "chuang"
    
47. Case -19275 To -19271: pinyin = "chui"  
    
48. Case -19270 To -19264: pinyin = "chun"  
    
49. Case -19263 To -19262: pinyin = "chuo"  
    
50. Case -19261 To -19250: pinyin = "ci"   
    
51. Case -19249 To -19244: pinyin = "cong"  
    
52. Case -19243 To -19243: pinyin = "cou"   
    
53. Case -19242 To -19239: pinyin = "cu"   
    
54. Case -19238 To -19236: pinyin = "cuan"  
    
55. Case -19235 To -19228: pinyin = "cui"   
    
56. Case -19227 To -19225: pinyin = "cun"   
    
57. Case -19224 To -19219: pinyin = "cuo"   
    
58. Case -19218 To -19213: pinyin = "da"   
    
59. Case -19212 To -19039: pinyin = "dai"   
    
60. Case -19038 To -19024: pinyin = "dan"   
    
61. Case -19023 To -19019: pinyin = "dang"  
    
62. Case -19018 To -19007: pinyin = "dao"   
    
63. Case -19006 To -19004: pinyin = "de"   
    
64. Case -19003 To -18997: pinyin = "deng"  
    
65. Case -18996 To -18978: pinyin = "di"   
    
66. Case -18977 To -18962: pinyin = "dian"  
    
67. Case -18961 To -18953: pinyin = "diao"  
    
68. Case -18952 To -18784: pinyin = "die"   
    
69. Case -18783 To -18775: pinyin = "ding"  
    
70. Case -18774 To -18774: pinyin = "diu"   
    
71. Case -18773 To -18527: pinyin = "dong"  
    
72. Case -18526 To -18519: pinyin = "fa"   
    
73. Case -18518 To -18502: pinyin = "fan"   
    
74. Case -18501 To -18491: pinyin = "fang"  
    
75. Case -18490 To -18479: pinyin = "fei"   
    
76. Case -18478 To -18464: pinyin = "fen"   
    
77. Case -18463 To -18449: pinyin = "feng"  
    
78. Case -18448 To -18448: pinyin = "fo"   
    
79. Case -18447 To -18447: pinyin = "fou"   
    
80. Case -18446 To -18240: pinyin = "fu"   
    
81. Case -18239 To -18238: pinyin = "ga"   
    
82. Case -18237 To -18232: pinyin = "gai"   
    
83. Case -18231 To -18221: pinyin = "gan"   
    
84. Case -18220 To -18212: pinyin = "gang"  
    
85. Case -18211 To -18202: pinyin = "gao"   
    
86. Case -18201 To -18185: pinyin = "ge"   
    
87. Case -18184 To -18184: pinyin = "gei"   
    
88. Case -18183 To -18182: pinyin = "gen"   
    
89. Case -18181 To -18013: pinyin = "geng"  
    
90. Case -18012 To -17998: pinyin = "gong"  
    
91. Case -17997 To -17989: pinyin = "gou"   
    
92. Case -17988 To -17971: pinyin = "gu"   
    
93. Case -17970 To -17965: pinyin = "gua"   
    
94. Case -17964 To -17962: pinyin = "guai"  
    
95. Case -17961 To -17951: pinyin = "guan"  
    
96. Case -17950 To -17948: pinyin = "guang"
    
97. Case -17947 To -17932: pinyin = "gui"   
    
98. Case -17931 To -17929: pinyin = "gun"   
    
99. Case -17928 To -17923: pinyin = "guo"   
    
100. Case -17922 To -17760: pinyin = "ha"   
     
101. Case -17759 To -17753: pinyin = "hai"   
     
102. Case -17752 To -17734: pinyin = "han"   
     
103. Case -17733 To -17731: pinyin = "hang"  
     
104. Case -17730 To -17722: pinyin = "hao"   
     
105. Case -17721 To -17704: pinyin = "he"   
     
106. Case -17703 To -17702: pinyin = "hei"   
     
107. Case -17701 To -17698: pinyin = "hen"   
     
108. Case -17697 To -17693: pinyin = "heng"  
     
109. Case -17692 To -17684: pinyin = "hong"  
     
110. Case -17683 To -17677: pinyin = "hou"   
     
111. Case -17676 To -17497: pinyin = "hu"   
     
112. Case -17496 To -17488: pinyin = "hua"   
     
113. Case -17487 To -17483: pinyin = "huai"  
     
114. Case -17482 To -17469: pinyin = "huan"  
     
115. Case -17468 To -17455: pinyin = "huang"
     
116. Case -17454 To -17434: pinyin = "hui"   
     
117. Case -17433 To -17428: pinyin = "hun"   
     
118. Case -17427 To -17418: pinyin = "huo"   
     
119. Case -17417 To -17203: pinyin = "ji"   
     
120. Case -17202 To -17186: pinyin = "jia"   
     
121. Case -17185 To -16984: pinyin = "jian"  
     
122. Case -16983 To -16971: pinyin = "jiang"
     
123. Case -16970 To -16943: pinyin = "jiao"  
     
124. Case -16942 To -16916: pinyin = "jie"   
     
125. Case -16915 To -16734: pinyin = "jin"   
     
126. Case -16733 To -16709: pinyin = "jing"  
     
127. Case -16708 To -16707: pinyin = "jiong"
     
128. Case -16706 To -16690: pinyin = "jiu"   
     
129. Case -16689 To -16665: pinyin = "ju"   
     
130. Case -16664 To -16658: pinyin = "juan"  
     
131. Case -16657 To -16648: pinyin = "jue"   
     
132. Case -16647 To -16475: pinyin = "jun"   
     
133. Case -16474 To -16471: pinyin = "ka"   
     
134. Case -16470 To -16466: pinyin = "kai"   
     
135. Case -16465 To -16460: pinyin = "kan"   
     
136. Case -16459 To -16453: pinyin = "kang"  
     
137. Case -16452 To -16449: pinyin = "kao"   
     
138. Case -16448 To -16434: pinyin = "ke"   
     
139. Case -16433 To -16430: pinyin = "ken"   
     
140. Case -16429 To -16428: pinyin = "keng"  
     
141. Case -16427 To -16424: pinyin = "kong"  
     
142. Case -16423 To -16420: pinyin = "kou"   
     
143. Case -16419 To -16413: pinyin = "ku"   
     
144. Case -16412 To -16408: pinyin = "kua"   
     
145. Case -16407 To -16404: pinyin = "kuai"  
     
146. Case -16403 To -16402: pinyin = "kuan"  
     
147. Case -16401 To -16394: pinyin = "kuang"
     
148. Case -16393 To -16221: pinyin = "kui"   
     
149. Case -16220 To -16217: pinyin = "kun"   
     
150. Case -16216 To -16213: pinyin = "kuo"   
     
151. Case -16212 To -16206: pinyin = "la"   
     
152. Case -16205 To -16203: pinyin = "lai"   
     
153. Case -16202 To -16188: pinyin = "lan"   
     
154. Case -16187 To -16181: pinyin = "lang"  
     
155. Case -16180 To -16172: pinyin = "lao"   
     
156. Case -16171 To -16170: pinyin = "le"   
     
157. Case -16169 To -16159: pinyin = "lei"   
     
158. Case -16158 To -16156: pinyin = "leng"  
     
159. Case -16155 To -15960: pinyin = "li"   
     
160. Case -15959 To -15959: pinyin = "lia"   
     
161. Case -15958 To -15945: pinyin = "lian"  
     
162. Case -15944 To -15934: pinyin = "liang"
     
163. Case -15933 To -15921: pinyin = "liao"  
     
164. Case -15920 To -15916: pinyin = "lie"   
     
165. Case -15915 To -15904: pinyin = "lin"   
     
166. Case -15903 To -15890: pinyin = "ling"  
     
167. Case -15889 To -15879: pinyin = "liu"   
     
168. Case -15878 To -15708: pinyin = "long"  
     
169. Case -15707 To -15702: pinyin = "lou"   
     
170. Case -15701 To -15682: pinyin = "lu"   
     
171. Case -15681 To -15668: pinyin = "lv"   
     
172. Case -15667 To -15662: pinyin = "luan"  
     
173. Case -15661 To -15660: pinyin = "lue"   
     
174. Case -15659 To -15653: pinyin = "lun"   
     
175. Case -15652 To -15641: pinyin = "luo"   
     
176. Case -15640 To -15632: pinyin = "ma"   
     
177. Case -15631 To -15626: pinyin = "mai"   
     
178. Case -15625 To -15455: pinyin = "man"   
     
179. Case -15454 To -15449: pinyin = "mang"  
     
180. Case -15448 To -15437: pinyin = "mao"   
     
181. Case -15436 To -15436: pinyin = "me"   
     
182. Case -15435 To -15420: pinyin = "mei"   
     
183. Case -15419 To -15417: pinyin = "men"   
     
184. Case -15416 To -15409: pinyin = "meng"  
     
185. Case -15408 To -15395: pinyin = "mi"   
     
186. Case -15394 To -15386: pinyin = "mian"  
     
187. Case -15385 To -15378: pinyin = "miao"  
     
188. Case -15377 To -15376: pinyin = "mie"   
     
189. Case -15375 To -15370: pinyin = "min"   
     
190. Case -15369 To -15364: pinyin = "ming"  
     
191. Case -15363 To -15363: pinyin = "miu"   
     
192. Case -15362 To -15184: pinyin = "mo"   
     
193. Case -15183 To -15181: pinyin = "mou"   
     
194. Case -15180 To -15166: pinyin = "mu"   
     
195. Case -15165 To -15159: pinyin = "na"   
     
196. Case -15158 To -15154: pinyin = "nai"   
     
197. Case -15153 To -15151: pinyin = "nan"   
     
198. Case -15150 To -15150: pinyin = "nang"  
     
199. Case -15149 To -15145: pinyin = "nao"   
     
200. Case -15144 To -15144: pinyin = "ne"   
     
201. Case -15143 To -15142: pinyin = "nei"   
     
202. Case -15141 To -15141: pinyin = "nen"   
     
203. Case -15140 To -15140: pinyin = "neng"  
     
204. Case -15139 To -15129: pinyin = "ni"   
     
205. Case -15128 To -15122: pinyin = "nian"  
     
206. Case -15121 To -15120: pinyin = "niang"
     
207. Case -15119 To -15118: pinyin = "niao"  
     
208. Case -15117 To -15111: pinyin = "nie"   
     
209. Case -15110 To -15110: pinyin = "nin"   
     
210. Case -15109 To -14942: pinyin = "ning"  
     
211. Case -14941 To -14938: pinyin = "niu"   
     
212. Case -14937 To -14934: pinyin = "nong"  
     
213. Case -14933 To -14931: pinyin = "nu"   
     
214. Case -14930 To -14930: pinyin = "nv"   
     
215. Case -14929 To -14929: pinyin = "nuan"  
     
216. Case -14928 To -14927: pinyin = "nue"   
     
217. Case -14926 To -14923: pinyin = "nuo"   
     
218. Case -14922 To -14922: pinyin = "o"     
     
219. Case -14921 To -14915: pinyin = "ou"   
     
220. Case -14914 To -14909: pinyin = "pa"   
     
221. Case -14908 To -14903: pinyin = "pai"   
     
222. Case -14902 To -14895: pinyin = "pan"   
     
223. Case -14894 To -14890: pinyin = "pang"  
     
224. Case -14889 To -14883: pinyin = "pao"   
     
225. Case -14882 To -14874: pinyin = "pei"   
     
226. Case -14873 To -14872: pinyin = "pen"   
     
227. Case -14871 To -14858: pinyin = "peng"  
     
228. Case -14857 To -14679: pinyin = "pi"   
     
229. Case -14678 To -14675: pinyin = "pian"  
     
230. Case -14674 To -14671: pinyin = "piao"  
     
231. Case -14670 To -14669: pinyin = "pie"   
     
232. Case -14668 To -14664: pinyin = "pin"   
     
233. Case -14663 To -14655: pinyin = "ping"  
     
234. Case -14654 To -14646: pinyin = "po"   
     
235. Case -14645 To -14631: pinyin = "pu"   
     
236. Case -14630 To -14595: pinyin = "qi"   
     
237. Case -14594 To -14430: pinyin = "qia"   
     
238. Case -14429 To -14408: pinyin = "qian"  
     
239. Case -14407 To -14400: pinyin = "qiang"
     
240. Case -14399 To -14385: pinyin = "qiao"  
     
241. Case -14384 To -14380: pinyin = "qie"   
     
242. Case -14379 To -14369: pinyin = "qin"   
     
243. Case -14368 To -14356: pinyin = "qing"  
     
244. Case -14355 To -14354: pinyin = "qiong"
     
245. Case -14353 To -14346: pinyin = "qiu"   
     
246. Case -14345 To -14171: pinyin = "qu"   
     
247. Case -14170 To -14160: pinyin = "quan"  
     
248. Case -14159 To -14152: pinyin = "que"   
     
249. Case -14151 To -14150: pinyin = "qun"   
     
250. Case -14149 To -14146: pinyin = "ran"   
     
251. Case -14145 To -14141: pinyin = "rang"  
     
252. Case -14140 To -14138: pinyin = "rao"   
     
253. Case -14137 To -14136: pinyin = "re"   
     
254. Case -14135 To -14126: pinyin = "ren"   
     
255. Case -14125 To -14124: pinyin = "reng"  
     
256. Case -14123 To -14123: pinyin = "ri"   
     
257. Case -14122 To -14113: pinyin = "rong"  
     
258. Case -14112 To -14110: pinyin = "rou"   
     
259. Case -14109 To -14100: pinyin = "ru"   
     
260. Case -14099 To -14098: pinyin = "ruan"  
     
261. Case -14097 To -14095: pinyin = "rui"   
     
262. Case -14094 To -14093: pinyin = "run"   
     
263. Case -14092 To -14091: pinyin = "ruo"   
     
264. Case -14090 To -14088: pinyin = "sa"   
     
265. Case -14087 To -14084: pinyin = "sai"   
     
266. Case -14083 To -13918: pinyin = "san"   
     
267. Case -13917 To -13915: pinyin = "sang"  
     
268. Case -13914 To -13911: pinyin = "sao"   
     
269. Case -13910 To -13908: pinyin = "se"   
     
270. Case -13907 To -13907: pinyin = "sen"   
     
271. Case -13906 To -13906: pinyin = "seng"  
     
272. Case -13905 To -13897: pinyin = "sha"   
     
273. Case -13896 To -13895: pinyin = "shai"  
     
274. Case -13894 To -13879: pinyin = "shan"  
     
275. Case -13878 To -13871: pinyin = "shang"
     
276. Case -13870 To -13860: pinyin = "shao"  
     
277. Case -13859 To -13848: pinyin = "she"   
     
278. Case -13847 To -13832: pinyin = "shen"  
     
279. Case -13831 To -13659: pinyin = "sheng"
     
280. Case -13658 To -13612: pinyin = "shi"   
     
281. Case -13611 To -13602: pinyin = "shou"  
     
282. Case -13601 To -13407: pinyin = "shu"   
     
283. Case -13406 To -13405: pinyin = "shua"  
     
284. Case -13404 To -13401: pinyin = "shuai"
     
285. Case -13400 To -13399: pinyin = "shuan"
     
286. Case -13398 To -13396: pinyin = "shuang"
     
287. Case -13395 To -13392: pinyin = "shui"  
     
288. Case -13391 To -13388: pinyin = "shun"  
     
289. Case -13387 To -13384: pinyin = "shuo"  
     
290. Case -13383 To -13368: pinyin = "si"   
     
291. Case -13367 To -13360: pinyin = "song"  
     
292. Case -13359 To -13357: pinyin = "sou"   
     
293. Case -13356 To -13344: pinyin = "su"   
     
294. Case -13343 To -13341: pinyin = "suan"  
     
295. Case -13340 To -13330: pinyin = "sui"   
     
296. Case -13329 To -13327: pinyin = "sun"   
     
297. Case -13326 To -13319: pinyin = "suo"   
     
298. Case -13318 To -13148: pinyin = "ta"   
     
299. Case -13147 To -13139: pinyin = "tai"   
     
300. Case -13138 To -13121: pinyin = "tan"   
     
301. Case -13120 To -13108: pinyin = "tang"  
     
302. Case -13107 To -13097: pinyin = "tao"   
     
303. Case -13096 To -13096: pinyin = "te"   
     
304. Case -13095 To -13092: pinyin = "teng"  
     
305. Case -13091 To -13077: pinyin = "ti"   
     
306. Case -13076 To -13069: pinyin = "tian"  
     
307. Case -13068 To -13064: pinyin = "tiao"  
     
308. Case -13063 To -13061: pinyin = "tie"   
     
309. Case -13060 To -12889: pinyin = "ting"  
     
310. Case -12888 To -12876: pinyin = "tong"  
     
311. Case -12875 To -12872: pinyin = "tou"   
     
312. Case -12871 To -12861: pinyin = "tu"   
     
313. Case -12860 To -12859: pinyin = "tuan"  
     
314. Case -12858 To -12853: pinyin = "tui"   
     
315. Case -12852 To -12850: pinyin = "tun"   
     
316. Case -12849 To -12839: pinyin = "tuo"   
     
317. Case -12838 To -12832: pinyin = "wa"   
     
318. Case -12831 To -12830: pinyin = "wai"   
     
319. Case -12829 To -12813: pinyin = "wan"   
     
320. Case -12812 To -12803: pinyin = "wang"  
     
321. Case -12802 To -12608: pinyin = "wei"   
     
322. Case -12607 To -12598: pinyin = "wen"   
     
323. Case -12597 To -12595: pinyin = "weng"  
     
324. Case -12594 To -12586: pinyin = "wo"   
     
325. Case -12585 To -12557: pinyin = "wu"   
     
326. Case -12556 To -12360: pinyin = "xi"   
     
327. Case -12359 To -12347: pinyin = "xia"   
     
328. Case -12346 To -12321: pinyin = "xian"  
     
329. Case -12320 To -12301: pinyin = "xiang"
     
330. Case -12300 To -12121: pinyin = "xiao"  
     
331. Case -12120 To -12100: pinyin = "xie"   
     
332. Case -12099 To -12090: pinyin = "xin"   
     
333. Case -12089 To -12075: pinyin = "xing"  
     
334. Case -12074 To -12068: pinyin = "xiong"
     
335. Case -12067 To -12059: pinyin = "xiu"   
     
336. Case -12058 To -12040: pinyin = "xu"   
     
337. Case -12039 To -11868: pinyin = "xuan"  
     
338. Case -11867 To -11862: pinyin = "xue"   
     
339. Case -11861 To -11848: pinyin = "xun"   
     
340. Case -11847 To -11832: pinyin = "ya"   
     
341. Case -11831 To -11799: pinyin = "yan"   
     
342. Case -11798 To -11782: pinyin = "yang"  
     
343. Case -11781 To -11605: pinyin = "yao"   
     
344. Case -11604 To -11590: pinyin = "ye"   
     
345. Case -11589 To -11537: pinyin = "yi"   
     
346. Case -11536 To -11359: pinyin = "yin"   
     
347. Case -11358 To -11341: pinyin = "ying"  
     
348. Case -11340 To -11340: pinyin = "yo"   
     
349. Case -11339 To -11325: pinyin = "yong"  
     
350. Case -11324 To -11304: pinyin = "you"   
     
351. Case -11303 To -11098: pinyin = "yu"   
     
352. Case -11097 To -11078: pinyin = "yuan"  
     
353. Case -11077 To -11068: pinyin = "yue"   
     
354. Case -11067 To -11056: pinyin = "yun"   
     
355. Case -11055 To -11053: pinyin = "za"   
     
356. Case -11052 To -11046: pinyin = "zai"   
     
357. Case -11045 To -11042: pinyin = "zan"   
     
358. Case -11041 To -11039: pinyin = "zang"  
     
359. Case -11038 To -11025: pinyin = "zao"   
     
360. Case -11024 To -11021: pinyin = "ze"   
     
361. Case -11020 To -11020: pinyin = "zei"   
     
362. Case -11019 To -11019: pinyin = "zen"   
     
363. Case -11018 To -11015: pinyin = "zeng"  
     
364. Case -11014 To -10839: pinyin = "zha"   
     
365. Case -10838 To -10833: pinyin = "zhai"  
     
366. Case -10832 To -10816: pinyin = "zhan"  
     
367. Case -10815 To -10801: pinyin = "zhang"
     
368. Case -10800 To -10791: pinyin = "zhao"  
     
369. Case -10790 To -10781: pinyin = "zhe"   
     
370. Case -10780 To -10765: pinyin = "zhen"  
     
371. Case -10764 To -10588: pinyin = "zheng"
     
372. Case -10587 To -10545: pinyin = "zhi"   
     
373. Case -10544 To -10534: pinyin = "zhong"
     
374. Case -10533 To -10520: pinyin = "zhou"  
     
375. Case -10519 To -10332: pinyin = "zhu"   
     
376. Case -10331 To -10330: pinyin = "zhua"  
     
377. Case -10329 To -10329: pinyin = "zhuai"
     
378. Case -10328 To -10323: pinyin = "zhuan"
     
379. Case -10322 To -10316: pinyin = "zhuang"
     
380. Case -10315 To -10310: pinyin = "zhui"  
     
381. Case -10309 To -10308: pinyin = "zhun"  
     
382. Case -10307 To -10297: pinyin = "zhuo"  
     
383. Case -10296 To -10282: pinyin = "zi"   
     
384. Case -10281 To -10275: pinyin = "zong"  
     
385. Case -10274 To -10271: pinyin = "zou"   
     
386. Case -10270 To -10263: pinyin = "zu"   
     
387. Case -10262 To -10261: pinyin = "zuan"  
     
388. Case -10260 To -10257: pinyin = "zui"   
     
389. Case -10256 To -10255: pinyin = "zun"   
     
390. Case -10254 To -10254: pinyin = "zuo"   
     
391. Case Else: pinyin = p
     
392. End Select
     
393. End Function
     
394. Function getpy(str)
     
395. For i = 1 To Len(str)
     
396. getpy = getpy & pinyin(Mid(str, i, 1))
     
397. Next i
     
398. End Function

复制代码

% P& O3 D- S" J* z2 t$ O) Y
- L* t: p! h# ^/ E2 j$ I, B% M
$ F' D; X" R# F3 p8 \- i9 k& p
********复制到此结束,本行不复制*******8 {3 U* q- }; F: J: M* D
: @2 v2 I1 f+ u" t

5 B& L! g7 \5 D: I2 [现在转换函数已编写完成!关掉此编缉的窗口。" C! f. E# e; X) N9 e5 N
要在Excel中使用，方法如下：
4 r9 o4 B' p( q8 vA1         A2
  n2 r- i+ r( V  @9 m

中国     =getpy(A1)

6 {+ Z) {# A; s7 d) N% U" m
% q% v2 v- y. @9 \6 a. I0 [
! Z# g1 p6 Q7 B. _. R. K5 y- h
: u+ b4 {& Q& X  X
7 }1 x  h$ a& _. O" T1 S

（有空格）

0 b$ [4 s4 r, u4 }- ?7 ^
Excel中文转拼音（完整版）7 ~; Y, u" s1 t$ q$ ^
打开Excel->工具->宏->Viaual Basic编辑器/ ^* [! Z6 v3 d( c; @
在弹出来的窗口中对着VBAproject点右键->插入->模块
8 ~) M* A; }! X! X& a  P0 c& H下面会出现一个名为"模块1"，点击6 x0 o/ a( F: n7 E* u
在右边的空白栏中粘贴以下内容：1 D7 v* H! i2 g5 L

: C5 \6 P6 T3 U! x- K4 C. `/ _. `  u, n' \" G" p2 h6 w
+ v1 P. t3 H4 ]5 _: b

/ f- F; J8 E4 }" m

1. Function pinyin(p As String) As String
   
2. i = Asc(p)
   
3. Select Case i
   
4. Case -20319 To -20318: pinyin = "a "
   
5. Case -20317 To -20305: pinyin = "ai "
   
6. Case -20304 To -20296: pinyin = "an "
   
7. Case -20295 To -20293: pinyin = "ang "
   
8. Case -20292 To -20284: pinyin = "ao "
   
9. Case -20283 To -20266: pinyin = "ba "
   
10. Case -20265 To -20258: pinyin = "bai "
    
11. Case -20257 To -20243: pinyin = "ban "
    
12. Case -20242 To -20231: pinyin = "bang "
    
13. Case -20230 To -20052: pinyin = "bao "
    
14. Case -20051 To -20037: pinyin = "bei "
    
15. Case -20036 To -20033: pinyin = "ben "
    
16. Case -20032 To -20027: pinyin = "beng "
    
17. Case -20026 To -20003: pinyin = "bi "
    
18. Case -20002 To -19991: pinyin = "bian "
    
19. Case -19990 To -19987: pinyin = "biao "
    
20. Case -19986 To -19983: pinyin = "bie "
    
21. Case -19982 To -19977: pinyin = "bin "
    
22. Case -19976 To -19806: pinyin = "bing "
    
23. Case -19805 To -19785: pinyin = "bo "
    
24. Case -19784 To -19776: pinyin = "bu "
    
25. Case -19775 To -19775: pinyin = "ca "
    
26. Case -19774 To -19764: pinyin = "cai "
    
27. Case -19763 To -19757: pinyin = "can "
    
28. Case -19756 To -19752: pinyin = "cang "
    
29. Case -19751 To -19747: pinyin = "cao "
    
30. Case -19746 To -19742: pinyin = "ce "
    
31. Case -19741 To -19740: pinyin = "ceng "
    
32. Case -19739 To -19729: pinyin = "cha "
    
33. Case -19728 To -19726: pinyin = "chai "
    
34. Case -19725 To -19716: pinyin = "chan "
    
35. Case -19715 To -19541: pinyin = "chang "
    
36. Case -19540 To -19532: pinyin = "chao "
    
37. Case -19531 To -19526: pinyin = "che "
    
38. Case -19525 To -19516: pinyin = "chen "
    
39. Case -19515 To -19501: pinyin = "cheng "
    
40. Case -19500 To -19485: pinyin = "chi "
    
41. Case -19484 To -19480: pinyin = "chong "
    
42. Case -19479 To -19468: pinyin = "chou "
    
43. Case -19467 To -19290: pinyin = "chu "
    
44. Case -19289 To -19289: pinyin = "chuai "
    
45. Case -19288 To -19282: pinyin = "chuan "
    
46. Case -19281 To -19276: pinyin = "chuang "
    
47. Case -19275 To -19271: pinyin = "chui "
    
48. Case -19270 To -19264: pinyin = "chun "
    
49. Case -19263 To -19262: pinyin = "chuo "
    
50. Case -19261 To -19250: pinyin = "ci "
    
51. Case -19249 To -19244: pinyin = "cong "
    
52. Case -19243 To -19243: pinyin = "cou "
    
53. Case -19242 To -19239: pinyin = "cu "
    
54. Case -19238 To -19236: pinyin = "cuan "
    
55. Case -19235 To -19228: pinyin = "cui "
    
56. Case -19227 To -19225: pinyin = "cun "
    
57. Case -19224 To -19219: pinyin = "cuo "
    
58. Case -19218 To -19213: pinyin = "da "
    
59. Case -19212 To -19039: pinyin = "dai "
    
60. Case -19038 To -19024: pinyin = "dan "
    
61. Case -19023 To -19019: pinyin = "dang "
    
62. Case -19018 To -19007: pinyin = "dao "
    
63. Case -19006 To -19004: pinyin = "de "
    
64. Case -19003 To -18997: pinyin = "deng "
    
65. Case -18996 To -18978: pinyin = "di "
    
66. Case -18977 To -18962: pinyin = "dian "
    
67. Case -18961 To -18953: pinyin = "diao "
    
68. Case -18952 To -18784: pinyin = "die "
    
69. Case -18783 To -18775: pinyin = "ding "
    
70. Case -18774 To -18774: pinyin = "diu "
    
71. Case -18773 To -18527: pinyin = "dong "
    
72. Case -18526 To -18519: pinyin = "fa "
    
73. Case -18518 To -18502: pinyin = "fan "
    
74. Case -18501 To -18491: pinyin = "fang "
    
75. Case -18490 To -18479: pinyin = "fei "
    
76. Case -18478 To -18464: pinyin = "fen "
    
77. Case -18463 To -18449: pinyin = "feng "
    
78. Case -18448 To -18448: pinyin = "fo "
    
79. Case -18447 To -18447: pinyin = "fou "
    
80. Case -18446 To -18240: pinyin = "fu "
    
81. Case -18239 To -18238: pinyin = "ga "
    
82. Case -18237 To -18232: pinyin = "gai "
    
83. Case -18231 To -18221: pinyin = "gan "
    
84. Case -18220 To -18212: pinyin = "gang "
    
85. Case -18211 To -18202: pinyin = "gao "
    
86. Case -18201 To -18185: pinyin = "ge "
    
87. Case -18184 To -18184: pinyin = "gei "
    
88. Case -18183 To -18182: pinyin = "gen "
    
89. Case -18181 To -18013: pinyin = "geng "
    
90. Case -18012 To -17998: pinyin = "gong "
    
91. Case -17997 To -17989: pinyin = "gou "
    
92. Case -17988 To -17971: pinyin = "gu "
    
93. Case -17970 To -17965: pinyin = "gua "
    
94. Case -17964 To -17962: pinyin = "guai "
    
95. Case -17961 To -17951: pinyin = "guan "
    
96. Case -17950 To -17948: pinyin = "guang "
    
97. Case -17947 To -17932: pinyin = "gui "
    
98. Case -17931 To -17929: pinyin = "gun "
    
99. Case -17928 To -17923: pinyin = "guo "
    
100. Case -17922 To -17760: pinyin = "ha "
     
101. Case -17759 To -17753: pinyin = "hai "
     
102. Case -17752 To -17734: pinyin = "han "
     
103. Case -17733 To -17731: pinyin = "hang "
     
104. Case -17730 To -17722: pinyin = "hao "
     
105. Case -17721 To -17704: pinyin = "he "
     
106. Case -17703 To -17702: pinyin = "hei "
     
107. Case -17701 To -17698: pinyin = "hen "
     
108. Case -17697 To -17693: pinyin = "heng "
     
109. Case -17692 To -17684: pinyin = "hong "
     
110. Case -17683 To -17677: pinyin = "hou "
     
111. Case -17676 To -17497: pinyin = "hu "
     
112. Case -17496 To -17488: pinyin = "hua "
     
113. Case -17487 To -17483: pinyin = "huai "
     
114. Case -17482 To -17469: pinyin = "huan "
     
115. Case -17468 To -17455: pinyin = "huang "
     
116. Case -17454 To -17434: pinyin = "hui "
     
117. Case -17433 To -17428: pinyin = "hun "
     
118. Case -17427 To -17418: pinyin = "huo "
     
119. Case -17417 To -17203: pinyin = "ji "
     
120. Case -17202 To -17186: pinyin = "jia "
     
121. Case -17185 To -16984: pinyin = "jian "
     
122. Case -16983 To -16971: pinyin = "jiang "
     
123. Case -16970 To -16943: pinyin = "jiao "
     
124. Case -16942 To -16916: pinyin = "jie "
     
125. Case -16915 To -16734: pinyin = "jin "
     
126. Case -16733 To -16709: pinyin = "jing "
     
127. Case -16708 To -16707: pinyin = "jiong "
     
128. Case -16706 To -16690: pinyin = "jiu "
     
129. Case -16689 To -16665: pinyin = "ju "
     
130. Case -16664 To -16658: pinyin = "juan "
     
131. Case -16657 To -16648: pinyin = "jue "
     
132. Case -16647 To -16475: pinyin = "jun "
     
133. Case -16474 To -16471: pinyin = "ka "
     
134. Case -16470 To -16466: pinyin = "kai "
     
135. Case -16465 To -16460: pinyin = "kan "
     
136. Case -16459 To -16453: pinyin = "kang "
     
137. Case -16452 To -16449: pinyin = "kao "
     
138. Case -16448 To -16434: pinyin = "ke "
     
139. Case -16433 To -16430: pinyin = "ken "
     
140. Case -16429 To -16428: pinyin = "keng "
     
141. Case -16427 To -16424: pinyin = "kong "
     
142. Case -16423 To -16420: pinyin = "kou "
     
143. Case -16419 To -16413: pinyin = "ku "
     
144. Case -16412 To -16408: pinyin = "kua "
     
145. Case -16407 To -16404: pinyin = "kuai "
     
146. Case -16403 To -16402: pinyin = "kuan "
     
147. Case -16401 To -16394: pinyin = "kuang "
     
148. Case -16393 To -16221: pinyin = "kui "
     
149. Case -16220 To -16217: pinyin = "kun "
     
150. Case -16216 To -16213: pinyin = "kuo "
     
151. Case -16212 To -16206: pinyin = "la "
     
152. Case -16205 To -16203: pinyin = "lai "
     
153. Case -16202 To -16188: pinyin = "lan "
     
154. Case -16187 To -16181: pinyin = "lang "
     
155. Case -16180 To -16172: pinyin = "lao "
     
156. Case -16171 To -16170: pinyin = "le "
     
157. Case -16169 To -16159: pinyin = "lei "
     
158. Case -16158 To -16156: pinyin = "leng "
     
159. Case -16155 To -15960: pinyin = "li "
     
160. Case -15959 To -15959: pinyin = "lia "
     
161. Case -15958 To -15945: pinyin = "lian "
     
162. Case -15944 To -15934: pinyin = "liang "
     
163. Case -15933 To -15921: pinyin = "liao "
     
164. Case -15920 To -15916: pinyin = "lie "
     
165. Case -15915 To -15904: pinyin = "lin "
     
166. Case -15903 To -15890: pinyin = "ling "
     
167. Case -15889 To -15879: pinyin = "liu "
     
168. Case -15878 To -15708: pinyin = "long "
     
169. Case -15707 To -15702: pinyin = "lou "
     
170. Case -15701 To -15682: pinyin = "lu "
     
171. Case -15681 To -15668: pinyin = "lv "
     
172. Case -15667 To -15662: pinyin = "luan "
     
173. Case -15661 To -15660: pinyin = "lue "
     
174. Case -15659 To -15653: pinyin = "lun "
     
175. Case -15652 To -15641: pinyin = "luo "
     
176. Case -15640 To -15632: pinyin = "ma "
     
177. Case -15631 To -15626: pinyin = "mai "
     
178. Case -15625 To -15455: pinyin = "man "
     
179. Case -15454 To -15449: pinyin = "mang "
     
180. Case -15448 To -15437: pinyin = "mao "
     
181. Case -15436 To -15436: pinyin = "me "
     
182. Case -15435 To -15420: pinyin = "mei "
     
183. Case -15419 To -15417: pinyin = "men "
     
184. Case -15416 To -15409: pinyin = "meng "
     
185. Case -15408 To -15395: pinyin = "mi "
     
186. Case -15394 To -15386: pinyin = "mian "
     
187. Case -15385 To -15378: pinyin = "miao "
     
188. Case -15377 To -15376: pinyin = "mie "
     
189. Case -15375 To -15370: pinyin = "min "
     
190. Case -15369 To -15364: pinyin = "ming "
     
191. Case -15363 To -15363: pinyin = "miu "
     
192. Case -15362 To -15184: pinyin = "mo "
     
193. Case -15183 To -15181: pinyin = "mou "
     
194. Case -15180 To -15166: pinyin = "mu "
     
195. Case -15165 To -15159: pinyin = "na "
     
196. Case -15158 To -15154: pinyin = "nai "
     
197. Case -15153 To -15151: pinyin = "nan "
     
198. Case -15150 To -15150: pinyin = "nang "
     
199. Case -15149 To -15145: pinyin = "nao "
     
200. Case -15144 To -15144: pinyin = "ne "
     
201. Case -15143 To -15142: pinyin = "nei "
     
202. Case -15141 To -15141: pinyin = "nen "
     
203. Case -15140 To -15140: pinyin = "neng "
     
204. Case -15139 To -15129: pinyin = "ni "
     
205. Case -15128 To -15122: pinyin = "nian "
     
206. Case -15121 To -15120: pinyin = "niang "
     
207. Case -15119 To -15118: pinyin = "niao "
     
208. Case -15117 To -15111: pinyin = "nie "
     
209. Case -15110 To -15110: pinyin = "nin "
     
210. Case -15109 To -14942: pinyin = "ning "
     
211. Case -14941 To -14938: pinyin = "niu "
     
212. Case -14937 To -14934: pinyin = "nong "
     
213. Case -14933 To -14931: pinyin = "nu "
     
214. Case -14930 To -14930: pinyin = "nv "
     
215. Case -14929 To -14929: pinyin = "nuan "
     
216. Case -14928 To -14927: pinyin = "nue "
     
217. Case -14926 To -14923: pinyin = "nuo "
     
218. Case -14922 To -14922: pinyin = "o "
     
219. Case -14921 To -14915: pinyin = "ou "
     
220. Case -14914 To -14909: pinyin = "pa "
     
221. Case -14908 To -14903: pinyin = "pai "
     
222. Case -14902 To -14895: pinyin = "pan "
     
223. Case -14894 To -14890: pinyin = "pang "
     
224. Case -14889 To -14883: pinyin = "pao "
     
225. Case -14882 To -14874: pinyin = "pei "
     
226. Case -14873 To -14872: pinyin = "pen "
     
227. Case -14871 To -14858: pinyin = "peng "
     
228. Case -14857 To -14679: pinyin = "pi "
     
229. Case -14678 To -14675: pinyin = "pian "
     
230. Case -14674 To -14671: pinyin = "piao "
     
231. Case -14670 To -14669: pinyin = "pie "
     
232. Case -14668 To -14664: pinyin = "pin "
     
233. Case -14663 To -14655: pinyin = "ping "
     
234. Case -14654 To -14646: pinyin = "po "
     
235. Case -14645 To -14631: pinyin = "pu "
     
236. Case -14630 To -14595: pinyin = "qi "
     
237. Case -14594 To -14430: pinyin = "qia "
     
238. Case -14429 To -14408: pinyin = "qian "
     
239. Case -14407 To -14400: pinyin = "qiang "
     
240. Case -14399 To -14385: pinyin = "qiao "
     
241. Case -14384 To -14380: pinyin = "qie "
     
242. Case -14379 To -14369: pinyin = "qin "
     
243. Case -14368 To -14356: pinyin = "qing "
     
244. Case -14355 To -14354: pinyin = "qiong "
     
245. Case -14353 To -14346: pinyin = "qiu "
     
246. Case -14345 To -14171: pinyin = "qu "
     
247. Case -14170 To -14160: pinyin = "quan "
     
248. Case -14159 To -14152: pinyin = "que "
     
249. Case -14151 To -14150: pinyin = "qun "
     
250. Case -14149 To -14146: pinyin = "ran "
     
251. Case -14145 To -14141: pinyin = "rang "
     
252. Case -14140 To -14138: pinyin = "rao "
     
253. Case -14137 To -14136: pinyin = "re "
     
254. Case -14135 To -14126: pinyin = "ren "
     
255. Case -14125 To -14124: pinyin = "reng "
     
256. Case -14123 To -14123: pinyin = "ri "
     
257. Case -14122 To -14113: pinyin = "rong "
     
258. Case -14112 To -14110: pinyin = "rou "
     
259. Case -14109 To -14100: pinyin = "ru "
     
260. Case -14099 To -14098: pinyin = "ruan "
     
261. Case -14097 To -14095: pinyin = "rui "
     
262. Case -14094 To -14093: pinyin = "run "
     
263. Case -14092 To -14091: pinyin = "ruo "
     
264. Case -14090 To -14088: pinyin = "sa "
     
265. Case -14087 To -14084: pinyin = "sai "
     
266. Case -14083 To -13918: pinyin = "san "
     
267. Case -13917 To -13915: pinyin = "sang "
     
268. Case -13914 To -13911: pinyin = "sao "
     
269. Case -13910 To -13908: pinyin = "se "
     
270. Case -13907 To -13907: pinyin = "sen "
     
271. Case -13906 To -13906: pinyin = "seng "
     
272. Case -13905 To -13897: pinyin = "sha "
     
273. Case -13896 To -13895: pinyin = "shai "
     
274. Case -13894 To -13879: pinyin = "shan "
     
275. Case -13878 To -13871: pinyin = "shang "
     
276. Case -13870 To -13860: pinyin = "shao "
     
277. Case -13859 To -13848: pinyin = "she "
     
278. Case -13847 To -13832: pinyin = "shen "
     
279. Case -13831 To -13659: pinyin = "sheng "
     
280. Case -13658 To -13612: pinyin = "shi "
     
281. Case -13611 To -13602: pinyin = "shou "
     
282. Case -13601 To -13407: pinyin = "shu "
     
283. Case -13406 To -13405: pinyin = "shua "
     
284. Case -13404 To -13401: pinyin = "shuai "
     
285. Case -13400 To -13399: pinyin = "shuan "
     
286. Case -13398 To -13396: pinyin = "shuang "
     
287. Case -13395 To -13392: pinyin = "shui "
     
288. Case -13391 To -13388: pinyin = "shun "
     
289. Case -13387 To -13384: pinyin = "shuo "
     
290. Case -13383 To -13368: pinyin = "si "
     
291. Case -13367 To -13360: pinyin = "song "
     
292. Case -13359 To -13357: pinyin = "sou "
     
293. Case -13356 To -13344: pinyin = "su "
     
294. Case -13343 To -13341: pinyin = "suan "
     
295. Case -13340 To -13330: pinyin = "sui "
     
296. Case -13329 To -13327: pinyin = "sun "
     
297. Case -13326 To -13319: pinyin = "suo "
     
298. Case -13318 To -13148: pinyin = "ta "
     
299. Case -13147 To -13139: pinyin = "tai "
     
300. Case -13138 To -13121: pinyin = "tan "
     
301. Case -13120 To -13108: pinyin = "tang "
     
302. Case -13107 To -13097: pinyin = "tao "
     
303. Case -13096 To -13096: pinyin = "te "
     
304. Case -13095 To -13092: pinyin = "teng "
     
305. Case -13091 To -13077: pinyin = "ti "
     
306. Case -13076 To -13069: pinyin = "tian "
     
307. Case -13068 To -13064: pinyin = "tiao "
     
308. Case -13063 To -13061: pinyin = "tie "
     
309. Case -13060 To -12889: pinyin = "ting "
     
310. Case -12888 To -12876: pinyin = "tong "
     
311. Case -12875 To -12872: pinyin = "tou "
     
312. Case -12871 To -12861: pinyin = "tu "
     
313. Case -12860 To -12859: pinyin = "tuan "
     
314. Case -12858 To -12853: pinyin = "tui "
     
315. Case -12852 To -12850: pinyin = "tun "
     
316. Case -12849 To -12839: pinyin = "tuo "
     
317. Case -12838 To -12832: pinyin = "wa "
     
318. Case -12831 To -12830: pinyin = "wai "
     
319. Case -12829 To -12813: pinyin = "wan "
     
320. Case -12812 To -12803: pinyin = "wang "
     
321. Case -12802 To -12608: pinyin = "wei "
     
322. Case -12607 To -12598: pinyin = "wen "
     
323. Case -12597 To -12595: pinyin = "weng "
     
324. Case -12594 To -12586: pinyin = "wo "
     
325. Case -12585 To -12557: pinyin = "wu "
     
326. Case -12556 To -12360: pinyin = "xi "
     
327. Case -12359 To -12347: pinyin = "xia "
     
328. Case -12346 To -12321: pinyin = "xian "
     
329. Case -12320 To -12301: pinyin = "xiang "
     
330. Case -12300 To -12121: pinyin = "xiao "
     
331. Case -12120 To -12100: pinyin = "xie "
     
332. Case -12099 To -12090: pinyin = "xin "
     
333. Case -12089 To -12075: pinyin = "xing "
     
334. Case -12074 To -12068: pinyin = "xiong "
     
335. Case -12067 To -12059: pinyin = "xiu "
     
336. Case -12058 To -12040: pinyin = "xu "
     
337. Case -12039 To -11868: pinyin = "xuan "
     
338. Case -11867 To -11862: pinyin = "xue "
     
339. Case -11861 To -11848: pinyin = "xun "
     
340. Case -11847 To -11832: pinyin = "ya "
     
341. Case -11831 To -11799: pinyin = "yan "
     
342. Case -11798 To -11782: pinyin = "yang "
     
343. Case -11781 To -11605: pinyin = "yao "
     
344. Case -11604 To -11590: pinyin = "ye "
     
345. Case -11589 To -11537: pinyin = "yi "
     
346. Case -11536 To -11359: pinyin = "yin "
     
347. Case -11358 To -11341: pinyin = "ying "
     
348. Case -11340 To -11340: pinyin = "yo "
     
349. Case -11339 To -11325: pinyin = "yong "
     
350. Case -11324 To -11304: pinyin = "you "
     
351. Case -11303 To -11098: pinyin = "yu "
     
352. Case -11097 To -11078: pinyin = "yuan "
     
353. Case -11077 To -11068: pinyin = "yue "
     
354. Case -11067 To -11056: pinyin = "yun "
     
355. Case -11055 To -11053: pinyin = "za "
     
356. Case -11052 To -11046: pinyin = "zai "
     
357. Case -11045 To -11042: pinyin = "zan "
     
358. Case -11041 To -11039: pinyin = "zang "
     
359. Case -11038 To -11025: pinyin = "zao "
     
360. Case -11024 To -11021: pinyin = "ze "
     
361. Case -11020 To -11020: pinyin = "zei "
     
362. Case -11019 To -11019: pinyin = "zen "
     
363. Case -11018 To -11015: pinyin = "zeng "
     
364. Case -11014 To -10839: pinyin = "zha "
     
365. Case -10838 To -10833: pinyin = "zhai "
     
366. Case -10832 To -10816: pinyin = "zhan "
     
367. Case -10815 To -10801: pinyin = "zhang "
     
368. Case -10800 To -10791: pinyin = "zhao "
     
369. Case -10790 To -10781: pinyin = "zhe "
     
370. Case -10780 To -10765: pinyin = "zhen "
     
371. Case -10764 To -10588: pinyin = "zheng "
     
372. Case -10587 To -10545: pinyin = "zhi "
     
373. Case -10544 To -10534: pinyin = "zhong "
     
374. Case -10533 To -10520: pinyin = "zhou "
     
375. Case -10519 To -10332: pinyin = "zhu "
     
376. Case -10331 To -10330: pinyin = "zhua "
     
377. Case -10329 To -10329: pinyin = "zhuai "
     
378. Case -10328 To -10323: pinyin = "zhuan "
     
379. Case -10322 To -10316: pinyin = "zhuang "
     
380. Case -10315 To -10310: pinyin = "zhui "
     
381. Case -10309 To -10308: pinyin = "zhun "
     
382. Case -10307 To -10297: pinyin = "zhuo "
     
383. Case -10296 To -10282: pinyin = "zi "
     
384. Case -10281 To -10275: pinyin = "zong "
     
385. Case -10274 To -10271: pinyin = "zou "
     
386. Case -10270 To -10263: pinyin = "zu "
     
387. Case -10262 To -10261: pinyin = "zuan "
     
388. Case -10260 To -10257: pinyin = "zui "
     
389. Case -10256 To -10255: pinyin = "zun "
     
390. Case -10254 To -10254: pinyin = "zuo "
     
391. Case Else: pinyin = p
     
392. End Select
     
393. End Function
     
394. Function getpy(str)
     
395. For i = 1 To Len(str)
     
396. getpy = getpy & pinyin(Mid(str, i, 1))
     
397. Next i
     
398. End Function

复制代码

& i7 N* J0 J/ D/ F% M- s
/ e2 E" Y0 [/ B3 d$ v+ V
********复制到此结束,本行不复制*******, a3 W/ G) \# T

; j! D4 `' Y/ _& [5 @+ f  d: }6 ?* M1 A+ t5 I
现在转换函数已编写完成!关掉此编缉的窗口。
4 U1 ^* _, b* E* X' V6 O7 W, ^要在Excel中使用，方法如下：
: V) g2 Q$ a/ M& l: ~A1         A2
) D0 E% C$ C- e3 ?' c  @中国     =getpy(A1): x/ A, D8 F6 A' E

" w3 E3 k5 Q; c7 F. X% J: A6 m0 G; s) W8 G) v- B  e2 _3 L; ~
参考:
- l5 W; i% z3 U: X6 C$ _http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
. T% x' w6 I; s+ lhttp://blog.csdn.net/yxwmzouzou/article/details/32330679/
, x( D4 o, Y5 N7 L更多: http://club.excelhome.net/thread-772116-1-1.html