阻力与速度公式Excel将汉字名字,转换为大写的拼音,全称

2020年10月3日发(作者：滕毅)
Excel将汉字名字，转换为大写的拼音，全称

打开excel

添加个模块（操作：打开excel--按alt+F11--插入-- 模块）将下列内容复制粘贴至模块
中，点击“保存”。然后在Excel中就可以转换了。

Function PinYin(Hz As String)

Dim PinMa As String

Dim MyPinMa As Variant

Dim Temp As Integer, i As Integer, j As Integer

PinMa =

PinMa = PinMa & < br>
0026,bian,20002,biao,19990,bie,19986,bin,19 982,bing,19976,bo,19805,bu,19784,

PinMa = PinMa &

19728,chan,19725,chang,19715,chao, 19540,che,19531,chen,19525,cheng,19515,chi,19500,c
hong,19484,chou,19479,chu,19467,chuai,19289,ch uan,19288,chuang,19281,chui,19275,chun
,19270,c huo,19263,ci,19261,cong,19249,cou,19243,cu,19242,c uan,19238,cui,19235,cun,192
27,cuo,19224,

PinMa = PinMa &

8977,diao,18961,die,18 952,ding,18783,diu,18774,dong,18773,dou,18763,du,1 8756,duan,187
41,dui,18735,dun,18731,duo,18722,

PinMa = PinMa &

PinMa = PinMa &

,

PinMa = PinMa &

18181,go ng,18012,gou,17997,gu,17988,gua,17970,guai,17964,g uan,17961,guang,17950,gui,
17947,gun,17931,guo, 17928,

PinMa = PinMa &

17697,hong, 17692,hou,17683,hu,17676,hua,17496,huai,17487,huan ,17482,huang,17468,hui,
17454,hun,17433,huo,174 27,

PinMa = PinMa &

8,jiu,16706,ju ,16689,juan,16664,jue,16657,jun,16647,

PinMa = PinMa &

,16427,kou,16423,ku,16 419,kua,16412,kuai,16407,kuan,16403,kuang,16401,ku i,16393,kun,1
6220,kuo,16216,

PinMa = PinMa &

,15959,lian,15958,liang,15944,liao ,15933,lie,15920,lin,15915,ling,15903,liu,15889,lo ng,15878,l
ou,15707,lu,15701,lv,15681,luan,1566 7,lue,15661,lun,15659,luo,15652,

PinMa = PinMa &

meng,15416,mi,15408,mian,15394,mia o,15385,mie,15377,min,15375,ming,15369,miu,15363,< br>mo,15362,mou,15183,mu,15180,

PinMa = PinMa &

15140,ni,15139,nian,15128,niang,15 121,niao,15119,nie,15117,nin,15110,ning,15109,niu, 1494
1,nong,14937,nu,14933,nv,14930,nuan,14929, nue,14928,nuo,14926,

PinMa = PinMa &

PinMa = PinMa &

4857,pian,14678,piao,1 4674,pie,14670,pin,14668,ping,14663,po,14654,pu,14 645,

PinMa = PinMa &

g,14355,qiu,1 4353,qu,14345,quan,14170,que,14159,qun,14151,

PinMa = PinMa &

112,ru,14109,ruan,1409 9,rui,14097,run,14094,ruo,14092,

PinMa = PinMa &

13905,shai,13896,shan,13894,shang, 13878,shao,13870,she,13859,shen,13847,sheng,13831,
shi,13658,shou,13611,shu,13601,shua,13406,shua i,13404,shuan,13400,shuang,13398,shui,1
3395,sh un,13391,shuo,13387,si,13383,song,13367,sou,13359, su,13356,suan,13343,sui,1334
0,sun,13329,suo,13 326,

PinMa = PinMa &

tiao,13068,ti e,13063,ting,13060,tong,12888,tou,12875,tu,12871,t uan,12860,tui,12858,tun,128
52,tuo,12849,

PinMa = PinMa &

u,12585,

PinMa = PinMa &

,12074,xiu,12067,xu,12058,xuan,1 2039,xue,11867,xun,11861,

PinMa = PinMa &

40,yong,11339,you,11324,yu,11303,yuan,1109 7,yue,11077,yun,11067,

PinMa = PinMa &

1018,zha,11014,zhai,10838,zhan,10832,zhang,10 815,zhao,10800,zhe,10790,zhen,10780,zhe
ng,1076 4,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua, 10331,zhuai,10329,zhuan,103
28,zhuang,10322,zhu i,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281, zou,10274,zu,102
70,zuan,10262,zui,10260,zun,10 256,zuo,10254

MyPinMa = Split(PinMa,

For i = 1 To Len(Hz)

Temp = Asc(Mid(Hz, i, 1))

If Temp < 0 Then

Temp = Abs(Temp)

For j = 791 To 1 Step -2

If Temp <= Val(MyPinMa(j)) Then

PinYin = PinYin & MyPinMa(j - 1) &

Exit For

End If

Next

End If

Next

PinYin = Trim(PinYin)

End Function

以上拼音码表是从 网上一些工具源文伯中获得,未全部验证其准确性,但愿不会有错吧!至于算法就
是根据汉字ASC码与 码表进行比对,有点难看.使用中发现上边码表所获仅限于GB2312-80 I

级
汉字

然后再任意单元格输入

=pinyin(a1)

就把a1中的汉字转换成拼音了。

有关EXCEL大小写字母转换的几个函数
在使用Excel过程中，经常会遇到需要转换大 小写字母的情况，主要是为了文档内容统一，整齐美观。

1.

将英文单词首字母转换为大写

PROPER函数

用途：将文字串 的首字母及任何非字母字符之后的首字母转换成大写。将其余的字母转换成小写。

语法：PROPER(text)

参数：Text是需要进行转换的字符串，包括双 引号中的文字串、返回文本值的公式或对含有文本的单元格引用等。

实例1：如果A1=学习 excel，则公式“=PROPER(A1)”返回“学习Excel”。

实例2：假如你在A1单元格输入了“ZHONGHUA ROAD”，

然后你在B1单元格输入公式：=PROPER(A1 )

然后回车，B1显示的结果就是“Zhonghua Road”。

2.

将大写字母转换为小写

Lower函数

用途：将一个文本字符串中的所有大写字母转换为小写字母。

语法：LOWER(text)

参数：Text

是要转换为小写字母的文本。函数

LOWER

不改变文本中的非字母的字符。

以上面例子2为例子，如果在B1单元格输入公式：=LOWER(A1 )

，则回车后B1单元格内容为“zhonghua road”，全部大写字
母转换为小写。

3.将所有小写字母转换为大写

UPPER函数

用途：将文本转换成大写形式。


语法：UPPER(text)

参数：Text

为需要转换成大写形式的文本。Text

可以为引用或文本字符串。

示例：如果您将示例复制到空白工作表中，可能会更易于理解该示例。

A


1

数据

2

Movies艺术

3

java技术

公式

说明（结果）

第一个字符串
=UPPER(A2)

大写(MOVIES
艺术)

第二个字符串
=UPPER(A3)

大写(JAVA技
术