excel汉字转拼音首字母vba(excel汉字转拼音代码)

Exce表格网 2023-02-27 14:30 编辑:admin 166阅读

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汉字转拼音首字母

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)后,点击键盘回车键。

3. excel2013汉字转拼音函数

1、首先选中姓名单元格区域,点击右上角的工具箱;

2、然后点击页面上方的拼音笔画;

3、点击打开列表中的汉字转拼音;

4、接着点击页面中间的确定按钮;

5、选择将结果保存的位置点击确定;

6、最后就可以看到所有的汉字都转换成了拼音;

WPS Excel中的快捷操作:

Ctrl+A:全选Ctrl+S:保存Ctrl+P:打印;

Ctrl+C:复制Ctrl+V:粘贴Ctrl+X:剪切Ctrl+M:合并居中;

Ctrl+E:智能填充注:Ctrl+E是指「快速填充」。它能通过比对字符串间的关系,给出最符合用户需要的一种填充规则,可参考的对应关系越多,判断越准确。所以想要解锁更多高效的Ctrl+E玩法,还是取决你的使用方式;

Shift+F10:弹出右键菜单注:当鼠标右键失灵时,其实你可以通过快捷键「Shift+F10」实现鼠标右键功能的打开,确保你能在文档正常进行编辑。

Ctrl+Shift+L:筛选Ctrl+Shift+V:粘贴为数值格式;

Alt+Enter:在单元格内换行。

4. excel汉字转拼音首字母函数

以office Word2016为例,有以下操作步骤:

1、打开要修改的表格,如下图所示:

2、打开后看到顺序是不是按照笔划排序的,如下图所示:

3、选中要排序的一列,如下图所示:

4、点击上方菜单栏,选择数据,如下图所示:

5、选择排序选项,如下图所示:

6、在弹出窗口选择,排序,如下图所示:

7、点击选项,如下图所示:

8、选择按列排序和笔划排序,如下图所示:

9、在主要关键字中选中姓名,默认是升序排列,如下图所示:

10、点击确定,可以看到已经排序好了,如下图所示:

5. vba 汉字转拼音

“阆”的读音是:làng 和 láng 。

1.当念 阆[láng] 时

释义:

门高的样子。

空旷。

没有水的城壕。

隍,无水的城壕。

阆风巅的省称 ,山名。传说中神仙居住的地方,在昆仑之巅,又称“阆风岑”、“阆风”、“阆邱”、“阆风台”、“阆山”等。

组词:

傥阆 tǎng láng 意思是:广大宽敞貌。

阆阆 láng láng 意思是:高大空朗貌。

昆阆 kūn láng 意思是:指 昆仑山 上的 阆苑 ,传说中神仙所居之地。

辽阆 liáo láng 意思是:犹言辽阔空旷。

爣阆 tǎng láng 意思是:亦作“ 爣朗 ”。宽敞明亮貌。

阆阙 láng quē 意思是:高大的门阙。

造句:

城外为之郭,郭外为之土阆。——《管子》

阆,门高也。从门,良声。——《说文》

闶阆其寥廓兮。——《汉书·扬雄传》。注:“闶阆,空虚也。”

一个是阆苑仙葩,一个是美玉无瑕。--《红楼梦》

胞有重阆。——《庄子·外物》。注:“阆谓隍,又为朗。”

2.当念 阆[làng] 时

释义:

阆中,地名,在四川省。

组词:

阆中 làng zhōng 意思是:地名,在四川省。

造句:

唐 王勃 《梓州郪县灵瑞寺浮图碑》:“玉楼星峙,稽 阆苑 之全模;金阙霞飞,得 瀛洲 之故事。”

元 李好古 《张生煮海》第二折:“你看那缥渺间十洲三岛,微茫处 阆苑 、 蓬莱 。”

清 王韬 《淞滨琐话·药娘》:“二女有时靓妆炫服,凭朱栏而延伫,见者疑为 阆苑 神仙,缥缈天外。”

清 龚自珍 《己亥杂诗》之九三:“金銮并砚走龙蛇,无分同探 阆苑 花。” 刘逸生 注:“后人因翰林院地位清贵,比作 阆风 之苑。”

南朝 梁 庾肩吾 《山池应令》诗:“ 阆苑 秋光暮,金塘收潦清。”

参考资料

360搜索:

http://www.so.com/link?m=aWMbL7vBAUfcxZVMptdsKT%2Fo4dYxZ%2FIL%2FLbs5eFOSov3Pc3B8OQzulpKPBm0wHb0wztu4l9I1yO3CsETvhFdVK73tWTtUZkP68PPSUdiKBuS%2FJkrwwCCZS7MpdTvGsHBD1tcuh1FZJMgoBo3LKPfWDXPlkVkmn4Fclh44371EbFE7BFR%2B

6. excel汉字变拼音字母

首先用office Excel 2007打开文档;

然后鼠标标定在D2单元格,输入公式“=getpy(C2)”,按回车键确认;

我们就看到姓名一栏汉语拼音就自动出现了;

选中D2单元格,鼠标放在单元格右下角,当出现“+”后,向下拖动鼠标;

这样,姓名一栏所有的汉字都以拼音形式显示了;

如果我们需要将拼音的首字母变成大写的话,可以将鼠标标定在E2单元格中,

然后输入公式“=PROPER(D2)”,按回车确认;

这样,我们需要的拼音的首字母就变成大写的了。

然后重复步骤将鼠标放在单元格右下角,当出现“+”后,向下拖动鼠标,就完成了。

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片