Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: HYY514

[分享] 汉字转全拼音函数

  [复制链接]
 楼主| 发表于 2011-5-21 11:12 | 显示全部楼层
回复 天马 的帖子

运行下面代码
Sub a()
Sheet1.dic.Width = 10
Sheet1.dic.Height = 10
Sheet1.dic.Select
End Sub
打字库复制到你要使用函数的工作簿中
回复

使用道具 举报

 楼主| 发表于 2011-5-21 11:19 | 显示全部楼层
laosanjie 发表于 2011-5-21 11:10
这个是更强了!程序也简洁多了!
这个:bList 是“指向”字库的吗?

这个bList是第二个参数,布尔值,默认为TRUE,即全部转换,如果你是 MsgBox GetPy2("飞翔的天空", False),则只转换字符串首汉字

评分

参与人数 1 +1 收起 理由
laosanjie + 1 谢谢回复指导!

查看全部评分

回复

使用道具 举报

发表于 2011-5-21 11:27 | 显示全部楼层
本帖最后由 天马 于 2011-5-21 11:30 编辑

回复 HYY514 的帖子

10.jpg
运行不了,总是在那个打线的地方有问题。
回复

使用道具 举报

 楼主| 发表于 2011-5-21 11:48 | 显示全部楼层
本帖最后由 HYY514 于 2011-5-21 12:41 编辑

或者你打开我11楼的附件,把附件中的sheet1工作表拖到你要使用函数的工作簿中,再把附件中的函数复制粘贴到你的工作簿中就可以了。
把拖进来的工作表全选右键清除内容,然后在VBE中设该工作表Visible属性为2隐藏该工作表
回复

使用道具 举报

发表于 2011-5-21 12:52 | 显示全部楼层
不错不错 ,回头下下来收藏!
回复

使用道具 举报

发表于 2011-5-21 14:13 | 显示全部楼层
好东东,收藏了~~~~
回复

使用道具 举报

发表于 2011-5-21 14:16 | 显示全部楼层
输入汉字“军”,拼音出来的是“jun1”。多了个“1”
输入“轮”和“晕”出来的拼音都没问题~~
回复

使用道具 举报

发表于 2011-5-21 22:39 | 显示全部楼层
本帖最后由 gdgzlyh 于 2011-5-21 22:39 编辑

回复 HYY514 的帖子
谢谢楼主说明,我昨天就有点奇怪。

2011521-223521.jpg

回复

使用道具 举报

发表于 2011-5-23 15:10 | 显示全部楼层
该贴是好贴
做个记号,以备后用
回复

使用道具 举报

发表于 2011-5-23 16:46 | 显示全部楼层
HYY514 发表于 2011-5-21 11:12
回复 天马 的帖子

运行下面代码

原来是这样,我打字库加宽,就看到里面有好多的字,是不是删除一个字,那么这个字的拼音就没有了呢?!{:912:}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:37 , Processed in 0.262916 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表