系统吧 专业的电脑操作系统,支持重装各种原版系统xp/win7/win8/win10 这个系统怎么样?试试系统吧系统,体验办公系统畅快愉悦感。 各种电脑系统安装过程一样,神一般的畅快!
-->
当前位置:主页 > 电脑技术 >

中文转拼音怎么转 中文 转拼音

作者:李升毓 分类:电脑技术 发布时间:2023-01-14 08:23:00

中文转拼音怎么转?当我们想要把很多中文汉子的拼音全部进行转换,一个一个字的手动转换不仅速度慢,而且容易出错的概率非常高,于是呢小编就给大家带来了通过Excel表格来快速将中文转换成汉子的方法,有需要的用户一起和win7系统吧往下看吧! Excel快速将中文转成拼音的操作方法 1、打开Excel->工具->宏->Viaual Basic编辑器; 2、在弹出来的窗口中对着VBAproject点右键->插入->模块 3、此时下面会出现一个名为"模块1"点击它,然后在右边的空白栏中粘贴以...

中文转拼音怎么转?当我们想要把很多中文汉子的拼音全部进行转换,一个一个字的手动转换不仅速度慢,而且容易出错的概率非常高,于是呢小编就给大家带来了通过Excel表格来快速将中文转换成汉子的方法,有需要的用户一起和win7系统吧往下看吧!

中文转拼音怎么转 中文 转拼音

Excel快速将中文转成拼音的操作方法

1、打开Excel->工具->宏->Viaual Basic编辑器;

2、在弹出来的窗口中对着VBAproject点右键->插入->模块

3、此时下面会出现一个名为"模块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

4、现在转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用,方法如下:

A1 A2

中国 =getpy(A1)

以上便是win7系统吧小编给大家分享介绍的Excel快速将中文转成拼音的操作方法,有需要的用户快去试试吧!

相关文章

EXCEL怎么删除所有空行?EXCEL一次删除所有空行方法

Office文档中的超链接无法打开怎么办?修复Outlook/Excel/Word超链接打不开

xp 更多>>
win7 更多>>
win8 更多>>
win10 更多>>
U盘 更多>>
电脑技术 更多>>
网站地图 | 豫ICP备2021035069号-4 | 友情链接qq:191064436
系统吧

版权所有 © 2012-2023 系统吧 免责声明:本站资源均收集于互联网,其著作权归原作者所有,如果有侵犯您权利的资源,请来信告知,我们将及时删除相应资源。