- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1450
- 贡献
- 1132
- 激情
- 1348
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
! H5 r. e5 n% R: l, B7 W0 K% }/ {' r7 N0 T& d( [/ B( {. B
打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
9 f1 D0 C1 ]; g7 c1 ?& A0 e% V在弹出来的窗口中对着VBAproject点右键->插入->模块
; [: m$ }8 o/ e7 m3 W3 F7 Q2 w下面会出现一个名为"模块1",点击. g' b3 A- @! D4 d: q& x- \/ i5 S Y( N
在右边的空白栏中粘贴以下内容:
, q! j$ N! ~( i1 x9 P e; @( T' A4 c0 E$ b. v8 l$ G
; k# J+ d/ ~& Z7 j7 [: A* h. K: e& P% ?9 e4 A
# k3 @( Q; `, O( c# ^0 L" } U5 Q& D
********复制到此结束,本行不复制*******2 w0 e/ U' D3 [' Z6 K8 `7 Y, F
7 T `6 L- D' [/ _
( {5 ?2 O9 E' m" N* K6 m
现在转换函数已编写完成!关掉此编缉的窗口。
S: T+ h9 u# S4 v: }3 r7 \要在Excel中使用,方法如下:5 a. y/ Y8 j( n4 T
A1 A21 C) _ N- j F- J
中国 =getpy(A1)
# c/ Y* v' x+ d; x; P0 ]8 `
5 `6 t5 x1 [' _3 a% ~0 O
. P6 w- Y3 A! P9 G- ?
$ `9 j- E% |( N' X7 ~. T+ J, C3 I; w% x4 P4 Z7 O4 I
(有空格)
, g. {: [0 L) Q% S" f9 \Excel中文转拼音(完整版)
* m6 A- P3 r9 u% @ X打开Excel->工具->宏->Viaual Basic编辑器# F x/ l6 a0 V; ?* ^2 O, [; d
在弹出来的窗口中对着VBAproject点右键->插入->模块
4 I7 E& ]4 \( c0 a* h下面会出现一个名为"模块1",点击
6 \+ m F( P2 ^$ @6 |0 p' |在右边的空白栏中粘贴以下内容:! d7 p& g2 R2 I8 k3 \4 J
& N5 i# W+ P& u0 ^; K! A
* ~/ l) l5 R# W* W+ U* {3 Z
) t1 _8 J+ [: _' |5 I+ f$ z8 r5 B) l
# N" I1 w/ c/ q9 g7 M" u; B7 n1 \" ~1 P$ c
********复制到此结束,本行不复制*******$ K, I" g; B5 P/ o: K
, R7 M0 s2 m. l F* S2 ~5 @3 x
( i8 H W5 a; X9 v) o现在转换函数已编写完成!关掉此编缉的窗口。7 h/ S8 ~. S. |; R
要在Excel中使用,方法如下:
; f$ X/ b" d1 y* l1 Q+ l1 L" FA1 A2
! N9 t2 F2 |: t) L( u% }6 w中国 =getpy(A1)
! [* b, _4 _9 O6 C; Y7 w3 @7 g5 _8 _4 N/ |6 j
& J$ R' P8 S ~9 T* K8 L$ S参考:
$ Z% ?! E N; yhttp://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
+ S9 R) i9 h D$ Z7 h8 p1 lhttp://blog.csdn.net/yxwmzouzou/article/details/32330679/
4 P g$ W* `0 b8 P5 }% r更多: http://club.excelhome.net/thread-772116-1-1.html |
|