- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1450
- 贡献
- 1132
- 激情
- 1348
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善.
2 g, u& W8 B# H
8 i8 G" D+ \5 o9 k打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )
0 ]$ p$ M4 E" y3 |' T在弹出来的窗口中对着VBAproject点右键->插入->模块
, C; X7 \. @, o U3 H" M5 b下面会出现一个名为"模块1",点击$ m! r8 t. m4 M
在右边的空白栏中粘贴以下内容:9 l0 G1 {9 P7 f2 b6 L0 g7 l
4 T/ l: i! O8 ?( Z
2 ]5 y V' W5 o- ~3 T$ s! v
# _# J% E; w1 ]
2 t' c+ d# a+ Q( v% u" X% `********复制到此结束,本行不复制*******) a b3 s4 J! g# Y$ T
* s& [# y; n [8 o6 E7 y$ H1 e8 r% I3 z t5 d3 {1 {6 y" W% [
现在转换函数已编写完成!关掉此编缉的窗口。: d8 O, a- ~ k
要在Excel中使用,方法如下:
1 I, U0 W" B( K+ p' B/ GA1 A2
h: V4 e9 l! f$ m! N* m/ l; O1 L中国 =getpy(A1) $ k4 B% r. `" K: G- r, ]5 f2 x
5 |+ H3 R. @# w/ |/ K
0 u* e, ~% y, X S. k! U; _' M) g1 y# q% I2 K7 J& g8 h6 d. E
- V/ ?* o! }2 G# _2 }2 c8 r(有空格)
% {9 U- |5 T* y$ `, s& p, iExcel中文转拼音(完整版)
- Z9 Q5 x3 o' j8 Q( g+ K打开Excel->工具->宏->Viaual Basic编辑器4 k' Q; y8 i* h" a! m; W1 T
在弹出来的窗口中对着VBAproject点右键->插入->模块' q/ { k% c, t$ P
下面会出现一个名为"模块1",点击5 G% t8 ^; M; H( a8 ~4 O A
在右边的空白栏中粘贴以下内容:/ N: \8 A9 J9 A+ s9 @. ~
% N4 W0 t: E3 c$ Y, P1 Q9 A8 m
0 r8 M# M. [9 e; |) ^% `
1 d5 n, s2 V7 n9 w
- q0 Z' s) Y4 z' t9 N% d
/ J* I, ?) z( n
$ F0 c3 h( m( ^1 Z# ]********复制到此结束,本行不复制*******
+ Z4 \4 K4 ]1 ?3 b5 q0 o, o9 P0 A- c6 U0 `' ~
3 }: v* k" g1 ^$ K; f+ {
现在转换函数已编写完成!关掉此编缉的窗口。
2 J( ]( R( u5 b1 m7 o要在Excel中使用,方法如下:) X: g; I& ^6 J1 L
A1 A2
9 x& w# Y+ D+ R( h中国 =getpy(A1)9 X# Y" J- k4 h7 F4 s
6 j8 h4 L. z/ N0 ]2 T! d
# W% h- g. U- Y8 [参考:
$ o$ T3 @- k' P: c1 Yhttp://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html 6 C0 h$ `" E" `% b X3 l* x5 }$ I
http://blog.csdn.net/yxwmzouzou/article/details/32330679/
# E; f+ ]! E- L/ m0 G3 c- m/ @更多: http://club.excelhome.net/thread-772116-1-1.html |
|