1. excel快速汉字转拼音
1.打开一份Excel文档，在第一列输入一些中文汉字。
2.然后按下快捷键【Alt+F11】，调出VB宏编辑界面，然后点击上方的【插入】按钮。
3.然后点击【模块】，可以看到，会出现一个代码输入界面。
4.在代码界面输入代码：
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 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
如图。
5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态，然后在第二列第一行输入函数getpy(A1)，按下【Enter】键。
6.然后拖动填充柄，可以看到，第二列显示了汉字的首字母拼音。
2. excel汉字转拼音怎么转
很奇，修改公式中=PROPER(PINYIN(A3,", ",2))分隔符，或删除空格（再加空格）即正常
3. excel汉字转拼音首字母函数
1、首先打开电脑中的Excel软件，找打新建，点击新建后，创建一个新的空白文档。
2、然后在表格中输入姓名和拼音，制作成一个如图的表格，制作完成后在键盘上同时按住Alt+F11进入VB窗口。
3、接下来点击插入后找到模块，在模块中输入
Option Explicit
Function PY(TT As String) As Variant
Dim i%, temp$
PY = ""
For i = 1 To Len(TT)
temp = Asc(Mid$(TT, i, 1))
If temp > 255 Or temp < 0 Then
PY = PY & pinyin(Mid$(TT, i, 1))
Else
PY = PY & LCase(Mid$(TT, i, 1))
End If
Next i
End Function
Function pinyin(myStr As String) As Variant
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""
pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"搭","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"座","Z"}], 2)
End Function
4、最后退出界面关闭VB窗口，在表格中找到要标称拼音的地方输入=PY(A2）后，点击键盘回车键。
4. excel汉字转拼音不带声调
1.点击打开电脑桌面上的excel表格。
2.选中需要输入拼音和声调的汉字。
3.在汉字的上一行输入j，并点击插入。
4.点击符号。
5.点击子集后面的小三角形按钮，选中国际音标扩充。
6.找到带音调的“i”，并且点击插入。
7.在B3单元格继续输入ng就完成excel中打出拼音和声调了。
5. excel汉字转拼音公式
键入所需内容并选中
2. 点击“开始”中“文”按钮
3. 可以按字编辑，按确定生成
6. excel汉字转拼音首字母
1、首先用office Excel 2007打开文档；如图所示。
2、然后鼠标标定在D2单元格，输入公式“=getpy(C2)”，按回车键确认；如图所示。
3、我们就看到姓名一栏汉语拼音就自动出现了；如图所示。
4、选中D2单元格，鼠标放在单元格右下角,当出现“+”后，向下拖动鼠标；如图所示。
5、这样，姓名一栏所有的汉字都以拼音形式显示了；如图所示。
7. excel汉字转拼音代码
可以但用起来很复杂累人，也不可能在这里说明白，只在这里说的一下简单的无理，以其中一种方法为例。利用VLOOKUP这类的函数，在次列把本列单元格内拼音转换成汉字。首先别设一张引用源数据表，A列是拼间 B列为汉字通函数依引用源数据表A列为条件，反回B列值这活很累人，如果你想用表格实现一些专用转件的功能实在是一件累人且效率不高的活，不建议这样干
8. excel汉字转拼音缩写
转换方法如下：所需材料：Excel、中文转拼音函数（需通过网络下载）。
一、打开Excel，然后按Alt键+F11键打开Viaual Basic编辑器，点击工具栏插入，下拉菜单内点击模块。
二、打开模块1后，在下方空白处粘贴入准备好的中文转拼音函数，然后关闭Viaual Basic编辑器。
三、回到Excel界面，在任意一空白单元格内输入“=getpy(单元格)”，按回车键即可得到该单元格的拼音。
四、最后鼠标按着已经转换完成的拼音单元格右下角，向下拖动。
五、这样就可以把整列汉字转换为拼音。
9. excel汉字转拼音首字母大写
除了在excel里用函数实现以外，也可以在Word中实现小写变大写。把内容复制到word里面，然后转换之后，复制回excel。 Word里转换大小写的快捷键是：Shift+F3。选中字母然后按一次，小写变大写；再按一次，大写变小写。如果选中的是大小写混排的字母，则转换效果依次为：首字母大写 ->全部大写 ->全部小写。
10. excel汉字转拼音字母
步骤：第一步、启动Excel 2003（其它版本请仿照操作），打开相应的工作表；第二步、执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；第三步、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；第四步、将代码输入其中；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第五步、代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态；第六步、自定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。
- 相关评论
- 我要评论
-