  
- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1422
- 贡献
- 1104
- 激情
- 1334
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
分享Excel中文汉字转拼音脚本函数/宏(完整版)PS: 经测试后, 有部分字转换不成功, 可自行完善./ y- j6 _+ E X$ ?" o
Y q3 x% B2 c- Y" w% K6 v& Q打开Excel->工具->宏->Viaual Basic编辑器 (也可以用组合键: 直接按“Alt+F11” )3 w& m/ o2 d# t% y8 y! d
在弹出来的窗口中对着VBAproject点右键->插入->模块
) l7 x5 @9 S+ a+ B下面会出现一个名为"模块1",点击
; i6 P8 r" s3 e2 _( t2 {) f( w( b在右边的空白栏中粘贴以下内容:. v& l" i3 F6 q3 \, I p; k: N
( V; J4 ]& a3 w
5 M( w8 r* [, ~( i. H
& q9 M- n+ B$ \
D) ~' D/ R* O ~********复制到此结束,本行不复制*******% A% K, S" d$ k/ _
5 @# X( v. e) x: M5 i W$ T
4 I% v: ^& n" R5 Q2 `0 u2 b) ]
现在转换函数已编写完成!关掉此编缉的窗口。# ]/ ^5 D. n! X1 t
要在Excel中使用,方法如下:7 z2 l4 V6 W& y: b3 a+ K- A
A1 A2
; k* {) r1 c+ X, l# R中国 =getpy(A1) # R+ k" D; P$ v8 |
9 R0 R, h/ |6 v# i$ O% {6 n
7 u" u ^5 m% _0 O3 V, Y
: x: k, k' `2 V( i2 }2 {6 M2 M, ]3 D: B2 [
(有空格) 6 n+ z3 @$ v, t& u! t
Excel中文转拼音(完整版)+ v5 L0 Q$ e! [: U+ i# T
打开Excel->工具->宏->Viaual Basic编辑器
9 I `' k3 v% G& l' }. e在弹出来的窗口中对着VBAproject点右键->插入->模块) w+ \/ D( R/ x% V# z
下面会出现一个名为"模块1",点击3 |3 z1 H' k/ I' s
在右边的空白栏中粘贴以下内容:! x8 @: b) B5 y. ^/ M* ?
8 B0 S/ O; a' P( J1 W% {. D1 P2 W
0 N! ~) O/ Y4 v* T5 X% j
`; S" g, R- q6 h) x
4 z: _5 x. p8 r, M+ D
6 _: B; F5 k2 j! j& h- [, R/ G
0 M/ w _4 o) W3 F9 t9 k********复制到此结束,本行不复制*******. Q+ m, ^: k: y- f- X$ O1 V, Q
/ I6 R3 w' k, X0 Y6 L) z* F1 h
6 a- o( Q$ i! ]现在转换函数已编写完成!关掉此编缉的窗口。
) i# [$ D/ x/ j. d要在Excel中使用,方法如下:
$ ]2 Y5 p/ N j+ a$ E, O5 y( qA1 A2# l* i4 @' c% W/ L5 M/ ~
中国 =getpy(A1). u V- [/ p" F! E
/ g" C7 x8 `9 k q4 T3 A8 c
" C! J2 C6 E# {参考:
) U3 m0 L( @5 w5 ?3 Mhttp://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html . z* r& @6 h" q/ o1 U
http://blog.csdn.net/yxwmzouzou/article/details/32330679/ : r) `+ M* W/ _% e) l& |2 V, D
更多: http://club.excelhome.net/thread-772116-1-1.html |
|