2022-12-08 09:14来源:m.sf1369.com作者:宇宇
打开Excel->工具->宏->Viaual
Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1",点击
在右边的空白栏中粘贴以下内容:
Function
getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <=
45252) Then
getpychar = "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 = char
End
If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy
= getpy & getpychar(Mid(str, i, 1))
Next i
End
Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用,方法如下:
A1
A2
中国 =getpy(A1)
1打开excel,点击插入-公式-插入新公式
2选择上下标-第三个样式
3点击第一个方框,输入数值
4点击上方方框,输入➕公差值
5点击下方方框,输入➖公差值
6如图所示,已经完成了。
这种情况一般是搜狗输入法软件出了问题,可以按照下面的方法进行修复:
1、单击“开始”菜单,再单击“所有程序”,这样,就完成第一步了。(所有程序碰一下就行)。
2、单击“所有程序”,所有程序中显示的,就是我们电脑的软件了(不包括驱动)。
3、在所有程序中,找到“搜狗拼音输入法”,单击此菜单项。
4、单击后,可以看出有一个“输入法修复器”,单击此菜单项。
5、在上面可以看到有许多使用此输入法可能出现的故障,如:打不出字、输入法切不出、状态栏消失、搜狗自造字未生效、Word里的输入法不可用等问题都可以修复。
6、单击“快速修复”,单击后,输入法就焕然一新了。
在word和EXCEL中,都可以:选中内容----格式---拼音指南但,在EXCEL中,用起来不如word中方便,可以在word中形成,再粘贴到别的地方,如粘贴到EXCEL中。如(rú)何(hé)将(jiāng)EXCEL表(biǎo)格(gé)中(zhōng)的(de)汉(hàn)字(zì)转(zhuǎn)为(wéi)拼(pīn)音(yīn)--------这是在word中形成的,但,在word和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.然后拖动填充柄,可以看到,第二列显示了汉字的首字母拼音。
最简单的方法是直接使用excel自带的工具
选中单元格,在开始中点击字体中有文的那个,单击下拉菜单,选中编辑拼音。
在弹出的输入框中输入拼音xiao hua mao。
然后再次点击有文的下拉菜单,选择显示拼音字段,这样标注的汉语拼音就能够显示出来了。
但是这种方法输入的标注汉语拼音是没有音调的,如果需要声调,则需要插入拼音了,点击插入符号,找到拼音,然后插入一声和三声的元音a。
然后通过剪贴复制粘贴将其粘到汉语拼音中,就可以标注出有声调的汉语拼音了。
āéǒù 搜狗输入法,激活软键盘,点击“拼音字母”然后可以输入
很奇,修改公式中=PROPER(PINYIN(A3,", ",2))分隔符,或删除空格(再加空格)即正常