  
- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1422
- 贡献
- 1104
- 激情
- 1334
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.' o. K# t& b% G; m2 \$ ]- z
9 n, M9 P) }+ U打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )3 \0 d) w0 b/ j# [
在弹出来的窗口中对着VBAproject点右键->插入->模块
: ?( Z9 N0 o1 j4 }下面会出现一个名为"模块1",点击! w7 T; O6 U' U3 y
在右边的空白栏中粘贴以下内容:8 p1 |: I6 O5 E$ p' r
2 F7 d9 w* w% |9 L! g' I& f/ u/ n( e4 Z! d' `
, v Y! d9 u# O3 _5 ]" i6 ^
: J1 @4 l8 A/ v) D* K********复制到此结束,本行不复制*******
; I# O- x! ?& f8 o1 c" I
& X. d! A: k7 A3 z: _; A
2 C( O% @; g; o现在转换函数已编写完成!关掉此编缉的窗口。! l& u+ [1 \$ j- } D
要在Excel中使用,方法如下:* H8 m1 I* ]5 h
A1 A27 j! y9 U# }. `% m. F
中国 =getpy(A1) 1 f C6 i! B2 V4 b# ?8 W$ G1 l
/ E, o6 g$ m+ R! c& T$ R: [" }: D* f' y
1 d, G0 \( t& h
2 E9 c* u5 B( I, X(有空格)
4 E( n, k, }1 MExcel中文转拼音(完整版)! I' B2 n2 O8 }+ t1 h
打开Excel->工具->宏->Viaual Basic编辑器
# D' Y% F! ^4 h" B) v9 E在弹出来的窗口中对着VBAproject点右键->插入->模块) n5 H0 u6 O J' T
下面会出现一个名为"模块1",点击
" |4 v" t6 K' l7 Q. _* }在右边的空白栏中粘贴以下内容:% g' G7 [( J* U) t/ J
|7 E7 F. Z, ]8 d! ]6 w) Y5 l# a6 x7 L' E D8 t. M
5 R. B( C. X/ `2 R8 _7 X
- S1 S- B( i/ ^7 G
2 \4 O2 q$ m: _: a4 m! t3 m e
( M& j8 P! f: K. n' u; U; r4 X********复制到此结束,本行不复制*******+ _: }- S1 Z& u& P
- `/ ^$ I6 L. z. Z0 J; @( \
1 k6 ^3 W' K0 ] H! @& q
现在转换函数已编写完成!关掉此编缉的窗口。
; d, H6 e- p, H7 K5 p2 U& ]9 \* |0 o要在Excel中使用,方法如下:
( }; U1 J$ D$ ]& o* p6 G6 c N: zA1 A2
s3 [! q' ~; [, l# I% E& c/ q" h中国 =getpy(A1)
+ v$ b0 L8 W7 U8 t
( `" _) k2 }8 X5 @& ~% U
7 l6 e2 A- U8 J% E参考:
6 ~/ |( E& B9 V: C( khttp://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
3 T9 N7 o" G* s- T" G a( Bhttp://blog.csdn.net/yxwmzouzou/article/details/32330679/ 1 u; P$ G4 X- B. D% b; a
更多: http://club.excelhome.net/thread-772116-1-1.html |
|