在excel中把汉字转换成拼音(只取首字母)
- 格式:doc
- 大小:15.50 KB
- 文档页数:3
1.第一种方法:打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1",点击在右边的空白栏中粘贴以下内容:Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Then getpychar = "B"ElseIf (tmp >= 45761 And tmp <= 46317) Then getpychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Then getpychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Then getpychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Then getpychar = "F"ElseIf (tmp >= 47297 And tmp <= 47613) Then getpychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Then getpychar = "H"ElseIf (tmp >= 48119 And tmp <= 49061) Then getpychar = "J"ElseIf (tmp >= 49062 And tmp <= 49323) Then getpychar = "K"ElseIf (tmp >= 49324 And tmp <= 49895) Then getpychar = "L"ElseIf (tmp >= 49896 And tmp <= 50370) Then getpychar = "M"ElseIf (tmp >= 50371 And tmp <= 50613) Then getpychar = "N"ElseIf (tmp >= 50614 And tmp <= 50621) Then getpychar = "O"ElseIf (tmp >= 50622 And tmp <= 50905) Then getpychar = "P"ElseIf (tmp >= 50906 And tmp <= 51386) Then getpychar = "Q"ElseIf (tmp >= 51387 And tmp <= 51445) Then getpychar = "R"ElseIf (tmp >= 51446 And tmp <= 52217) Then getpychar = "S"ElseIf (tmp >= 52218 And tmp <= 52697) Then getpychar = "T"ElseIf (tmp >= 52698 And tmp <= 52979) Then getpychar = "W"ElseIf (tmp >= 52980 And tmp <= 53640) Then getpychar = "X"ElseIf (tmp >= 53689 And tmp <= 54480) Then getpychar = "Y"ElseIf (tmp >= 54481 And tmp <= 62289) Then getpychar = "Z"Else '如果不是中文,则不处理getpychar = charEnd IfEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next iEnd Function现在转换函数已编写完成!关掉此编缉的窗口。
方法一:VBA自定义函数"=hztopy()"下面是一个VBA自定义函数,工具->宏->Visual Basic编辑器->,插入模块,在VBA编辑器里面->插入->模块->贴入下述代码,(按ALT+F11,插入模块,在右面窗口中粘贴下面代码)那么,比如在A3中有"进退两难",则在B3中输入"=hztopy(A3)",则会得到"JTLN"。
不过此法有时候也会出错,比如"皓、鑫、婷、雯、奕"等,就无法提取汉字拼音首字母。
Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二:VBA自定义函数"=getpy()"下面是一个VBA自定义函数,工具->宏->Visual Basic编辑器->,插入模块,在VBA编辑器里面->插入->模块->贴入上述代码,那么。
打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1",点击在右边的空白栏中粘贴以下内容:Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -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 = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function********复制到此结束,本行不复制*******现在转换函数已编写完成!关掉此编缉的窗口。
excel_汉字转换成拼音简拼(只取首字母)名称转换为首字母(VBA自定义函数)1,打开EXCEL2,按ALT+F11,单击插入-插入模块,在右窗口粘贴以下代码,直接关闭窗口3,输入公式=hztopy(A1),填充所有单元格4,选择所有缩写,复制-粘贴特殊值(因为它是自定义函数,只有结果可以显示在当前文件中,而其他计算机显示错误是因为5.使用条件格式检索包含中文字符的单元格:首先单击一个单元格(设置为D5)。
条件格式-新格式规则-使用公式确定要格式化的单元格:在下面的对话框中输入公式= LEMB(D5)> LEN(D5),自己设置格式,确认后退出,然后用单元格的格式刷所有单元格汉字外观的格式设置为6。
选择自定义排序-按“单元格颜色”排序-排序“无单元格颜色”和“底部”-确定7,手动将汉字改写成相应的字母8、检查复音字符注意:上述方法只能在当前文件夹中使用。
如何保存宏以便自定义函数可以在所有文件夹中使用?1.创建新的EXCEL2。
按ALT+F11,单击插入-插入模块,并在右侧窗口中粘贴以下代码。
直接关闭窗口3,另存为-其他格式-文件名更改为宏名,保存类型选择” EXCEL加载项(*,xlam)”,文件将自动保存在c: \ \用户\ \ 111 \ \ appdata \ \ road ing \ \ Microsoft \ \ addins文件夹中4.打开需要工作的EXL,然后单击开始-扩展选项-加载项-转到(G)...-选择上面保存的宏名-确定这样,在这台计算机的所有EXCEL中,可以直接使用自定义公式。
代码(只复制星号的内容)* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *函数Hz topy(hzpy As String)As String Dim hzstring As String,py String As StringDim hzpy sum As Integer,hzi As Integer,hzpyhex As Integer hzstring = Trim(hzpy)hzpy sum = Len(Trim(hzstring))py String = \For hzi = 1 To hzpy sumhzpyhex = \ Select Case hzpyhexCase & HB 案例&HB2C1至&HB4ED: pystring = pystring + \案例&HB4EE至&HB6E9: pystring = pystring + \案例&HB6EA至&HB7A1: pystring = pystring + \案例&HB7A2至&HB8C0: pystring = pystring + \案例&HB8C1至&HB9FD: pystring = pystring + \案例&HB9FE至&HBBF6: pystring = pystring + \案例&HBBF7至&HBFA5: pystring = pystring 案例&HC2E8至&HC4C2: pystring = pystring + \案例&HC4C3至&HC5B5: pystring = pystring + \案例&HC5B6至&HC5BD:pystring = pystring + \案例&HC5BE至&HC6D9: pystring = pystring + \案例&HC6DA至&HC8BA: pystring = pystring + \案例&HC8BB至&HC8F5: pystring = pystring + \案例&HC8F6至&HCBF9: pystring = pystringCase & HCDDA To & HCEF3:py string = py string+\ Case & HCEF4 To & HD1B 8:py string = py string+\ Case & HD1B 9 To & HD4D 0:py string = py string+\ Case & HD4D 1 To & HD7F 9:py string = py string+\ Case Elsepy string = py string+Mid(Hz string,hzi,1)结束选择下一个hztopy = pystring结束。
用公式将汉字转换为拼音的第一个字母有时需要在Excel中将大量姓名或名称转换为拼音首字母的简写形式,例如将“周伯通”转换为“ZBT”。
用定义名称和公式的方法可以轻松实现转换,在Windows XP中,以Excel 2003为例方法如下:1.定义名称:单击菜单“插入→名称→定义”,在弹出的对话框中“在当前工作簿中的名称”下的文本框中输入一个名称,如“py”,在“引用位置”下输入下列代码后确定:={"","吖","八","嚓","咑","鵽","发","猤","铪","夻","咔","垃","嘸","旀","噢","妑","七","囕","仨","他","屲","夕","丫","帀";"","A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y"," Z"}2.假如名单在A2:A100区域中,在B2单元格中输入公式:=LOOKUP(LEFT(A2,1),py)&LOOKUP(MID(A2,2,1),py)&LOOKUP(MID(A2,3,1), py)&LOOKUP(MID(A2,4,1),py)然后拖动填充柄向下填充公式即可。
名字转换为首字母(VBA自定义函数)1、打开EXCE L2、按 ALT+F11 ,点击插入-插入模块,在右面窗口中粘贴下面代码,直接关闭窗口3、输入公式=hztopy(A1),填充所有单元格4、选中所有缩写,复制-选择性粘贴-数值(因为是自定义函数,只有在当前文件中可以显示结果,其他电脑因没有公式而显示错误)5、使用条件格式,检索出含有汉字的单元格:先点中一个单元格(设为D5),条件格式-新建格式规则-使用公式确定要设置格式的单元格:在下面对话框中输入公式=LENB(D5)>LEN(D5),自己设置格式,确定后退出,再把该单元格的格式用格式刷刷所有单元格。
有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。
7、将汉字手动改写为相应的字母。
8、核对多音字。
注:以上方法只可以在当前文件夹使用,如何将宏保存,使自定义函数可以在所有文件夹中使用1、新建一个EX CEL2、按 ALT+F11 ,点击插入-插入模块,在右面窗口中粘贴下面代码,直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏(*,xlam)”,文件将自动保存在C:\Users\111\AppDat a\Roamin g\Micros oft\AddIns文件夹。
4、打开需要工作的EXLE L,点击开始-EXCEL选项-加载项-转到(G)...-选中上面保存的宏名称-确定。
这样,在该电脑的所有EXCE L中,都可以直接使用自定义公式。
代码(只复制星号内的内容)******************************************************************************* Functi on hztopy(hzpy As String) As StringDim hzstri ng As String, pystri ng As StringDim hzpysu m As Intege r, hzi As Intege r, hzpyhe x As Intege rhzstri ng = Trim(hzpy)hzpysu m = Len(Trim(hzstri ng))pystri ng = ""For hzi = 1 To hzpysu mhzpyhe x = "&H" + Hex(Asc(Mid(hzstri ng, hzi, 1)))Select Case hzpyhe xCase &HB0A1To &HB0C4: pystri ng = pystri ng + "A"Case &HB0C5To &HB2C0: pystri ng = pystri ng + "B"Case &HB2C1To &HB4ED: pystri ng = pystri ng + "C"Case &HB4EETo &HB6E9: pystri ng = pystri ng + "D"Case &HB6EATo &HB7A1: pystri ng = pystri ng + "E"Case &HB7A2To &HB8C0: pystri ng = pystri ng + "F"Case &HB8C1To &HB9FD: pystri ng = pystri ng + "G"Case &HB9FETo &HBBF6: pystri ng = pystri ng + "H"Case &HBBF7To &HBFA5: pystri ng = pystri ng + "J"Case &HBFA6To &HC0AB: pystri ng = pystri ng + "K"Case &HC0ACTo &HC2E7: pystri ng = pystri ng + "L"Case &HC2E8To &HC4C2: pystri ng = pystri ng + "M"Case &HC4C3To &HC5B5: pystri ng = pystri ng + "N"Case &HC5B6To &HC5BD: pystri ng = pystri ng + "O"Case &HC5BETo &HC6D9: pystri ng = pystri ng + "P"Case &HC6DATo &HC8BA: pystri ng = pystri ng + "Q"Case &HC8BBTo &HC8F5: pystri ng = pystri ng + "R"Case &HC8F6To &HCBF9: pystri ng = pystri ng + "S"Case &HCBFATo &HCDD9: pystri ng = pystri ng + "T"Case &HEDC5: pystri ng = pystri ng + "T"Case &HCDDATo &HCEF3: pystri ng = pystri ng + "W"Case &HCEF4To &HD1B8: pystri ng = pystri ng + "X"Case &HD1B9To &HD4D0: pystri ng = pystri ng + "Y"Case &HD4D1To &HD7F9: pystri ng = pystri ng + "Z"Case Elsep ystri ng = pystri ng + Mid(hzstri ng, hzi, 1)End SelectNexthztopy = pystri ngEnd Functi on*******************************************************************************。
excel批量将汉字变成拼音的设置方法要在 Excel 中批量将汉字变成拼音,可以使用以下步骤:1. 打开 Excel 表格,选择要将这些汉字变成拼音的单元格范围。
2. 在 Excel 中打开“拼音指南”选项卡,然后选择“拼音指南”工具栏。
3. 在“拼音指南”工具栏中,点击“添加拼音”按钮,然后在弹出的对话框中选择要应用的拼音方案。
4. 在“拼音指南”工具栏中,选择要应用的拼音方案,然后单击“添加”按钮。
5. 选择要将这些拼音应用到的单元格,然后单击“确定”按钮。
6. 使用 Excel 的“条件格式”工具栏,选择要自动添加拼音的单元格范围。
7. 在“条件格式”工具栏中,选择“突出显示单元格规则”选项卡,然后选择“拼音”。
8. 在“条件格式”工具栏中,选择“格式刷”按钮,然后将拼音格式应用到整个单元格范围。
9. 使用 Excel 的“数据验证”工具栏,选择要将这些拼音应用于的单元格范围。
10. 在“数据验证”工具栏中,选择“限制”选项卡,然后选择“拼音”。
11. 在“数据验证”工具栏中,选择“格式”选项卡,然后选择“拼音格式”,并根据需要设置拼音格式。
12. 使用 Excel 的“自动填充”工具栏,选择要将这些拼音自动应用到的单元格范围。
13. 在“自动填充”工具栏中,选择“从下拉列表中选择”按钮,然后在弹出的对话框中选择“拼音”。
14. 在“自动填充”工具栏中,选择“继续”按钮,然后按照需要重复执行此过程,直到将所有汉字变成拼音。
以上是在 Excel 中批量将汉字变成拼音的设置方法。
要获得评分最高的内容,请确保遵循最佳实践,包括准确性、可靠性和可读性。
同时,尽可能地减少使用编造成分,以提高回答的质量和价值。
提取单元格汉字首字母在处理 Excel 表格数据时,有时需要将单元格中的汉字转换为汉字拼音的首字母,以便进行后续的数据分析和处理。
本文将介绍如何使用 Excel 中的函数和工具来提取单元格汉字首字母,并分析其适用范围和注意事项。
一、使用 LEFT 函数提取单个汉字的首字母Excel 中的 LEFT 函数用于从文本字符串的左侧提取指定长度的字符。
结合汉字拼音的特点,可以使用 LEFT 函数提取汉字的首字母。
例如,假设 A1 单元格中为“中国”,则可以使用以下公式提取其首字母:=LEFT(A1,1)这个公式的含义是从单元格 A1 左侧提取 1 个字符,即“中”的首字母,“结果为“Z”。
需要注意的是,该方法只能提取单个汉字的首字母,多个汉字则无法处理。
二、使用 VBA 宏提取多个汉字的首字母如果需要提取多个汉字的首字母,可以使用 Excel 的 VBA 宏来实现。
下面是一段实现该功能的 VBA 代码:Sub ChineseFirstLetter()Dim str As String, result As Stringstr = Selection.ValueFor i = 1 To Len(str)result = result &Left(LCase(Application.WorksheetFunction.Substitute(Application.Transpose(Split(Trim (str(i, 1)), " ")), " ", "")), 1)Next iSelection.Value = UCase(result)End Sub该宏的作用是将选定区域中的汉字转换为首字母,并将结果替换原单元格中的内容。
需要注意的是,该宏需要在 Excel 中启用宏功能,并将其保存为一个新的模块。
三、使用 PinYin 工具包提取多个汉字的首字母使用 VBA 宏虽然能够实现多个汉字首字母的提取,但对于不熟悉 VBA 编程的用户来说,会存在一定的难度。
方法/步骤1.首先,打开Excel,同时按下Alt+F11键,打开VBE界面,如下图所示。
在VBE界面中,单击图片中所示的左上角空白处,选择“插入“,”模块“。
2.此时,就插入了一个模块,后面的代码就要放到这个模块中,保证右侧空白区域是模块代码的编辑区(最保险的做法是双击模块),然后执行下一步操作。
3.将下面的代码全部复制粘贴到空白区域。
Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -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 = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy& pinyin(Mid(str, i, 1)) Next iEnd Function4.然后关闭这个新界面,返回Excel,就可以像Excel自带的函数一样使用这个自定义的Getpy函数了,它只有一个参数,参数可以直接指定单元格,也可以直接输入字符。
Excel和Word中怎么把汉字转化为拼音【百科全说】我们可以利用Excel和word软件将汉字转换成拼音,具体怎么操作呢?小编为大家解答这个问题。
具体如下:1.1. 第一步,请大家先复制A列内容到WORD里,当我们粘贴时,请点击“只保留文本”这一项。
2.2.第二步,请大家点击选择自己想标注拼音的汉字,然后点击屏幕左上方的“开始”菜单,接着选择“拼音指南”即可。
3.3. 第三步,出现了如图所示的界面。
4.4. 第四步,我们不需要设置太多,请选择【确定】即可,效果如图。
5.5. 第五步,请大家复制拼音和汉字,然后将其粘贴到刚刚EXCEL里的C列即可。
6.6. 最后,请大家在B2中输入=PHONETIC(C2)然后下拉复制公式,就会出现如图所示的结果,操作完成。
7.以上就是Excel和Word中把汉字转化为拼音的方法。
时间:2019-09-24 02:43 / 作者:百科全说WORD中如何输入汉字拼音中的一二三四声?12/09 04:33问题:WORD中如何输入汉字拼音中的一二三四声? 请详细解答说明,谢谢! 解答:选择拼音打字法,然后把光标放在拼音打字标示条最右边的键盘标志上,点右键选择拼音,然后在电脑屏幕上就会出现一个可以打拼音的键盘,在上面点击你要输入的拼音字母就可以了? excel或word中的表格无法复制到ppt中去怎么办?08/14 15:20出现这样的情况,可能存在下面的原因: 1.系统存在问题或OFFICE 软件存在问题: 2.表格过大,导至PPT一页无法全部显示. 解决办法(前题的OFFICE软件和系统软件正常.无故障) 1.重新调整表格尺寸,使之适应PPT页面: 2.在PPT软件中选择"标题和表格"版式,直接里该页面制表.3.在EXCEL或WORD中制一个小表,看是否可以复制到PPT里去.如果可以,证明OFFICE软件没问题,如果不可以你就要考虑重装或修复OFFICE了!在Word中怎么为汉字添加拼音?word汉字加拼音方法02/11 13:46为了满足制作一些特殊需要的文档,除了在word里可以输入中文和英文字符,还可以为中文添加拼音,下面我们一起来看看吧! 1.打开word软件,打开或者新建一篇文档. 2.选中要添加拼音的文字.一次可以选中多个汉字,不必一个一个的进行操作.依次点击“开始”,“拼音指南”. 3.在拼音指南”窗口,依次在表格里输入拼音,因为软件不能不会自动识别汉字导出拼音. 4.更改对齐方式为“居中”,因为上图中字母的间距太大了. 5.偏移量是指汉字与拼音之间的距离是多大,默认0就可以,按自己的要求也可以更改. 6.甚怎么在Excel或者Word中插入自己的签名11/18 21:59有的小伙伴制作了一份报价Word或者Excel文档,为了证明这是自己的报价文件,因此想要插入自己的签名,但是却不知道如何插入,那么小编就来为大家介绍一下吧.具体如下:1. 第一步,我们需要一份属于自己的PNG文件的签名,小编想要在这儿提醒一下,签名的文件一定是PNG格式的矢量图,可以在PS中制作签名.2. 第二步,双击或者右击打开需要的放置签名的文档.3. 第三步,来到下图所示的文档页面后,点击需要插入签名的位置,接着点击页面顶部的插入选项,然后点击箭头所指的图片选项. 4. 第四步,在图片窗口如何在excel或Word中画出斜的波浪线08/06 15:45在word中画出斜波浪线方法: 通过插入--文本框绘制出一个文本框,在文本框中连续按空格,选中空格,添加波浪式的下划线: 通过旋转文本框,使波浪线倾斜: 选中文本框,右键点击,选择设置形状格式,把形状填充和线条颜色都设置为无即可.Word中怎么将繁体字转化为简体字05/23 14:24在网上搜索相关技术文档或者论文材料的时候,经常会遇到一些繁体文档。
在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1",点击
在右边的空白栏中粘贴以下内容:
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
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1 A2
中国 =getpy(A1)。