vba 全拼_EXCEL中直接把中文转换成拼音全拼

最新推荐文章于 2024-05-09 17:10:20 发布
最新推荐文章于 2024-05-09 17:10:20 发布
阅读量346 收藏 1
点赞数
文章标签： vba 全拼
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_39945178/article/details/111851525
版权

1.

第一种方法：

打开

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"

weixin_39945178
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Excel中文转拼音VBA
08-09
Excel中文转拼音（完整版） 打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a " Case -20317 To -20305: pinyin = "ai " Case -20304 To -20296: pinyin = "an " Case -20295 To -20293: pinyin = "ang " Case -20292 To -20284: pinyin = "ao " Case -20283 To -20266: pinyin = "ba " Case -20265 To -20258: pinyin = "bai " Case -20257 To -20243: pinyin = "ban " Case -20242 To -20231: pinyin = "bang " Case -20230 To -20052: pinyin = "bao " Case -20051 To -20037: pinyin = "bei " Case -20036 To -20033: pinyin = "ben "
EXCEL利用VBA把汉字转换拼音（李晓锋版）
01-13
这个已经是旧版本了，有很多文字都无法转换，推荐最新版本 https://blog.csdn.net/lxf2580/article/details/54409636 ，但是这个最新版本好像也只适用于2019以前的Excel，office2019据反馈说用不了。
EXCEL 汉字转拼音
鞠勇鸿的技术专栏
04-15 2218
EXCEL 汉字转拼音
vba 中文批量转拼音并且首字母大写拼接起来
最新发布
weixin_48315099的博客
05-09 263
3、复制下面到模块中。
VBA 汉字转拼音
10-22
比较全的汉字转拼音,可以转2万多个汉字的,自己根据拼音字库编写的,花了很多心思的。
vba汉字转拼音字库
03-30
拼音有带音调和不带音调两种，没有vba代码。我想免积分，但是最少是2
EXCEL VBA函数手册.rar_Excel VBA_VBA excel_VBa_excel_vba excel
07-15
vba函数说明，几乎所有vba函数的说明及实例
EXCELVBA.rar_Excel VBA_VBa_excelvba_vba excel
09-23
**Excel VBA（Visual Basic for Applications）是Microsoft Excel中的编程环境，它允许用户自定义功能、创建宏以及自动化工作流程。VBA结合了Excel的强大功能和VB语言的灵活性，为处理大量数据和实现复杂计算提供了...
ExcelVba.rar_Excel VBA_VBa_excel_excelvba_vba excel
09-19
在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，允许用户创建自定义功能、自动化任务和扩展Excel的功能。本资源“ExcelVba.rar”聚焦于如何使用VBA来构建自己的菜单，并隐藏Excel原有的菜单...
excel_vba.rar_Excel VBA_MACRO EXCEL_VBa_excel vba教程_excel宏
09-20
Excel VBA（Visual Basic for Applications）是Microsoft Excel中的一个强大工具，它允许用户通过编程来自动化Excel的任务，创建自定义函数，以及构建复杂的电子表格应用。这个“excel_vba.rar”压缩包显然包含了...
ExcelVBA.rar_Excel VBA_VBa_excel_excelvba
09-21
1. **VBA环境**: 在Excel中，可以通过`开发者`选项卡来访问VBA编辑器，这里可以编写、修改和调试代码。 2. **模块和过程**: VBA代码通常在模块中编写，分为子过程和函数过程。子过程用于执行一系列操作，而函数过程...
VBA-汉字转拼音-自定义函数.xls
03-21
VBA-汉字转拼音-自定义函数.xls
vba汉字转拼音函数及应用
08-08
vba代码实现汉字转拼音实例,很实用的资料,希望大家喜欢.
汉字转拼音缩写的VBA宏
12-15
Dim i As Integer Dim j As Integer Dim sum As Integer Dim beginrow As Integer Dim str As String Dim GetPy As String sum = ActiveWindow.RangeSelection.Rows.Count For Each rng In ActiveWindow.RangeSelection.Areas For Each cel In rng str = cel.Value GetPy = "" For i = 0 To Len(str) - 1 GetPy = GetPy & GetPYChar(Mid(str, i + 1, 1)) Next ' Application.Cells(Application.ActiveCell.Row, Application.ActiveCell.Column + 1).value = GetPy Application.Cells(cel.Row, cel.Column + 1).Value = GetPy Next Next End Sub
EXCEL_VB自定义函数_汉字转拼音
01-01
最近信息录入需要把姓名转化拼音，excel自带函数没法满足需求，遂有此自定义程序。
excel中汉字转拼音的vb代码
06-04
将单位所有的人员名换成拼音，不用发愁，小小代码帮你搞定
EXCEL利用VBA把汉字转拼音（李晓锋版）20180828更新
热门推荐
lxf2580的专栏
01-13 31万+
EXCEL利用VBA把汉字转换为拼音，现在网络中广泛传播的代码存在错误， 经过本人严格校对，把修正后的代码分享给大家。 代码更新20180607：根据评论，之前的代码的确是无法翻译“瑜 琦 钰 奕”这四个字的拼音，原因是他们的码值没有包含在代码中，现在已添加相应代码。谢谢  likewam  的评论。另外，希望大家能把自己使用过程中发现的所有不能转换的汉字都添加到评论，让我们一起来完善这部分代...
Excel使用拼音函数
weixin_45868184的博客
05-26 732
拼音
VBA宏实现将中文转为拼音(转帖+亲自实践)
bigheadsheep的专栏
10-30 7085
以下内容来自百度文库 将写在A1单元格的中文，转化为拼音写在B1单元格 缺点是：针对中文中的多音字，无法识别。   Sub 按钮1_Click()  Cells(1, 2).Value = PinYin(Cells(1, 1).Value)    End Sub Public Function PinYin(Hz As String) Dim PinMa As String D
excel中文转换成拼音首字母
05-18
在 Excel 中将中文转换成拼音首字母，需要用到 Excel 中的 CONCATENATE 函数和 VBA 中的函数。具体步骤如下： 1. 打开 Excel 文档，选中需要转换的中文文字所在的单元格。 2. 在单元格中输入以下公式： =...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值