- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1452
- 贡献
- 1134
- 激情
- 1349
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.: m5 ^( Z8 ]1 |, Y, c
1 X/ `) q! N: l( w5 A/ n9 \
打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
2 A0 l) ^7 r5 U1 c! r% n$ ], E, u在弹出来的窗口中对着VBAproject点右键->插入->模块+ E6 w" W; _2 I7 e* k( {
下面会出现一个名为"模块1",点击2 f, v$ g9 n1 f8 D6 C
在右边的空白栏中粘贴以下内容:
5 C/ a0 T! r, Q& ?% e8 f6 \: g- s# c& Q/ y* X
3 I1 j2 o, {0 C9 Y
2 x# F+ {7 g2 V0 {3 A# T$ g. w
9 z/ J a. `) w) R********复制到此结束,本行不复制*******0 }& P7 d' k% O8 M4 j4 A
, H2 P% o0 t" u
9 h" n" |7 ]2 B
现在转换函数已编写完成!关掉此编缉的窗口。
/ x0 ]+ W& I4 X e n/ f1 c" z要在Excel中使用,方法如下:
v, K ]$ s9 m9 w) }7 VA1 A2% \9 x; L# S' }: l# G3 C$ b5 b
中国 =getpy(A1) * ]& U7 m7 Y: H
% p' h+ l, C: L$ C+ I: R+ H( ~. U1 B
% w8 Q9 @7 Y9 r( D5 x0 V/ ~
4 Z% @) B8 b2 u(有空格)
# F1 F% p2 `+ S4 |: O2 HExcel中文转拼音(完整版)3 X) |( K& v, `% r' n* h; n
打开Excel->工具->宏->Viaual Basic编辑器
7 ]9 G% u2 P8 a! _6 E/ _在弹出来的窗口中对着VBAproject点右键->插入->模块, I* v1 G% g9 b6 ]
下面会出现一个名为"模块1",点击; B% s# I5 m5 d" S G
在右边的空白栏中粘贴以下内容:
/ ~8 A6 Y9 ]& }( a! X+ T0 H8 k; i" G. b v l1 E
, ]" l, C1 c! {! a4 t3 ?0 h! V7 t8 V3 v2 O1 a' {
: |( Z, H3 N& b- F) P5 \
6 ]& E3 g% X2 J6 f/ q! |* @2 T# S7 y( J, _6 k7 I
********复制到此结束,本行不复制*******, R- E, `: D2 h. u5 I- `. X
: a8 y6 s4 H8 N( ^3 G. M: e5 J
! Y7 N7 O9 O: n: l2 t% c9 r现在转换函数已编写完成!关掉此编缉的窗口。
* E P4 u1 u6 W& ~要在Excel中使用,方法如下:
1 J. S8 |; k8 I+ g1 H Z/ K3 F# cA1 A2
A+ L: R9 `- N" K2 p. P1 T中国 =getpy(A1), I, ?6 k8 ?6 I+ z4 q& }
4 B" E* z( J G5 {) g* n6 E5 k8 ^) T9 x" ~
参考:3 x! m* C a4 T& t4 Q, c. _
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html $ p$ n/ T" J9 g( d- c, D
http://blog.csdn.net/yxwmzouzou/article/details/32330679/ 1 p+ H5 h5 `* M! S. p! d# k( Q/ j* M
更多: http://club.excelhome.net/thread-772116-1-1.html |
|