汉字转全拼音函数

HYY514

11楼更新，自带字库，支持音标、繁体汉字及更多偏僻字。

1. Option Explicit
   
2. 
   
3. Public Function Getpy(ByVal Chs As String, Optional bList As Boolean = True) As String
   
4. Dim ardata(-20319 To -10247) As String
   
5. ardata(-20319) = " a"
   
6. ardata(-20317) = " ai"
   
7. ardata(-20304) = " an"
   
8. ardata(-20295) = " ang"
   
9. ardata(-20292) = " ao"
   
10. ardata(-20283) = " ba"
    
11. ardata(-20265) = " bai"
    
12. ardata(-20257) = " ban"
    
13. ardata(-20242) = " bang"
    
14. ardata(-20230) = " bao"
    
15. ardata(-20051) = " bei"
    
16. ardata(-20036) = " ben"
    
17. ardata(-20032) = " beng"
    
18. ardata(-20026) = " bi"
    
19. ardata(-20002) = " bian"
    
20. ardata(-19990) = " biao"
    
21. ardata(-19986) = " bie"
    
22. ardata(-19982) = " bin"
    
23. ardata(-19976) = " bing"
    
24. ardata(-19805) = " bo"
    
25. ardata(-19784) = " bu"
    
26. ardata(-19775) = " ca"
    
27. ardata(-19774) = " cai"
    
28. ardata(-19763) = " can"
    
29. ardata(-19756) = " cang"
    
30. ardata(-19751) = " cao"
    
31. ardata(-19746) = " ce"
    
32. ardata(-19741) = " ceng"
    
33. ardata(-19739) = " cha"
    
34. ardata(-19728) = " chai"
    
35. ardata(-19725) = " chan"
    
36. ardata(-19715) = " chang"
    
37. ardata(-19540) = " chao"
    
38. ardata(-19531) = " che"
    
39. ardata(-19525) = " chen"
    
40. ardata(-19515) = " cheng"
    
41. ardata(-19500) = " chi"
    
42. ardata(-19484) = " chong"
    
43. ardata(-19479) = " chou"
    
44. ardata(-19467) = " chu"
    
45. ardata(-19289) = " chuai"
    
46. ardata(-19288) = " chuan"
    
47. ardata(-19281) = " chuang"
    
48. ardata(-19275) = " chui"
    
49. ardata(-19270) = " chun"
    
50. ardata(-19263) = " chuo"
    
51. ardata(-19261) = " ci"
    
52. ardata(-19249) = " cong"
    
53. ardata(-19243) = " cou"
    
54. ardata(-19242) = " cu"
    
55. ardata(-19238) = " cuan"
    
56. ardata(-19235) = " cui"
    
57. ardata(-19227) = " cun"
    
58. ardata(-19224) = " cuo"
    
59. ardata(-19218) = " da"
    
60. ardata(-19212) = " dai"
    
61. ardata(-19038) = " dan"
    
62. ardata(-19023) = " dang"
    
63. ardata(-19018) = " dao"
    
64. ardata(-19006) = " de"
    
65. ardata(-19003) = " deng"
    
66. ardata(-18996) = " di"
    
67. ardata(-18977) = " dian"
    
68. ardata(-18961) = " diao"
    
69. ardata(-18952) = " die"
    
70. ardata(-18783) = " ding"
    
71. ardata(-18774) = " diu"
    
72. ardata(-18773) = " dong"
    
73. ardata(-18763) = " dou"
    
74. ardata(-18756) = " du"
    
75. ardata(-18741) = " duan"
    
76. ardata(-18735) = " dui"
    
77. ardata(-18731) = " dun"
    
78. ardata(-18722) = " duo"
    
79. ardata(-18710) = " e"
    
80. ardata(-18697) = " en"
    
81. ardata(-18696) = " er"
    
82. ardata(-18526) = " fa"
    
83. ardata(-18518) = " fan"
    
84. ardata(-18501) = " fang"
    
85. ardata(-18490) = " fei"
    
86. ardata(-18478) = " fen"
    
87. ardata(-18463) = " feng"
    
88. ardata(-18448) = " fo"
    
89. ardata(-18447) = " fou"
    
90. ardata(-18446) = " fu"
    
91. ardata(-18239) = " ga"
    
92. ardata(-18237) = " gai"
    
93. ardata(-18231) = " gan"
    
94. ardata(-18220) = " gang"
    
95. ardata(-18211) = " gao"
    
96. ardata(-18201) = " ge"
    
97. ardata(-18184) = " gei"
    
98. ardata(-18183) = " gen"
    
99. ardata(-18181) = " geng"
    
100. ardata(-18012) = " gong"
     
101. ardata(-17997) = " gou"
     
102. ardata(-17988) = " gu"
     
103. ardata(-17970) = " gua"
     
104. ardata(-17964) = " guai"
     
105. ardata(-17961) = " guan"
     
106. ardata(-17950) = " guang"
     
107. ardata(-17947) = " gui"
     
108. ardata(-17931) = " gun"
     
109. ardata(-17928) = " guo"
     
110. ardata(-17922) = " ha"
     
111. ardata(-17759) = " hai"
     
112. ardata(-17752) = " han"
     
113. ardata(-17733) = " hang"
     
114. ardata(-17730) = " hao"
     
115. ardata(-17721) = " he"
     
116. ardata(-17703) = " hei"
     
117. ardata(-17701) = " hen"
     
118. ardata(-17697) = " heng"
     
119. ardata(-17692) = " hong"
     
120. ardata(-17683) = " hou"
     
121. ardata(-17676) = " hu"
     
122. ardata(-17496) = " hua"
     
123. ardata(-17487) = " huai"
     
124. ardata(-17482) = " huan"
     
125. ardata(-17468) = " huang"
     
126. ardata(-17454) = " hui"
     
127. ardata(-17433) = " hun"
     
128. ardata(-17427) = " huo"
     
129. ardata(-17417) = " ji"
     
130. ardata(-17202) = " jia"
     
131. ardata(-17185) = " jian"
     
132. ardata(-16983) = " jiang"
     
133. ardata(-16970) = " jiao"
     
134. ardata(-16942) = " jie"
     
135. ardata(-16915) = " jin"
     
136. ardata(-16733) = " jing"
     
137. ardata(-16708) = " jiong"
     
138. ardata(-16706) = " jiu"
     
139. ardata(-16689) = " ju"
     
140. ardata(-16664) = " juan"
     
141. ardata(-16657) = " jue"
     
142. ardata(-16647) = " jun"
     
143. ardata(-16474) = " ka"
     
144. ardata(-16470) = " kai"
     
145. ardata(-16465) = " kan"
     
146. ardata(-16459) = " kang"
     
147. ardata(-16452) = " kao"
     
148. ardata(-16448) = " ke"
     
149. ardata(-16433) = " ken"
     
150. ardata(-16429) = " keng"
     
151. ardata(-16427) = " kong"
     
152. ardata(-16423) = " kou"
     
153. ardata(-16419) = " ku"
     
154. ardata(-16412) = " kua"
     
155. ardata(-16407) = " kuai"
     
156. ardata(-16403) = " kuan"
     
157. ardata(-16401) = " kuang"
     
158. ardata(-16393) = " kui"
     
159. ardata(-16220) = " kun"
     
160. ardata(-16216) = " kuo"
     
161. ardata(-16212) = " la"
     
162. ardata(-16205) = " lai"
     
163. ardata(-16202) = " lan"
     
164. ardata(-16187) = " lang"
     
165. ardata(-16180) = " lao"
     
166. ardata(-16171) = " le"
     
167. ardata(-16169) = " lei"
     
168. ardata(-16158) = " leng"
     
169. ardata(-16155) = " li"
     
170. ardata(-15959) = " lia"
     
171. ardata(-15958) = " lian"
     
172. ardata(-15944) = " liang"
     
173. ardata(-15933) = " liao"
     
174. ardata(-15920) = " lie"
     
175. ardata(-15915) = " lin"
     
176. ardata(-15903) = " ling"
     
177. ardata(-15889) = " liu"
     
178. ardata(-15878) = " long"
     
179. ardata(-15707) = " lou"
     
180. ardata(-15701) = " lu"
     
181. ardata(-15681) = " lv"
     
182. ardata(-15667) = " luan"
     
183. ardata(-15661) = " lue"
     
184. ardata(-15659) = " lun"
     
185. ardata(-15652) = " luo"
     
186. ardata(-15640) = " ma"
     
187. ardata(-15631) = " mai"
     
188. ardata(-15625) = " man"
     
189. ardata(-15454) = " mang"
     
190. ardata(-15448) = " mao"
     
191. ardata(-15436) = " me"
     
192. ardata(-15435) = " mei"
     
193. ardata(-15419) = " men"
     
194. ardata(-15416) = " meng"
     
195. ardata(-15408) = " mi"
     
196. ardata(-15394) = " mian"
     
197. ardata(-15385) = " miao"
     
198. ardata(-15377) = " mie"
     
199. ardata(-15375) = " min"
     
200. ardata(-15369) = " ming"
     
201. ardata(-15363) = " miu"
     
202. ardata(-15362) = " mo"
     
203. ardata(-15183) = " mou"
     
204. ardata(-15180) = " mu"
     
205. ardata(-15165) = " na"
     
206. ardata(-15158) = " nai"
     
207. ardata(-15153) = " nan"
     
208. ardata(-15150) = " nang"
     
209. ardata(-15149) = " nao"
     
210. ardata(-15144) = " ne"
     
211. ardata(-15143) = " nei"
     
212. ardata(-15141) = " nen"
     
213. ardata(-15140) = " neng"
     
214. ardata(-15139) = " ni"
     
215. ardata(-15128) = " nian"
     
216. ardata(-15121) = " niang"
     
217. ardata(-15119) = " niao"
     
218. ardata(-15117) = " nie"
     
219. ardata(-15110) = " nin"
     
220. ardata(-15109) = " ning"
     
221. ardata(-14941) = " niu"
     
222. ardata(-14937) = " nong"
     
223. ardata(-14933) = " nu"
     
224. ardata(-14930) = " nv"
     
225. ardata(-14929) = " nuan"
     
226. ardata(-14928) = " nue"
     
227. ardata(-14926) = " nuo"
     
228. ardata(-14922) = " o"
     
229. ardata(-14921) = " ou"
     
230. ardata(-14914) = " pa"
     
231. ardata(-14908) = " pai"
     
232. ardata(-14902) = " pan"
     
233. ardata(-14894) = " pang"
     
234. ardata(-14889) = " pao"
     
235. ardata(-14882) = " pei"
     
236. ardata(-14873) = " pen"
     
237. ardata(-14871) = " peng"
     
238. ardata(-14857) = " pi"
     
239. ardata(-14678) = " pian"
     
240. ardata(-14674) = " piao"
     
241. ardata(-14670) = " pie"
     
242. ardata(-14668) = " pin"
     
243. ardata(-14663) = " ping"
     
244. ardata(-14654) = " po"
     
245. ardata(-14645) = " pu"
     
246. ardata(-14630) = " qi"
     
247. ardata(-14594) = " qia"
     
248. ardata(-14429) = " qian"
     
249. ardata(-14407) = " qiang"
     
250. ardata(-14399) = " qiao"
     
251. ardata(-14384) = " qie"
     
252. ardata(-14379) = " qin"
     
253. ardata(-14368) = " qing"
     
254. ardata(-14355) = " qiong"
     
255. ardata(-14353) = " qiu"
     
256. ardata(-14345) = " qu"
     
257. ardata(-14170) = " quan"
     
258. ardata(-14159) = " que"
     
259. ardata(-14151) = " qun"
     
260. ardata(-14149) = " ran"
     
261. ardata(-14145) = " rang"
     
262. ardata(-14140) = " rao"
     
263. ardata(-14137) = " re"
     
264. ardata(-14135) = " ren"
     
265. ardata(-14125) = " reng"
     
266. ardata(-14123) = " ri"
     
267. ardata(-14122) = " rong"
     
268. ardata(-14112) = " rou"
     
269. ardata(-14109) = " ru"
     
270. ardata(-14099) = " ruan"
     
271. ardata(-14097) = " rui"
     
272. ardata(-14094) = " run"
     
273. ardata(-14092) = " ruo"
     
274. ardata(-14090) = " sa"
     
275. ardata(-14087) = " sai"
     
276. ardata(-14083) = " san"
     
277. ardata(-13917) = " sang"
     
278. ardata(-13914) = " sao"
     
279. ardata(-13910) = " se"
     
280. ardata(-13907) = " sen"
     
281. ardata(-13906) = " seng"
     
282. ardata(-13905) = " sha"
     
283. ardata(-13896) = " shai"
     
284. ardata(-13894) = " shan"
     
285. ardata(-13878) = " shang"
     
286. ardata(-13870) = " shao"
     
287. ardata(-13859) = " she"
     
288. ardata(-13847) = " shen"
     
289. ardata(-13831) = " sheng"
     
290. ardata(-13658) = " shi"
     
291. ardata(-13611) = " shou"
     
292. ardata(-13601) = " shu"
     
293. ardata(-13406) = " shua"
     
294. ardata(-13404) = " shuai"
     
295. ardata(-13400) = " shuan"
     
296. ardata(-13398) = " shuang"
     
297. ardata(-13395) = " shui"
     
298. ardata(-13391) = " shun"
     
299. ardata(-13387) = " shuo"
     
300. ardata(-13383) = " si"
     
301. ardata(-13367) = " song"
     
302. ardata(-13359) = " sou"
     
303. ardata(-13356) = " su"
     
304. ardata(-13343) = " suan"
     
305. ardata(-13340) = " sui"
     
306. ardata(-13329) = " sun"
     
307. ardata(-13326) = " suo"
     
308. ardata(-13318) = " ta"
     
309. ardata(-13147) = " tai"
     
310. ardata(-13138) = " tan"
     
311. ardata(-13120) = " tang"
     
312. ardata(-13107) = " tao"
     
313. ardata(-13096) = " te"
     
314. ardata(-13095) = " teng"
     
315. ardata(-13091) = " ti"
     
316. ardata(-13076) = " tian"
     
317. ardata(-13068) = " tiao"
     
318. ardata(-13063) = " tie"
     
319. ardata(-13060) = " ting"
     
320. ardata(-12888) = " tong"
     
321. ardata(-12875) = " tou"
     
322. ardata(-12871) = " tu"
     
323. ardata(-12860) = " tuan"
     
324. ardata(-12858) = " tui"
     
325. ardata(-12852) = " tun"
     
326. ardata(-12849) = " tuo"
     
327. ardata(-12838) = " wa"
     
328. ardata(-12831) = " wai"
     
329. ardata(-12829) = " wan"
     
330. ardata(-12812) = " wang"
     
331. ardata(-12802) = " wei"
     
332. ardata(-12607) = " wen"
     
333. ardata(-12597) = " weng"
     
334. ardata(-12594) = " wo"
     
335. ardata(-12585) = " wu"
     
336. ardata(-12556) = " xi"
     
337. ardata(-12359) = " xia"
     
338. ardata(-12346) = " xian"
     
339. ardata(-12320) = " xiang"
     
340. ardata(-12300) = " xiao"
     
341. ardata(-12120) = " xie"
     
342. ardata(-12099) = " xin"
     
343. ardata(-12089) = " xing"
     
344. ardata(-12074) = " xiong"
     
345. ardata(-12067) = " xiu"
     
346. ardata(-12058) = " xu"
     
347. ardata(-12039) = " xuan"
     
348. ardata(-11867) = " xue"
     
349. ardata(-11861) = " xun"
     
350. ardata(-11847) = " ya"
     
351. ardata(-11831) = " yan"
     
352. ardata(-11798) = " yang"
     
353. ardata(-11781) = " yao"
     
354. ardata(-11604) = " ye"
     
355. ardata(-11589) = " yi"
     
356. ardata(-11536) = " yin"
     
357. ardata(-11358) = " ying"
     
358. ardata(-11340) = " yo"
     
359. ardata(-11339) = " yong"
     
360. ardata(-11324) = " you"
     
361. ardata(-11303) = " yu"
     
362. ardata(-11097) = " yuan"
     
363. ardata(-11077) = " yue"
     
364. ardata(-11067) = " yun"
     
365. ardata(-11055) = " za"
     
366. ardata(-11052) = " zai"
     
367. ardata(-11045) = " zan"
     
368. ardata(-11041) = " zang"
     
369. ardata(-11038) = " zao"
     
370. ardata(-11024) = " ze"
     
371. ardata(-11020) = " zei"
     
372. ardata(-11019) = " zen"
     
373. ardata(-11018) = " zeng"
     
374. ardata(-11014) = " zha"
     
375. ardata(-10838) = " zhai"
     
376. ardata(-10832) = " zhan"
     
377. ardata(-10815) = " zhang"
     
378. ardata(-10800) = " zhao"
     
379. ardata(-10790) = " zhe"
     
380. ardata(-10780) = " zhen"
     
381. ardata(-10764) = " zheng"
     
382. ardata(-10587) = " zhi"
     
383. ardata(-10544) = " zhong"
     
384. ardata(-10533) = " zhou"
     
385. ardata(-10519) = " zhu"
     
386. ardata(-10331) = " zhua"
     
387. ardata(-10329) = " zhuai"
     
388. ardata(-10328) = " zhuan"
     
389. ardata(-10322) = " zhuang"
     
390. ardata(-10315) = " zhui"
     
391. ardata(-10309) = " zhun"
     
392. ardata(-10307) = " zhuo"
     
393. ardata(-10296) = " zi"
     
394. ardata(-10281) = " zong"
     
395. ardata(-10274) = " zou"
     
396. ardata(-10270) = " zu"
     
397. ardata(-10262) = " zuan"
     
398. ardata(-10260) = " zui"
     
399. ardata(-10256) = " zun"
     
400. ardata(-10254) = " zuo"
     
401. 
     
402. Dim stmp As String
     
403. Dim i As Integer
     
404. Dim ii As Integer
     
405. 
     
406. For i = 1 To IIf(bList, Len(Chs), 1)
     
407. stmp = Mid(Chs, i, 1)
     
408. If Asc(stmp) > -10247 Or Asc(stmp) < -20319 Then
     
409. Getpy = Getpy & stmp
     
410. Else
     
411. For ii = Asc(stmp) To -20319 Step -1
     
412. If Len(ardata(ii)) Then
     
413. Getpy = Getpy & ardata(ii)
     
414. Exit For
     
415. End If
     
416. Next
     
417. End If
     
418. Next
     
419. Getpy = Trim(StrConv(Getpy, vbProperCase))
     
420. End Function
     
421. 
     
422. Sub test()
     
423. Debug.Print Getpy("飞翔的天空")
     
424. Debug.Print Getpy("飞翔的天空", False)
     
425. End Sub
     
426. 
     
427. 
     
428. 
     
429. 
     
430. 返回：
     
431. Fei Xiang De Tian Kong
     
432. Fei

复制代码

gulianzui

楼主，谢谢你

liuts

这个有用 顶

tony3

回复 HYY514 的帖子

楼主，你这个怎么用啊？

天使之翼

{:221:}应该有个公式的吧

wbzxz

回复 HYY514 的帖子

飞翔版主，能不能给讲讲这个代码的实现原理啊。

laosanjie

tony3 发表于 2011-5-18 14:30
回复 HYY514 的帖子

楼主，你这个怎么用啊？

这个是自定义函数，下面已将程序粘贴到工作簿里了。
例要转换成拼音的汉字在A2单元格，则可在你想显示结果的单元格里输入：=Getpy(A2)
（ HYY514 分享）汉字转全拼音函数.rar (13.15 KB, 下载次数: 485)

2011-5-18 15:22 上传

点击文件名下载附件

王玥琳

   不会用

leolee82

程序不认识“劯” 呢

HYY514

leolee82 发表于 2011-5-18 17:52
程序不认识“劯” 呢

上面程序只支持常用汉字吧，这个字我用自带的五笔竟然打不出来。
如果要支持更多偏僻字，只有建立个足够大的字典了。