  
- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1220
- 贡献
- 902
- 激情
- 1233
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
9 |! F, N0 I$ @7 J8 o" ~1 Z$ S$ A$ n _1 W
打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
# S% U; \# F$ n& a在弹出来的窗口中对着VBAproject点右键->插入->模块
7 B% H& _2 `8 p下面会出现一个名为"模块1",点击
0 E5 S+ A8 Z, y% Q" N, ~$ d. X4 c在右边的空白栏中粘贴以下内容:6 }" }4 V" }( }; I$ W6 S) e1 M
; T. ], M. W& v0 x% a0 M. c1 B
; S! n5 N, |* i0 N* w( `
3 f$ q4 I8 T7 s8 ]8 Y9 R/ V G0 G5 R( T& ?# G1 e% M
********复制到此结束,本行不复制*******
6 }, s9 b; K7 E1 _2 w
" J( _( u# p! A% Q, ~3 ^
) K8 ~* Q3 o0 ^4 w7 p W+ w现在转换函数已编写完成!关掉此编缉的窗口。
8 ?9 y9 }0 R8 ^ t) u8 I" x要在Excel中使用,方法如下:! g! }0 {2 c0 D+ N( \# i: Q
A1 A2
0 r+ M: ?. w6 N: z4 V5 t中国 =getpy(A1) ; L& |/ w/ k! {) Z; V" A9 B
# [& U u- a: \+ r8 V! a
2 [5 R7 y; j/ A* x0 ^4 L: E; n- ~8 Z' [! p, v1 K
7 ^) d. Y$ y% f& n n(有空格)
6 H, q9 Q* Z: B: N3 qExcel中文转拼音(完整版)
" h. {( Z, d/ \, z: f* q7 r/ y打开Excel->工具->宏->Viaual Basic编辑器* k9 S$ {! H$ O: b& Q& c
在弹出来的窗口中对着VBAproject点右键->插入->模块
6 {* _: r& F3 T8 D1 ]% O下面会出现一个名为"模块1",点击7 s) c; ?& l# S- I$ t; H
在右边的空白栏中粘贴以下内容:2 c, V' j0 K( t$ H. {
6 m( a; P) [/ `8 l
' W' T# ]. Z: h3 P7 B
0 U/ R: y& ?, l6 W3 |+ C, y0 ^9 a( c0 Y$ H, H3 O9 U0 h$ S8 p3 H5 i
) P: r" `% f7 A7 p; @
- p( V" t" y- h+ P: a: P. T********复制到此结束,本行不复制*******& X; k) n8 s8 p) L4 W1 y: E# [- q% G
5 O2 v7 F( p& w2 H. g$ R v1 m6 h5 b0 j
现在转换函数已编写完成!关掉此编缉的窗口。5 I) X4 Q+ u9 _; |/ f( z! p* v
要在Excel中使用,方法如下:' B, w' I6 E6 ^! Y; b% @7 \$ D
A1 A2: }+ S; r) T' j" l
中国 =getpy(A1)# s9 x9 B u5 F
6 Q5 A/ ^: `7 [" x9 f% @+ H& T/ K3 N3 i/ U# f
参考:( i# t3 [+ I4 [
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
% z. q+ B3 m6 w0 u! thttp://blog.csdn.net/yxwmzouzou/article/details/32330679/ % M, W* j% m# r% d, I" l) O
更多: http://club.excelhome.net/thread-772116-1-1.html |
|