  
- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1220
- 贡献
- 902
- 激情
- 1233
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
. O# Z& s I$ H' Z! K5 z& Z# |, p/ `+ B
打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
5 r# U1 |. x4 \* m0 I/ ^ V在弹出来的窗口中对着VBAproject点右键->插入->模块
7 a" V% f+ o8 [$ h下面会出现一个名为"模块1",点击
7 o2 g7 \4 f7 T( T) x: }在右边的空白栏中粘贴以下内容:
0 x( ]) I9 k, O; G% Q( D$ i9 a7 c7 x/ y8 T
0 |+ T& f2 \& P) F- Y g7 H
7 H b* } i P2 h/ e+ Y9 x$ v9 @" l! T# R
********复制到此结束,本行不复制*******
0 Y# m) e: F9 z) C
! |% n& @0 k9 o8 Y" W( ~
]( m' ~8 @+ t现在转换函数已编写完成!关掉此编缉的窗口。6 C. w n$ U) b4 H) v! M5 F0 M% p7 v
要在Excel中使用,方法如下:, U: E# V" ^# q( d+ q
A1 A2
5 a! P: {/ ]8 N- |中国 =getpy(A1)
" |3 {% P7 E p9 b5 ~% n, [9 g7 ?: z) h% Z
9 W: ]4 A" c! S, u3 x8 U! @; b' K- z8 G6 h! K5 B4 S
5 _& _/ r) |, T+ _0 {" w0 p(有空格) " {+ d, R6 a' q% h! v
Excel中文转拼音(完整版)1 R' _' j& X. c h- s7 |
打开Excel->工具->宏->Viaual Basic编辑器
( z" @3 ~0 ?: g( T6 c! B; L) `, b在弹出来的窗口中对着VBAproject点右键->插入->模块
- d$ M% W7 ~- e1 K+ \+ `% f2 f下面会出现一个名为"模块1",点击
O: r. _1 T$ G- q在右边的空白栏中粘贴以下内容:6 z2 T$ c% \7 K3 G; ?) ~4 v
- o! M( V3 B: U2 E+ F1 e Z* d& R
% e2 A7 w; x4 n: A& O$ _
& J, B4 u9 M5 e! U" A) |; H$ A& h( c. c( X- f
* r9 j6 L W; k
^, M L2 Q7 O [. o********复制到此结束,本行不复制******* R7 B0 i1 Z. `1 R# {
5 V# V& b% U- C H& s1 H' i( k' }2 H0 k/ B- ?
现在转换函数已编写完成!关掉此编缉的窗口。
! [3 J; \$ r0 h% t" M要在Excel中使用,方法如下:
' H. r; ?5 o2 x! F" ]A1 A27 |) d+ f6 `# ?
中国 =getpy(A1)
3 |3 s/ m& T- Z, p! Q7 U
6 F/ V( F8 S' a5 H9 U8 M
% Y$ a2 d4 e9 R! Y1 E( ~参考:; X& t2 m: r$ _5 ^
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
. V: l5 g5 A) g# khttp://blog.csdn.net/yxwmzouzou/article/details/32330679/
+ \* h6 S, d k; G5 z$ Y更多: http://club.excelhome.net/thread-772116-1-1.html |
|