  
- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1404
- 贡献
- 1086
- 激情
- 1325
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
. @# F/ P$ U) \& g
5 D* A7 v c# I* C打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” ). n7 c' G u2 v. t7 w! H
在弹出来的窗口中对着VBAproject点右键->插入->模块5 A: u# Q) O; a- e$ g& ]
下面会出现一个名为"模块1",点击7 M( ?& A+ ] [: R
在右边的空白栏中粘贴以下内容:
" p2 R1 W, Z8 v
; q& R! x+ Y6 ]/ {+ y3 J B& ]+ C) k6 c, v3 n- V
& H2 J% E7 a' P6 R+ T: e: p1 ^& z0 O n1 z9 R
********复制到此结束,本行不复制*******
( A5 ~; t2 [4 }4 M2 F1 X7 A& C0 K- I% L) f
2 n4 A% m9 w& y" |现在转换函数已编写完成!关掉此编缉的窗口。
# ] b; T- w8 c/ X+ @2 C要在Excel中使用,方法如下:
8 K* N) I1 ], K- Z9 Z! cA1 A2
1 j$ l9 e2 @; q' d中国 =getpy(A1)
6 J& z# I( _; v
% S' x7 |8 J6 c, P v$ o& v, P$ q* {) ]! ^' {2 A
" B( \- B( j( q' Y: l
6 `: z+ ~+ d# I/ p1 y0 p5 _4 ]7 ]# e(有空格) 1 ]+ Q- Z }) Q, o
Excel中文转拼音(完整版)
: }/ `" M. L8 j5 i" u, `1 ]0 | D打开Excel->工具->宏->Viaual Basic编辑器
R% G, i5 X; L" i在弹出来的窗口中对着VBAproject点右键->插入->模块
9 q$ d% l- l, W" i" W下面会出现一个名为"模块1",点击
2 Q* X% r' |: G, P8 ^! @) s4 S在右边的空白栏中粘贴以下内容:
1 b4 D6 [" }# W; r( {. u5 I6 ?* s$ \5 j# E. C6 L3 R2 |
8 ]# H! w; O) Z! a% L7 ^; V) T! U: V4 e, W9 s9 y" x
, [- u* [) W+ ?' l9 d% H
- l+ C, F7 Z8 \+ x: Y9 X) o E; V3 S+ _4 y/ l. J8 p
********复制到此结束,本行不复制*******/ B6 ^* r4 a3 ~6 e
1 O! U( \1 F' u' A( G( {% m4 s( Y5 x
现在转换函数已编写完成!关掉此编缉的窗口。
: z) p6 a1 f% _, K" e$ E要在Excel中使用,方法如下:
$ c1 Q6 y. C; V* ZA1 A2
; n( P; F- u( r& K, J; E中国 =getpy(A1)
8 }; p# d" V0 O7 b9 C6 m! k/ n3 Z ]/ D4 _+ w; G
* O! N; e% J4 L( E" L4 a
参考:, U1 y! ]4 d: q5 k1 K* R+ m
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html ) L3 g9 o# _7 @8 n& m0 p- `9 H) ?
http://blog.csdn.net/yxwmzouzou/article/details/32330679/
/ i$ H4 C# U3 |8 Y; k# Z$ F更多: http://club.excelhome.net/thread-772116-1-1.html |
|