- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1450
- 贡献
- 1132
- 激情
- 1348
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
' h, \7 r: @4 s y2 ^. B. B4 ^7 O2 Z* C- ~/ [
打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
- j( c" ^1 c x4 t2 H( G* E在弹出来的窗口中对着VBAproject点右键->插入->模块/ [, i9 t6 C: h8 N
下面会出现一个名为"模块1",点击4 p- m2 f% {+ g
在右边的空白栏中粘贴以下内容:! X+ K" A. S R0 \1 M7 Y, E
& ~" Z1 g1 v- ~$ c( X/ c& g4 L
& `/ [ p. A2 N$ P: w: t7 a
8 _4 k# J+ Y. f, e8 _& C6 j( x
5 G0 p- K) }8 z********复制到此结束,本行不复制*******
7 N% c: q# q' F7 V. K5 h5 H, S! V3 \' q0 t
* o& [" L( O+ [
现在转换函数已编写完成!关掉此编缉的窗口。* y$ s3 F/ R6 d# S6 W. Y! o
要在Excel中使用,方法如下:
3 o1 D' z6 X3 E/ B! `. rA1 A2
4 @4 @- c) A# D8 t# f中国 =getpy(A1)
! V% R. \$ ~$ h8 \) A$ U& k0 r! r( B: a2 C- C0 C5 i, W6 m0 E
7 [0 F* U7 x4 q" H8 P1 R
1 p% A8 R) O" d/ N/ V+ B1 P' p5 P
(有空格) 8 T+ D% H5 v' H/ k0 Z1 i% r
Excel中文转拼音(完整版)
9 z+ _: R' z+ t! Z; k3 k打开Excel->工具->宏->Viaual Basic编辑器
; B0 o* j3 q/ R/ }, k1 T4 {' v9 ^* s在弹出来的窗口中对着VBAproject点右键->插入->模块" x2 b* G+ }! f9 Z
下面会出现一个名为"模块1",点击
, T ]3 i8 {1 U6 t9 w: [在右边的空白栏中粘贴以下内容:
. F$ v; F( e4 s' ^+ T9 `# V1 _) L- Q, H3 M1 ~
% x+ u: Q( f* M% v+ Z* R
. Z. G# Z/ |2 x t. k
& I' {) l/ m [9 h- B* Q1 L, K
: x, l6 ^1 W" c% z" W/ f
4 @% ]: g% f+ ?& g+ ]( ?9 O$ V. x********复制到此结束,本行不复制*******) q5 S( |3 p3 g3 ?; x( i
4 \& u: [% Q: j& w, r7 y
, [$ @: n8 E2 Z- P$ R/ q
现在转换函数已编写完成!关掉此编缉的窗口。- a! ?) |% n7 @3 D
要在Excel中使用,方法如下:
7 B" P6 p- @5 @A1 A2: G2 U7 F! r, Y( ~
中国 =getpy(A1)
7 R6 w1 U" t! f$ R1 S: ~6 |. z7 n" ~ Y
& o3 e, @" W+ o- [0 X& T$ V q) D: B) G
参考:0 u& L& k4 w- H5 e( k
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html * J9 _6 ]: Y* |' O
http://blog.csdn.net/yxwmzouzou/article/details/32330679/
7 \# o. l" N8 \" W7 y更多: http://club.excelhome.net/thread-772116-1-1.html |
|