- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1450
- 贡献
- 1132
- 激情
- 1348
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.1 i6 D- T% z; }' n" f1 S
/ I5 K$ T( |5 j2 U打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” ) t5 p# l# A8 H S& O
在弹出来的窗口中对着VBAproject点右键->插入->模块: g5 V9 ?' l( K' C$ i# n4 ]9 y
下面会出现一个名为"模块1",点击
# B8 w$ I+ h, e K在右边的空白栏中粘贴以下内容:
# s: s. C3 A, y* a1 w' d* f
0 G& i2 P) G' D9 |+ I, c9 H" e
G7 e9 Q7 Y o' U- h. i
' I& h) h: a6 M# A* w- [) N* ^1 r$ r+ g, H
********复制到此结束,本行不复制*******
7 A( P6 H; m$ Q% _7 x7 \) {2 B; b
- n5 @1 A% g6 l+ {0 q现在转换函数已编写完成!关掉此编缉的窗口。
" }3 I) I% {* s2 X$ I要在Excel中使用,方法如下:" c9 ?% P, W1 k5 G: M9 l
A1 A29 Z; r8 Z5 W( B8 c/ n! Q
中国 =getpy(A1)
+ M4 W2 h6 e W; G& |) n# |" i# J/ t- \' Z) v
2 K1 k& I3 M# k/ E4 `
* b* k% v3 _8 ^4 ~% w' |. Q& {: B/ A% g3 E' U/ C6 b6 d: B
(有空格) 4 ]: j8 w) G5 i+ E4 E2 @
Excel中文转拼音(完整版)
6 o. g1 M; r6 ]& v! X! ~; |+ ~打开Excel->工具->宏->Viaual Basic编辑器- }' \0 d9 e) j, ?
在弹出来的窗口中对着VBAproject点右键->插入->模块
M/ X3 y% y P下面会出现一个名为"模块1",点击
5 J3 l% s0 a7 A在右边的空白栏中粘贴以下内容:, T! X+ K4 J/ O& Z8 x$ m" ?! k
( n, X3 @& T' q3 K2 B& p& a
7 n$ S; k1 x8 }3 @, l. G& n' [& j/ ~. a
6 `9 i2 h& P2 F/ o; J' Y/ D, z' F- F5 [: Q; t6 @4 m
7 W2 Y9 R: X$ r9 u* E* s! F/ A0 {********复制到此结束,本行不复制*******9 ~% n- {* \; k9 i/ \$ L
' D" |( M2 E' @' f( e$ n" q+ G' ~! I) }; v2 E
现在转换函数已编写完成!关掉此编缉的窗口。3 }4 a% Q$ y$ R4 _6 d
要在Excel中使用,方法如下:: h7 }. \6 @3 ?# |& n
A1 A2 l! W# a# `6 x/ d$ F- `
中国 =getpy(A1)1 ^, O7 @( }2 @- w
" y; {" G/ |5 ~! J0 K( n8 @
6 k$ k# R3 }# c) i) N* z- f6 n参考:4 j& o6 p; V$ j' }
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html : n0 B" t* D8 W8 d
http://blog.csdn.net/yxwmzouzou/article/details/32330679/ 5 b5 a I; c2 {, @0 R; N( U9 m
更多: http://club.excelhome.net/thread-772116-1-1.html |
|