Excel汉字转变拼音首字母缩写的函数

Excel汉字转变拼音首字母缩写的函数

图片 1

今昔调换函数已编写制定作而成功!关掉此编缉的窗口。
要在Excel中动用,方法如下:
A1         A2
中国     =getpy(A1)

 E.通过插入窗体做Mini处理软件。

例:下图是百度宏观“奥林匹克运动会”网页中的一个报表,大家以此为例完毕抓取该表格至Excel中,并且能够通过输入第几届来询问相应的设置城市。

EXCEL如何自动将人名调换为拼音?以下是自身的解决方法,不是用VBA,而是依附word来操作

打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下边会现身三个名叫”模块1″,点击
在左边的空白栏中粘贴以下内容:
”””””””””””
‘VBA代码转换者:惟惟
‘联系方法:Email:wuweiyin@yeah.net
‘个人博客:
‘如有不正确的地点,请提议来或是援助完善
‘谢谢
”””””””””””””””
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = “A”
Case -20283 To -19776: pinyin = “B”
Case -19775 To -19219: pinyin = “C”
Case -19218 To -18711: pinyin = “D”
Case -18710 To -18527: pinyin = “E”
Case -18526 To -18240: pinyin = “F”
Case -18239 To -17923: pinyin = “G”
Case -17922 To -17418: pinyin = “H”
Case -17417 To -16475: pinyin = “J”
Case -16474 To -16213: pinyin = “K”
Case -16212 To -15641: pinyin = “L”
Case -15640 To -15166: pinyin = “M”
Case -15165 To -14923: pinyin = “N”
Case -14922 To -14915: pinyin = “O”
Case -14914 To -14631: pinyin = “P”
Case -14630 To -14150: pinyin = “Q”
Case -14149 To -14091: pinyin = “R”
Case -14090 To -13319: pinyin = “S”
Case -13318 To -12839: pinyin = “T”
Case -12838 To -12557: pinyin = “W”
Case -12556 To -11848: pinyin = “X”
Case -11847 To -11056: pinyin = “Y”
Case -11055 To -2050: pinyin = “Z”
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
********复制到此停止,本行不复制*******

   Sub t5()

Step2:使用“查找与援引”函数实现数量查询

创造查询区域,包括“届数”和“主办城市”,在届数中随便筛选生机勃勃届输入,下图输入“第08届”,在主办城市下输入vlookup函数,能够赢得第08届奥林匹克运动会的带头城市是法国巴黎,当改正届数时,对应的主持城市也随时转移。

公式:=VLOOKUP([届数],奥运会[#全部],4,0)

图片 2

注意点:若网页中的数据变动较频仍,则足以设置链接网页的多少准期刷新:

①将鼠标定位于导入的数目区域中,切换成选项卡,点击下拉箭头→

图片 3

②在弹出的对话框中,设置,举个例子设置为10分钟举行刷新。那样,每隔10分钟数据就能刷新一遍,时刻保险收获的数目位最新的。

图片 4


style=”font-weight: bold;”>「精进Excel」系头条签订协议小编,关切本人,借使大肆点开三篇文章,没有你想要的知识,算自个儿耍流氓!

回答:

世家好,笔者是@Excel实例录制网址长@应接私信大概特邀我回答Excel相关难题!


有人在群里问手提式有线电话机号怎么批量查归于地,第一感到是百度时而,结果还真没找到好用的,既然如此,笔者就和煦写贰个吗!首先找了多少个webapi,找到个相当好用的,就用vba写了个自定义函数,测量检验下认为依旧蛮好用,速度也挺快

图片 5

style=”font-weight: bold;”>源文件下载链接请私信回复63005就能够

应用方式:

1.在本表中向来在A1列输入手提式有线电话机号就能够

2.要在任何表中,alt+f11展开vbe编辑器,复制模块中代码,在你的新表中创设模块,粘贴代码就可以

3.函数参数表达

GetPhoneInfo(号码,参数)

编号—即单个手提式有线电话机号

参数(1,2,3,4):1-城市,2-省,3-运营商, 4-全部

代码如下

Dim ObjXML As Object

Function GetPhoneInfo(number, Optional para As Byte = 1)

‘获取手提式有线电电话机号对应的宗旨音讯 默感觉城市

‘para:1-城市,2-省,3-运营商,4,全部

Dim s As String

s =
GetBody(“”
& number)

Select Case para

Case 1

GetPhoneInfo = HtmlFilter(s, “City””:”””, “”””)

Case 2

GetPhoneInfo = HtmlFilter(s, “Province””:”””, “”””)

Case 3

GetPhoneInfo = HtmlFilter(s, “TO””:”””, “”””)

Case 4

GetPhoneInfo = HtmlFilter(s, “City””:”””, “”””) & “,” & HtmlFilter(s,
“Province””:”””, “”””) & “,” & HtmlFilter(s, “TO””:”””, “”””)

End Select

GetPhoneInfo = Replace(GetPhoneInfo, ” “, “”)

End Function

Private Sub Test()

Dim i&, j&, k&, arr, brr

url =
“”

Debug.Print GetBody(url)

End Sub

”’假设出现乱码,UTF-8可改为GB2312

Public Function GetBody(ByVal url$, Optional ByVal Coding$ = “utf-8”)

On Error Resume Next

Set ObjXML = CreateObject(“Microsoft.XMLHTTP”)

With ObjXML

.Open “Get”, url, False, “”, “”

‘.setRequestHeader “If-Modified-Since”, “0”

‘.setRequestHeader “User-Agent”, _

“.Mozilla/5.0 (Windows NT 6.1; WOW64; rv:47.0) Gecko/20100101
Firefox/47.0”

.Send

GetBody = .ResponseBody

End With

GetBody = BytesToBstr(GetBody, Coding)

Set ObjXML = Nothing

End Function

Public Function BytesToBstr(strBody, CodeBase)

Dim ObjStream

Set ObjStream = CreateObject(“Adodb.Stream”)

With ObjStream

.Type = 1: .Mode = 3: .Open:

.Write strBody: .Position = 0: .Type = 2: .Charset = CodeBase

BytesToBstr = .ReadText: .Close

End With

Set ObjStream = Nothing

End Function

Public Function HtmlFilter(ByVal htmlText$, ByVal Label1$, ByVal
label2$)

‘重临html字符串lable1和近期的lable2标签中的数据

Dim pStart As Long, pStop As Long

pStart = InStr(htmlText, Label1) + Len(Label1)

If pStart <> 0 Then

pStop = InStr(pStart, htmlText, label2)

HtmlFilter = Mid(htmlText, pStart, pStop – pStart)

End If

End Function

回答:

行业内部的人做正经作业。

图片 6

range(“a1”)=10

那是抓取的交锋列表:

图片 7

感激今日头条的特约,我们好,作者是Excel美妙之旅,专心于Excel知识和本领的享受

     For x = 1 To 10

意气风发旦是常常职务多,且有确定的功底,学习一下未必不可。

老猫是由此VBA操作的,写贰个代码,抓取数据,也很便利。

老猫正在开辟的风华正茂款足彩软件程序救市从互连网抓取多量数量。然后深入分析和预测足彩。

头条号:李先生计算机传授教室,轻便实用,清晰明了,专门系统教学计算机知识,软件使用才能,应接关怀。

回答:

时下用Excel要求使用VBA来促成,操作过于复杂,在小白不懂的情景下,也说不许会有安全性难点。

提出换意气风发种思路,那便是行使网址来成功拼音调换后,再粘贴回Excel中。操作步骤如下:

                                                                                                                                     

图片 8

回答:

          Loop Until x = 100

问题:在平日专门的学业中会碰着,知道里面叁个数目,举例姓名,在表格中输入姓名后,想要自动带出网页中该姓名对应的连带数据,比方该姓名的电话,地址等新闻,怎么着成功呢?

接下去详细介绍操作方法:

                Cells(1, 1) = x

那是抓取的赔率数据

图片 9

综上说述,假使想学是轻巧的。

回答:

以EXCEL二零零三为例来给您作证。

风流洒脱、首先展开EXCEL2001,在菜单栏找到“数据”然后在下拉菜单点击“导入外界数据-新建WEB查询”
图片 10
二、然后在张开的对话框中的地址栏中,将你要导入的网站输入进去,按下转到开关。
图片 11
三、在弹开的对话框中原则要求导入的区域,按下导入开关,那个时候,数据就被导入到EXCEL里面啦!
图片 12最终,你的微型机得链接网络,要不未有数据,那样导入的补益是,能够和网址上保持意气风发致,无需举行手动更新,很有益。

操作思路:

       For X = 1 To 10

回答:

李先生简要介绍:创办Computer学园,全职从事计算机教学二十余年。

      For x = 2 To 6

那是VBA程序代码

图片 13

细心粘贴到Word的时候接受只保留文本那三个选项,不然word无法加多拼音

         Cells(X, 1) = X

Step1:使用“获取和转移”功用将互联网数据抓取至Excel中

逐个点击“数据选项卡”、“新建查询”、“从别的源”、“从Web”。

图片 14

弹出如下窗口,手动将百度完备“奥林匹克运动会”的网站复制粘入U奇骏L栏,并点击分明。

图片 15

Excel与网页连接须要自然时间,稍等片刻后会弹出如下窗口,左侧列表中的每种Table都意味着该网页中的三个表格,挨个点击预览后意识,Table3是我们所需的数额。

图片 16

点开下方的“加载”旁边的下拉箭头,选用“加载到”。

图片 17

在弹出的窗口中,在“选拔想要在办事薄中查看此数据的章程”下抉择“表”,并点击加载。

图片 18

如图,网页表格中的数据已被抓取至Excel中。

图片 19

依次点击“表格工具”、“设计”,将“表名称”改为奥运会。

图片 20

首先:把excel中的姓名粘贴到word中,依据word增添拼音,再把word中加多拼音的结果粘贴到excel中

  B.For each 循环语句

Excel抓取并询问互连网数据能够运用“获取和改造”+“查找引用函数”的作用整合来落实。

其风流倜傥公式利用substitute函数把拼音中的字母为韵母的唱腔都替换来了不带声调的韵母,也就让拼音的腔调去除了

             Cells(1, 1) = x

即使只是临时有这一个职务,照旧在英特网出点钱,找人做了。

耗费的钱确实非常少。几百元充足了。

回答:

      excel文件便是excel职业簿,excel文件张开须要excel程的援助

第二:用PHONETIC函数得到拼音

        Debug.Print “第” & x & “次运营结果:” & st

图片 21

      End Sub

其三:用substitute函数将拼音声调去掉(这一步视要求,如不供给删除声调能够忽视)

                                                    图7 运营结果

图片 22

    End Sub

1卡塔 尔(英语:State of Qatar)第大器晚成:把excel中的姓名粘贴到word中,依附word增加拼音,注意粘贴的时候选拔只保留文本那么些选项,增多拼音后再粘贴回Excel

     ActiveWorkbook 正在操作的专门的学业簿

图片 23

  

其三:用substitute函数将拼音声调去掉(这一步视要求,如无需删除声调能够忽视

           Next x

操作步骤如下

图片 24

回答:

英特网有大多用VBA制作而成的自定义函数,寻觅下姓名转拼音能够找到许多的。然后能够像使用普通职业表函数那么选取,生僻字保险持续,但3000常用汉字正确率还是极高的

 C、马上窗口

问题:EXCEL怎样自动将人名调换为拼音?

                                                               图4 代码贮存在“模块”中

EXCEL怎样自动将人名调换为拼音?

感激悟空小秘的邀约!

EXCEL怎么着自动将人名转变为拼音,由于EXCEL中一向不汉字自动转变拼音的法力,所以要在VBA中自定义三个转移函数。

具体操作步骤

先是步,要把EXCEL文书档案转变为 XLSM格式,启用宏。

图片 25

其次步,在文书,设置,自定义成效区中勾选开采工具。

图片 26

第三步,打开VBA编辑器。

图片 27

第四步,插入模块。

图片 28

第五步,在模块中输入如下代码:

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: pinyin = “a “

Case -20317 To -20305: pinyin = “ai “

Case -20304 To -20296: pinyin = “an “

Case -20295 To -20293: pinyin = “ang “

Case -20292 To -20284: pinyin = “ao “

Case -20283 To -20266: pinyin = “ba “

Case -20265 To -20258: pinyin = “bai “

Case -20257 To -20243: pinyin = “ban “

Case -20242 To -20231: pinyin = “bang “

Case -20230 To -20052: pinyin = “bao “

Case -20051 To -20037: pinyin = “bei “

Case -20036 To -20033: pinyin = “ben “

Case -20032 To -20027: pinyin = “beng “

Case -20026 To -20003: pinyin = “bi “

Case -20002 To -19991: pinyin = “bian “

Case -19990 To -19987: pinyin = “biao “

Case -19986 To -19983: pinyin = “bie “

Case -19982 To -19977: pinyin = “bin “

Case -19976 To -19806: pinyin = “bing “

Case -19805 To -19785: pinyin = “bo “

Case -19784 To -19776: pinyin = “bu “

Case -19775 To -19775: pinyin = “ca “

Case -19774 To -19764: pinyin = “cai “

Case -19763 To -19757: pinyin = “can “

Case -19756 To -19752: pinyin = “cang “

Case -19751 To -19747: pinyin = “cao “

Case -19746 To -19742: pinyin = “ce “

Case -19741 To -19740: pinyin = “ceng “

Case -19739 To -19729: pinyin = “cha “

Case -19728 To -19726: pinyin = “chai “

Case -19725 To -19716: pinyin = “chan “

Case -19715 To -19541: pinyin = “chang “

Case -19540 To -19532: pinyin = “chao “

Case -19531 To -19526: pinyin = “che “

Case -19525 To -19516: pinyin = “chen “

Case -19515 To -19501: pinyin = “cheng “

Case -19500 To -19485: pinyin = “chi “

Case -19484 To -19480: pinyin = “chong “

Case -19479 To -19468: pinyin = “chou “

Case -19467 To -19290: pinyin = “chu “

Case -19289 To -19289: pinyin = “chuai “

Case -19288 To -19282: pinyin = “chuan “

Case -19281 To -19276: pinyin = “chuang “

Case -19275 To -19271: pinyin = “chui “

Case -19270 To -19264: pinyin = “chun “

Case -19263 To -19262: pinyin = “chuo “

Case -19261 To -19250: pinyin = “ci “

Case -19249 To -19244: pinyin = “cong “

Case -19243 To -19243: pinyin = “cou “

Case -19242 To -19239: pinyin = “cu “

Case -19238 To -19236: pinyin = “cuan “

Case -19235 To -19228: pinyin = “cui “

Case -19227 To -19225: pinyin = “cun “

Case -19224 To -19219: pinyin = “cuo “

Case -19218 To -19213: pinyin = “da “

Case -19212 To -19039: pinyin = “dai “

Case -19038 To -19024: pinyin = “dan “

Case -19023 To -19019: pinyin = “dang “

Case -19018 To -19007: pinyin = “dao “

Case -19006 To -19004: pinyin = “de “

Case -19003 To -18997: pinyin = “deng “

Case -18996 To -18978: pinyin = “di “

Case -18977 To -18962: pinyin = “dian “

Case -18961 To -18953: pinyin = “diao “

Case -18952 To -18784: pinyin = “die “

Case -18783 To -18775: pinyin = “ding “

Case -18774 To -18774: pinyin = “diu “

Case -18773 To -18527: pinyin = “dong “

Case -18526 To -18519: pinyin = “fa “

Case -18518 To -18502: pinyin = “fan “

Case -18501 To -18491: pinyin = “fang “

Case -18490 To -18479: pinyin = “fei “

Case -18478 To -18464: pinyin = “fen “

Case -18463 To -18449: pinyin = “feng “

Case -18448 To -18448: pinyin = “fo “

Case -18447 To -18447: pinyin = “fou “

Case -18446 To -18240: pinyin = “fu “

Case -18239 To -18238: pinyin = “ga “

Case -18237 To -18232: pinyin = “gai “

Case -18231 To -18221: pinyin = “gan “

Case -18220 To -18212: pinyin = “gang “

Case -18211 To -18202: pinyin = “gao “

Case -18201 To -18185: pinyin = “ge “

Case -18184 To -18184: pinyin = “gei “

Case -18183 To -18182: pinyin = “gen “

Case -18181 To -18013: pinyin = “geng “

Case -18012 To -17998: pinyin = “gong “

Case -17997 To -17989: pinyin = “gou “

Case -17988 To -17971: pinyin = “gu “

Case -17970 To -17965: pinyin = “gua “

Case -17964 To -17962: pinyin = “guai “

Case -17961 To -17951: pinyin = “guan “

Case -17950 To -17948: pinyin = “guang “

Case -17947 To -17932: pinyin = “gui “

Case -17931 To -17929: pinyin = “gun “

Case -17928 To -17923: pinyin = “guo “

Case -17922 To -17760: pinyin = “ha “

Case -17759 To -17753: pinyin = “hai “

Case -17752 To -17734: pinyin = “han “

Case -17733 To -17731: pinyin = “hang “

Case -17730 To -17722: pinyin = “hao “

Case -17721 To -17704: pinyin = “he “

Case -17703 To -17702: pinyin = “hei “

Case -17701 To -17698: pinyin = “hen “

Case -17697 To -17693: pinyin = “heng “

Case -17692 To -17684: pinyin = “hong “

Case -17683 To -17677: pinyin = “hou “

Case -17676 To -17497: pinyin = “hu “

Case -17496 To -17488: pinyin = “hua “

Case -17487 To -17483: pinyin = “huai “

Case -17482 To -17469: pinyin = “huan “

Case -17468 To -17455: pinyin = “huang “

Case -17454 To -17434: pinyin = “hui “

Case -17433 To -17428: pinyin = “hun “

Case -17427 To -17418: pinyin = “huo “

Case -17417 To -17203: pinyin = “ji “

Case -17202 To -17186: pinyin = “jia “

Case -17185 To -16984: pinyin = “jian “

Case -16983 To -16971: pinyin = “jiang “

Case -16970 To -16943: pinyin = “jiao “

Case -16942 To -16916: pinyin = “jie “

Case -16915 To -16734: pinyin = “jin “

Case -16733 To -16709: pinyin = “jing “

Case -16708 To -16707: pinyin = “jiong “

Case -16706 To -16690: pinyin = “jiu “

Case -16689 To -16665: pinyin = “ju “

Case -16664 To -16658: pinyin = “juan “

Case -16657 To -16648: pinyin = “jue “

Case -16647 To -16475: pinyin = “jun “

Case -16474 To -16471: pinyin = “ka “

Case -16470 To -16466: pinyin = “kai “

Case -16465 To -16460: pinyin = “kan “

Case -16459 To -16453: pinyin = “kang “

Case -16452 To -16449: pinyin = “kao “

Case -16448 To -16434: pinyin = “ke “

Case -16433 To -16430: pinyin = “ken “

Case -16429 To -16428: pinyin = “keng “

Case -16427 To -16424: pinyin = “kong “

Case -16423 To -16420: pinyin = “kou “

Case -16419 To -16413: pinyin = “ku “

Case -16412 To -16408: pinyin = “kua “

Case -16407 To -16404: pinyin = “kuai “

Case -16403 To -16402: pinyin = “kuan “

Case -16401 To -16394: pinyin = “kuang “

Case -16393 To -16221: pinyin = “kui “

Case -16220 To -16217: pinyin = “kun “

Case -16216 To -16213: pinyin = “kuo “

Case -16212 To -16206: pinyin = “la “

Case -16205 To -16203: pinyin = “lai “

Case -16202 To -16188: pinyin = “lan “

Case -16187 To -16181: pinyin = “lang “

Case -16180 To -16172: pinyin = “lao “

Case -16171 To -16170: pinyin = “le “

Case -16169 To -16159: pinyin = “lei “

Case -16158 To -16156: pinyin = “leng “

Case -16155 To -15960: pinyin = “li “

Case -15959 To -15959: pinyin = “lia “

Case -15958 To -15945: pinyin = “lian “

Case -15944 To -15934: pinyin = “liang “

Case -15933 To -15921: pinyin = “liao “

Case -15920 To -15916: pinyin = “lie “

Case -15915 To -15904: pinyin = “lin “

Case -15903 To -15890: pinyin = “ling “

Case -15889 To -15879: pinyin = “liu “

Case -15878 To -15708: pinyin = “long “

Case -15707 To -15702: pinyin = “lou “

Case -15701 To -15682: pinyin = “lu “

Case -15681 To -15668: pinyin = “lv “

Case -15667 To -15662: pinyin = “luan “

Case -15661 To -15660: pinyin = “lue “

Case -15659 To -15653: pinyin = “lun “

Case -15652 To -15641: pinyin = “luo “

Case -15640 To -15632: pinyin = “ma “

Case -15631 To -15626: pinyin = “mai “

Case -15625 To -15455: pinyin = “man “

Case -15454 To -15449: pinyin = “mang “

Case -15448 To -15437: pinyin = “mao “

Case -15436 To -15436: pinyin = “me “

Case -15435 To -15420: pinyin = “mei “

Case -15419 To -15417: pinyin = “men “

Case -15416 To -15409: pinyin = “meng “

Case -15408 To -15395: pinyin = “mi “

Case -15394 To -15386: pinyin = “mian “

Case -15385 To -15378: pinyin = “miao “

Case -15377 To -15376: pinyin = “mie “

Case -15375 To -15370: pinyin = “min “

Case -15369 To -15364: pinyin = “ming “

Case -15363 To -15363: pinyin = “miu “

Case -15362 To -15184: pinyin = “mo “

Case -15183 To -15181: pinyin = “mou “

Case -15180 To -15166: pinyin = “mu “

Case -15165 To -15159: pinyin = “na “

Case -15158 To -15154: pinyin = “nai “

Case -15153 To -15151: pinyin = “nan “

Case -15150 To -15150: pinyin = “nang “

Case -15149 To -15145: pinyin = “nao “

Case -15144 To -15144: pinyin = “ne “

Case -15143 To -15142: pinyin = “nei “

Case -15141 To -15141: pinyin = “nen “

Case -15140 To -15140: pinyin = “neng “

Case -15139 To -15129: pinyin = “ni “

Case -15128 To -15122: pinyin = “nian “

Case -15121 To -15120: pinyin = “niang “

Case -15119 To -15118: pinyin = “niao “

Case -15117 To -15111: pinyin = “nie “

Case -15110 To -15110: pinyin = “nin “

Case -15109 To -14942: pinyin = “ning “

Case -14941 To -14938: pinyin = “niu “

Case -14937 To -14934: pinyin = “nong “

Case -14933 To -14931: pinyin = “nu “

Case -14930 To -14930: pinyin = “nv “

Case -14929 To -14929: pinyin = “nuan “

Case -14928 To -14927: pinyin = “nue “

Case -14926 To -14923: pinyin = “nuo “

Case -14922 To -14922: pinyin = “o “

Case -14921 To -14915: pinyin = “ou “

Case -14914 To -14909: pinyin = “pa “

Case -14908 To -14903: pinyin = “pai “

Case -14902 To -14895: pinyin = “pan “

Case -14894 To -14890: pinyin = “pang “

Case -14889 To -14883: pinyin = “pao “

Case -14882 To -14874: pinyin = “pei “

Case -14873 To -14872: pinyin = “pen “

Case -14871 To -14858: pinyin = “peng “

Case -14857 To -14679: pinyin = “pi “

Case -14678 To -14675: pinyin = “pian “

Case -14674 To -14671: pinyin = “piao “

Case -14670 To -14669: pinyin = “pie “

Case -14668 To -14664: pinyin = “pin “

Case -14663 To -14655: pinyin = “ping “

Case -14654 To -14646: pinyin = “po “

Case -14645 To -14631: pinyin = “pu “

Case -14630 To -14595: pinyin = “qi “

Case -14594 To -14430: pinyin = “qia “

Case -14429 To -14408: pinyin = “qian “

Case -14407 To -14400: pinyin = “qiang “

Case -14399 To -14385: pinyin = “qiao “

Case -14384 To -14380: pinyin = “qie “

Case -14379 To -14369: pinyin = “qin “

Case -14368 To -14356: pinyin = “qing “

Case -14355 To -14354: pinyin = “qiong “

Case -14353 To -14346: pinyin = “qiu “

Case -14345 To -14171: pinyin = “qu “

Case -14170 To -14160: pinyin = “quan “

Case -14159 To -14152: pinyin = “que “

Case -14151 To -14150: pinyin = “qun “

Case -14149 To -14146: pinyin = “ran “

Case -14145 To -14141: pinyin = “rang “

Case -14140 To -14138: pinyin = “rao “

Case -14137 To -14136: pinyin = “re “

Case -14135 To -14126: pinyin = “ren “

Case -14125 To -14124: pinyin = “reng “

Case -14123 To -14123: pinyin = “ri “

Case -14122 To -14113: pinyin = “rong “

Case -14112 To -14110: pinyin = “rou “

Case -14109 To -14100: pinyin = “ru “

Case -14099 To -14098: pinyin = “ruan “

Case -14097 To -14095: pinyin = “rui “

Case -14094 To -14093: pinyin = “run “

Case -14092 To -14091: pinyin = “ruo “

Case -14090 To -14088: pinyin = “sa “

Case -14087 To -14084: pinyin = “sai “

Case -14083 To -13918: pinyin = “san “

Case -13917 To -13915: pinyin = “sang “

Case -13914 To -13911: pinyin = “sao “

Case -13910 To -13908: pinyin = “se “

Case -13907 To -13907: pinyin = “sen “

Case -13906 To -13906: pinyin = “seng “

Case -13905 To -13897: pinyin = “sha “

Case -13896 To -13895: pinyin = “shai “

Case -13894 To -13879: pinyin = “shan “

Case -13878 To -13871: pinyin = “shang “

Case -13870 To -13860: pinyin = “shao “

Case -13859 To -13848: pinyin = “she “

Case -13847 To -13832: pinyin = “shen “

Case -13831 To -13659: pinyin = “sheng “

Case -13658 To -13612: pinyin = “shi “

Case -13611 To -13602: pinyin = “shou “

Case -13601 To -13407: pinyin = “shu “

Case -13406 To -13405: pinyin = “shua “

Case -13404 To -13401: pinyin = “shuai “

Case -13400 To -13399: pinyin = “shuan “

Case -13398 To -13396: pinyin = “shuang “

Case -13395 To -13392: pinyin = “shui “

Case -13391 To -13388: pinyin = “shun “

Case -13387 To -13384: pinyin = “shuo “

Case -13383 To -13368: pinyin = “si “

Case -13367 To -13360: pinyin = “song “

Case -13359 To -13357: pinyin = “sou “

Case -13356 To -13344: pinyin = “su “

Case -13343 To -13341: pinyin = “suan “

Case -13340 To -13330: pinyin = “sui “

Case -13329 To -13327: pinyin = “sun “

Case -13326 To -13319: pinyin = “suo “

Case -13318 To -13148: pinyin = “ta “

Case -13147 To -13139: pinyin = “tai “

Case -13138 To -13121: pinyin = “tan “

Case -13120 To -13108: pinyin = “tang “

Case -13107 To -13097: pinyin = “tao “

Case -13096 To -13096: pinyin = “te “

Case -13095 To -13092: pinyin = “teng “

Case -13091 To -13077: pinyin = “ti “

Case -13076 To -13069: pinyin = “tian “

Case -13068 To -13064: pinyin = “tiao “

Case -13063 To -13061: pinyin = “tie “

Case -13060 To -12889: pinyin = “ting “

Case -12888 To -12876: pinyin = “tong “

Case -12875 To -12872: pinyin = “tou “

Case -12871 To -12861: pinyin = “tu “

Case -12860 To -12859: pinyin = “tuan “

Case -12858 To -12853: pinyin = “tui “

Case -12852 To -12850: pinyin = “tun “

Case -12849 To -12839: pinyin = “tuo “

Case -12838 To -12832: pinyin = “wa “

Case -12831 To -12830: pinyin = “wai “

Case -12829 To -12813: pinyin = “wan “

Case -12812 To -12803: pinyin = “wang “

Case -12802 To -12608: pinyin = “wei “

Case -12607 To -12598: pinyin = “wen “

Case -12597 To -12595: pinyin = “weng “

Case -12594 To -12586: pinyin = “wo “

Case -12585 To -12557: pinyin = “wu “

Case -12556 To -12360: pinyin = “xi “

Case -12359 To -12347: pinyin = “xia “

Case -12346 To -12321: pinyin = “xian “

Case -12320 To -12301: pinyin = “xiang “

Case -12300 To -12121: pinyin = “xiao “

Case -12120 To -12100: pinyin = “xie “

Case -12099 To -12090: pinyin = “xin “

Case -12089 To -12075: pinyin = “xing “

Case -12074 To -12068: pinyin = “xiong “

Case -12067 To -12059: pinyin = “xiu “

Case -12058 To -12040: pinyin = “xu “

Case -12039 To -11868: pinyin = “xuan “

Case -11867 To -11862: pinyin = “xue “

Case -11861 To -11848: pinyin = “xun “

Case -11847 To -11832: pinyin = “ya “

Case -11831 To -11799: pinyin = “yan “

Case -11798 To -11782: pinyin = “yang “

Case -11781 To -11605: pinyin = “yao “

Case -11604 To -11590: pinyin = “ye “

Case -11589 To -11537: pinyin = “yi “

Case -11536 To -11359: pinyin = “yin “

Case -11358 To -11341: pinyin = “ying “

Case -11340 To -11340: pinyin = “yo “

Case -11339 To -11325: pinyin = “yong “

Case -11324 To -11304: pinyin = “you “

Case -11303 To -11098: pinyin = “yu “

Case -11097 To -11078: pinyin = “yuan “

Case -11077 To -11068: pinyin = “yue “

Case -11067 To -11056: pinyin = “yun “

Case -11055 To -11053: pinyin = “za “

Case -11052 To -11046: pinyin = “zai “

Case -11045 To -11042: pinyin = “zan “

Case -11041 To -11039: pinyin = “zang “

Case -11038 To -11025: pinyin = “zao “

Case -11024 To -11021: pinyin = “ze “

Case -11020 To -11020: pinyin = “zei “

Case -11019 To -11019: pinyin = “zen “

Case -11018 To -11015: pinyin = “zeng “

Case -11014 To -10839: pinyin = “zha “

Case -10838 To -10833: pinyin = “zhai “

Case -10832 To -10816: pinyin = “zhan “

Case -10815 To -10801: pinyin = “zhang “

Case -10800 To -10791: pinyin = “zhao “

Case -10790 To -10781: pinyin = “zhe “

Case -10780 To -10765: pinyin = “zhen “

Case -10764 To -10588: pinyin = “zheng “

Case -10587 To -10545: pinyin = “zhi “

Case -10544 To -10534: pinyin = “zhong “

Case -10533 To -10520: pinyin = “zhou “

Case -10519 To -10332: pinyin = “zhu “

Case -10331 To -10330: pinyin = “zhua “

Case -10329 To -10329: pinyin = “zhuai “

Case -10328 To -10323: pinyin = “zhuan “

Case -10322 To -10316: pinyin = “zhuang “

Case -10315 To -10310: pinyin = “zhui “

Case -10309 To -10308: pinyin = “zhun “

Case -10307 To -10297: pinyin = “zhuo “

Case -10296 To -10282: pinyin = “zi “

Case -10281 To -10275: pinyin = “zong “

Case -10274 To -10271: pinyin = “zou “

Case -10270 To -10263: pinyin = “zu “

Case -10262 To -10261: pinyin = “zuan “

Case -10260 To -10257: pinyin = “zui “

Case -10256 To -10255: pinyin = “zun “

Case -10254 To -10254: pinyin = “zuo “

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

getpy = getpy & pinyin(Mid(str, i, 1))

Next i

End Function

图片 29

第六步,输入拼音调换函数。

图片 30

快捷复制函数完毕退换。

图片 31

EXCEL如何自动将姓名转变为拼音操作演示实现。

   End Sub

在C3单元格输入公式= =PHONETIC(B3),然后下拉公式,获得全数人名拼音

       If Range(“a1”).Value > 0 Then

在D3单元格输入公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C3,”ā”,”a”),”á”,”a”),”ǎ”,”a”),”à”,”a”),”ē”,”e”),”é”,”e”),”ě”,”e”),”è”,”e”),”ī”,”i”),”í”,”i”),”ǐ”,”i”),”ì”,”i”),”ō”,”o”),”ó”,”o”),”ǒ”,”o”),”ò”,”o”),”ū”,”u”),”ú”,”u”),”ǔ”,”u”),”ù”,”u”),”ǖ”,”ü”),”ǘ”,”ü”),”ǚ”,”ü”),”ǜ”,”ü”)

    Next x

开垦转变网站

        End If

自家是Excel神奇之旅,专心于Excel知识和本领的享用,关心Excel玄妙之旅,带来您越多的实战技巧

        End Sub

第二:用PHONETIC函数获得拼音

                                           
                                                           
                                

    A、excel文件和工作簿概念

     Sub t7()

E.Do ……Loop Until语句

     Range(“c16”) = “=SUMIF(A2:A6,””b””,B2:B6)”
‘境遇单引号就把单引号加倍

     Sub 配对()

         Case Is = 0

   B、职业簿窗口

    d 代码运营和调度

      On Error Resume Next

        st = st & “Excel精英培养练习”

     Workbooks
代表工作簿集合,凡职业簿,Workbooks(N),表示已开发的第N个专门的学业簿

 

     Range (“单元格地址”)

            Set wb = ActiveWorkbook

      Cells(x, 4) = Cells(x, 2) * Cells(x, 3)

    End Sub

             If x = 5 Then

              End If

              If x = 5 Then

End Sub

           Range(“b1”) = “正数”

     ThisWorkBook ‘代码所在的专业簿

              Range(“b1”) = 100

 Case 1001 To 3000

      Dim I, J As Integer

   End Sub

       Sub s6() ‘另存为新工作簿

VBA在哪个地方寄存的?怎么运转?

        Sub t5()

      wb.Save

       End Sub

    b 窗体

D、利用单元格公式重回值

    End Sub

     Sub W1()

                               
                                                                       
                       

       Sub t4()

        End Sub

                                                                                

      Next x

 

A、用VBA在单元格中输入不足为道公式

    Sub W6()

    Next rg

               wb.Close True

        End Sub

 

       MsgBox “A文件存在”

 

      Range(“d5”) = Range(“b5”) * Range(“c5”)   ’将b5单元格与c5单元格相乘并赋值给d5单元格

 End Select

     End If

F.Do While……Loop语句

     End Sub

               wb.SaveAs ThisWorkbook.Path & “/1日.xls”

D.循环语句。

   Sub t4()

 

    注:“100:”便是两个Goto语句能够跳入的标识。“Len(sr)=0”表示输入框未有输入,“Len(sr)
= 5”表撤消。其实质正是“false”是5个字符。

      Range(“A1”).Copy Range(“A2”)   ’将A第11中学的内容复制到A2

      sheets  职业表群集,泛指excel种种工作表

        Workbooks(“A.xls”).Sheets(1).Range(“a1”) = 100

     图片 32

     Set wb = Workbooks.Add

    VBA属性正是VBA对象所全部的特点,表示有些对象的性子如下:对象.属性=属性值

         Range(“b1”) = “负数或0”

                                                   图5 右绿三角运转  

    100:

     注:在A2:A6单元格区域中,找到b项,共三个,将所对应的B列中的单元格值相加,即3+5=8。

         wn = Application.Caller.Parent.Name

      1、放数字   2、放文本

     Sub t1()

    Sub 决断2() ‘多规格判别

      Range(“a1”).Value = 100     ’给单元格a1填充数值100

     a、Goto语句,跳转到内定之处

Option Explicit

   Sub t2()

    x = 1

             End If

        Dim X As Integer

       Dim X As Integer    ’X寄放整数类型

    On Error GoTo 100

            MsgBox “A-G”

                图12 offset函数解析图

      End Sub

     End Sub

(注:为了巩固word20第10中学插入的图形的品质,“文件”——“选项”——“高等”——选中“不压缩文件图像品质”——“鲜明”。卡塔尔

        k = k + Cells(x, 1)

                                                                              

               Exit Function

   Sub s2()

   H、专业表删除

    a 显示专门的工作簿工作表对象

      Range(“d2”) = Range(“b2”) * Range(“c2”)   ’将b2单元格与c2单元格相乘并赋值给d2单元格

  End Sub

         Sub e1()

      a、Exit Sub语句

  B.职业表对象

          表示-2,147,483,648至2,147,483,647里头的整数

     Sub t1()

     If Len(Dir(“d:/A.xls”)) = 0 Then

图1 选中“文件”—“选项”

             sh.Range(“a1”) = “测试”

        sr = Application.InputBox(“请输入数字”, “输入提醒”)

     3、 放对象

          表示-32768至32767里边的大背头          譬喻:10   110   20

         End Sub

        Sub s8() ‘剖断工作表是或不是增加了维护密码

 

            m = 1

     ’竟然没写入End IF,提醒错误“Next 缺乏 For”

                                                                                          

 宏(Macro),是生机勃勃种批量管理。

     Dim X As Integer

     Option Explicit

        Sub s7()

   G、 爱惜工作表

          Sheets(2).Range(“a1”) = 200

           Application.DisplayAlerts = True

 C.在程序中应运语句。

  If Range(“a2”) <= 1000 Then

   VBA方法是作用于VBA对象上的动作,表示用有个别方法效果于VBA的靶子上,能够用上面包车型客车格式:

        Sub t1()

  A.职业簿对象

                                                                                          

      Range(“d6”) = Range(“b6”) * Range(“c6”)   ’将b6单元格与c6单元格相乘并赋值给d6单元格

4.摄像叁个宏。

           For J = 4 To 930

          Dim arr(1 To 10) As Integer, X As Integer  

           End If

         在VB中字符串常量是用双引号“
”括起的风流罗曼蒂克串字符,例 如”ABC”,”abcdefg”,”123″,”0″,”VB程序设计”等。

                                                                                                                                           

   ’判定第1列中的数据不总是,就在那后的单元格输入三个“断点”。

  Sub w4()

     End Sub

    F、工作表的保存

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图