excel汉字转拼音.docx
- 文档编号:10875046
- 上传时间:2023-02-23
- 格式:DOCX
- 页数:15
- 大小:19.54KB
excel汉字转拼音.docx
《excel汉字转拼音.docx》由会员分享,可在线阅读,更多相关《excel汉字转拼音.docx(15页珍藏版)》请在冰豆网上搜索。
excel汉字转拼音
Excel中文转拼音,要不要空格可自选
2012-08-1714:
54:
49| 分类:
System_Windows| 标签:
|字号大中小 订阅
============================================================
Excel中文转拼音(简称版)
============================================================
打开Excel->工具->宏->ViaualBasic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1",粘贴以下内容:
Functiongetpychar(char)
tmp=65536+Asc(char)
If(tmp>=45217Andtmp<=45252)Then
getpychar="A"
ElseIf(tmp>=45253Andtmp<=45760)Then
getpychar="B"
ElseIf(tmp>=45761Andtmp<=46317)Then
getpychar="C"
ElseIf(tmp>=46318Andtmp<=46825)Then
getpychar="D"
ElseIf(tmp>=46826Andtmp<=47009)Then
getpychar="E"
ElseIf(tmp>=47010Andtmp<=47296)Then
getpychar="F"
ElseIf(tmp>=47297Andtmp<=47613)Then
getpychar="G"
ElseIf(tmp>=47614Andtmp<=48118)Then
getpychar="H"
ElseIf(tmp>=48119Andtmp<=49061)Then
getpychar="J"
ElseIf(tmp>=49062Andtmp<=49323)Then
getpychar="K"
ElseIf(tmp>=49324Andtmp<=49895)Then
getpychar="L"
ElseIf(tmp>=49896Andtmp<=50370)Then
getpychar="M"
ElseIf(tmp>=50371Andtmp<=50613)Then
getpychar="N"
ElseIf(tmp>=50614Andtmp<=50621)Then
getpychar="O"
ElseIf(tmp>=50622Andtmp<=50905)Then
getpychar="P"
ElseIf(tmp>=50906Andtmp<=51386)Then
getpychar="Q"
ElseIf(tmp>=51387Andtmp<=51445)Then
getpychar="R"
ElseIf(tmp>=51446Andtmp<=52217)Then
getpychar="S"
ElseIf(tmp>=52218Andtmp<=52697)Then
getpychar="T"
ElseIf(tmp>=52698Andtmp<=52979)Then
getpychar="W"
ElseIf(tmp>=52980Andtmp<=53640)Then
getpychar="X"
ElseIf(tmp>=53689Andtmp<=54480)Then
getpychar="Y"
ElseIf(tmp>=54481Andtmp<=62289)Then
getpychar="Z"
Else'如果不是中文,则不处理
getpychar=char
EndIf
EndFunction
Functiongetpy(str)
Fori=1ToLen(str)
getpy=getpy&getpychar(Mid(str,i,1))
Nexti
EndFunction
现在转换函数已编写完成!
关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1 A2
中国 =getpy(A1)
============================================================
Excel中文转拼音(完整版)
============================================================
打开Excel->工具->宏->ViaualBasic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块2",点击
在右边的空白栏中粘贴以下内容:
OptionExplicit
OptionCompareText
PublicFunctionHZQP(expressionAsString,OptionaldelimiterAsString="",OptionallimitAsInteger=-1) AsString
'expression
' 必需的?
包含要转换的字符串?
'delimiter
' 可选的。
用于标识分隔拼音的字符串字符。
如果忽略,则使用空格字符("")作为分隔符。
如果
'delimiter是一个长度为零的字符串,则返回仅包含一个元素,即完整的expression字符串。
'limit
' 可选的。
要返回拼音字符数,–1表示返回所有的拼音字符数,1表示返回拼音首字母。
DimSTRAsString,arrWord(400)AsString
DimiAsInteger,jAsInteger
arrWord
(1)="吖a"
arrWord
(2)="哎ai"
arrWord(3)="腤an"
arrWord(4)="肮ang"
arrWord(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(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"
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)="吹chui"
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)="当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"
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)="紑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(100)="瓜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(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"
arrWord(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"
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"
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)="唎li"
arrWord(167)="俩lia"
arrWord(168)="嫾lian"
arrWord(169)="簗liang"
arrWord(170)="蹽liao"
arrWord(171)="咧lie"
arrWord(172)="邻lin"
arrWord(173)="伶ling"
arrWord(174)="溜liu"
arrWord(175)="囖lo"
arrWord(176)="龙long"
arrWord(177)="娄lou"
arrWord(178)="露lu"
arrWord(179)="驴lv"
arrWord(180)="孪luan"
arrWord(181)="掠lue"
arrWord(182)="抡lun"
arrWord(183)="頱luo"
arrWord(184)="妈ma"
arrWord(185)="埋mai"
arrWord(186)="颟man"
arrWord(187)="牤mang"
arrWord(188)="猫mao"
arrWord(189)="庅me"
arrWord(190)="沒mei"
arrWord(191)="椚men"
arrWord(192)="掹meng"
arrWord(193)="咪mi"
arrWord(194)="芇mian"
arrWord(195)="喵miao"
arrWord(196)="乜mie"
arrWord(197)="民min"
arrWord(198)="名ming"
arrWord(199)="谬miu"
arrWord(200)="摸mo"
arrWord(201)="哞mou"
arrWord(202)="母mu"
arrWord(203)="拏na"
arrWord(204)="腉nai"
arrWord(205)="囡nan"
arrWord(206)="囔nang"
arrWord(207)="孬nao"
arrWord(208)="讷ne"
arrWord(209)="馁nei"
arrWord(210)="嫩nen"
arrWord(211)="能neng"
arrWord(212)="妮ni"
arrWord(213)="拈nian"
arrWord(214)="娘niang"
arrWord(215)="鸟niao"
arrWord(216)="捏nie"
arrWord(217)="脌nin"
arrWord(218)="宁ning"
arrWord(219)="妞niu"
arrWord(220)="农nong"
arrWord(221)="奴nu"
arrWord(222)="女nv"
arrWord(223)="疟nue"
arrWord(224)="奻nuan"
arrWord(225)="郍nuo"
arrWord(226)="噢o"
arrWord(227)="讴ou"
arrWord(228)="妑pa"
arrWord(229)="拍pai"
arrWord(230)="眅pan"
arrWord(231)="乓pang"
arrWord(232)="抛pao"
arrWord(233)="呸pei"
arrWord(234)="喷pen"
arrWord(235)="匉peng"
arrWord(236)="丕pi"
arrWord(237)="片pian"
arrWord(238)="剽piao"
arrWord(239)="氕pie"
arrWord(240)="姘pin"
arrWord(241)="娉ping"
arrWord(242)="钋po"
arrWord(243)="仆pu"
arrWord(244)="七qi"
arrWord(245)="掐qia"
arrWord(246)="千qian"
arrWord(247)="呛qiang"
arrWord(248)="悄qiao"
arrWord(249)="切qie"
arrWord(250)="亲qin"
arrWord(251)="靑qing"
arrWord(252)="宆qiong"
arrWord(253)="丘qiu"
arrWord(254)="区qu"
arrWord(255)="峑quan"
arrWord(256)="炔que"
arrWord(257)="夋qun"
arrWord(258)="呥ran"
arrWord(259)="穣rang"
arrWord(260)="荛rao"
arrWord(261)="惹re"
arrWord(262)="人ren"
arrWord(263)="扔reng"
arrWord(264)="日ri"
arrWord(265)="戎rong"
arrWord(266)="厹rou"
arrWord(267)="嶿ru"
arrWord(268)="堧ruan"
arrWord(269)="桵rui"
arrWord(270)="闰run"
arrWord(271)="叒ruo"
arrWord(272)="仨sa"
arrWord(273)="毢sai"
arrWord(274)="三san"
arrWord(275)="桒sang"
arrWord(276)="掻sao"
arrWord(277)="色se"
arrWord(278)="森sen"
arrWord(279)="僧seng"
arrWord(280)="杀sha"
arrWord(281)="筛shai"
arrWord(282)="山shan"
arrWord(283)="伤shang"
arrWord(284)="弰shao"
arrWord(285)="奢she"
arrWord(286)="申shen"
arrWord(287)="升sheng"
arrWord(288)="尸shi"
arrWord(289)="収shou"
arrWord(290)="书shu"
arrWord(291)="刷shua"
arrWord(292)="衰shuai"
arrWord(293)="闩shuan"
arrWord(294)="霜shuang"
arrWord(295)="谁shui"
arrWord(296)="吮shun"
arrWord(297)="说shuo"
arrWord(298)="厶si"
arrWord(299)="忪song"
arrWord(300)="凁sou"
arrWord(301)="苏su"
arrWord(302)="狻suan"
arrWord(303)="夊sui"
arrWord(304)="孙sun"
arrWord(305)="唆suo"
arrWord(306)="他ta"
arrWord(307)="囼tai"
arrWord(308)="坍tan"
arrWord(309)="汤tang"
arrWord(310)="仐tao"
arrWord(311)="忑te"
arrWord(312)="鼟teng"
arrWord(313)="剔ti"
arrWord(314)="天tian"
arrWord(315)="旫tiao"
arrWord(316)="贴tie"
arrWord(317)="厅ting"
arrWord(318)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excel 汉字 拼音