excel中汉字转拼音的宏
PUBLIC FUNCTION PINYIN(CELL, Y, Z) AS VARIANT
DIM MSG, STYLE, TITLE
STYLE = VBYES    ' 定义按钮。
TITLE = "未转换字符确认"    ' 定义标题
A1 = "DE5,YI1,GUO2,ZAI4,REN2,LE5,YOU3,ZHONG1,SHI4,NIAN2,HE2,DA4, YE4,BU2,WEI2,FA1,HUI4,GONG1,JING1,SHANG4,DI4,SHI4,YAO4,GE4, CHAN3,ZHE4,CHU1,HANG2,ZUO4,SHENG1,JIA1,YI3,CHENG2,DAO4,RI4, MIN2,LAI2,WO3,BU4,DUI4,JIN4,DUO1,QUAN2,JIAN4,TA1,GONG1,KAI1, MEN5,CHANG3,ZHAN3,SHI2,LI3,XIN1,FANG1,ZHU3,QI3,ZI1,SHI2,XUE2, BAO4,ZHI4,ZHENG4,JI4,YONG4,TONG2,YU2,FA3,GAO1,CHANG2,XIAN4, BEN3,YUE4,DING4,HUA4,JIA1,DONG4,HE2,PIN3,ZHONG4,GUAN1,JI1, FEN4,LI4,ZI4,WAI4,ZHE3,QU1,NENG2,SHE4,HOU4,JIU4,DENG3,TI3, XIA4,WAN4,YUAN2,SHE4,GUO4,QIAN2,MIAN4,"
A2 = "NONG2,YE3,DE2,YU3,SHUO1,ZHI1,YUAN2,ER2,WU4,LI4,DIAN4,WEN2, SHI4,KE3,ZHONG3,ZONG3,GAI3,SAN1,GE4,HAO3,JIN1,DI4,ao3怎么切中文SI1,QI2, CONG2,PING2,DAI4,DANG1,TIAN1,SHUI3,SHENG3,TI2,SHANG1,SHI2, GUAN3,NEI4,XIAO3,JI4,WEI4,MU4,QI3,HAI3,SUO3,LI4,YI3,TONG1, RU4,LIANG4,ZI3,WEN4,DU4,BEI3,BAO3,XIN1,HAI2,KE1,WEI3,DOU1, SHU4,使SHI3,MING2,ZHE5,CI4,JIANG1,ZENG1,JI1,MING2,XIANG4,MEN2, YING1,LI3,MEI3,YOU2,GUI1,JIN1,TI2,JI4,DIAN3,JI4,QU4,QIANG2, LIANG3,XIE1,BIAO3,XI4,BAN4,JIAO1,ZHENG4,TIAO2,ZUI4,DA2,TE4, GE2,SHOU1,ER4,QI1,BING4,CHENG2,CHANG3,RU2,"
A3 = "DAO4,JI4,JI2,西XI1,KOU3,JING1,HUA2,REN4,DIAO4,XING4,DAO3,ZU3, DONG1,LU4,HUO2,广GUANG3,YI4,BI3,TOU2,JUE2,JIAO1,TONG3,DANG3, NAN2,AN1,CI3,LING3,JIE2,YING2,XIANG4,QING2,JIE3,YI4,YI4, SHAN1,XIAN1,CHE1,RAN2,JIA4,FANG4,S
HI4,JIAN1,YIN1,GONG4,YUAN4, BU4,WU4,JIE4,JI2,BA3,CHI2,WU2,DAN4,CHENG2,XIANG4,SHU1,CUN1, QIU2,ZHI4,QU3,YUAN2,CHU4,FU3,YAN2,ZHI4,XIN4,SI4,YUN4,XIAN4, JUN1,JIAN4,YU4,JU2,GAN4,DUI4,TUAN2,YOU4,ZAO4,XING2,JI2,BIAO1, LIAN2,ZHUAN1,SHAO3,FEI4,XIAO4,JU4,SHOU3,SHI1,QUAN2,JIANG1, JIN4,SHEN1,GENG4,REN4,GUO3,GE2,JI3,KAN4,MEI2,"
A4 = "ZHI2,FU2,TAI2,SHI4,YI4,XIANG3,SHU4,DAN1,YANG4,ZHI1,BEI4,亿 YI4,LAO3,SHOU4,YOU1,CHANG2,XIAO1,ZHI4,ZHAN4,LIU2,HEN3,JIE1, XIANG1,TOU2,GEI3,ZHI4,NAN2,GUAN1,ZHI3,CHUANG4,ZHENG4,ZHI1, LUN4,BIE2,WU3,XIE2,BIAN4,FENG1,PI1,JIAN4,JIU1,ZHI1,NA4,CHA2, ZHANG1,JING1,MEI3,LIN2,ZHUAN3,HUA2,ZHUN3,ZUO4,XU1,CHUAN2, ZHENG1,SHUI4,GOU4,JU4,BAI3,HUO4,CAI2,JI1,SHI4,JU3,BI4,XING2, YI4,SHI4,KUAI4,LI3,CAN1,HUI2,YIN3,ZHEN4,SHOU3,TUI1,SI1,WAN2, XIA
O1,ZHI2,GAI1,ZOU3,ZHUANG1,ZHONG4,ZE2,BEI4,ZHOU1,GONG4,BAO1, FU4,JI2,ZHENG3,QUE4,ZHI1,MAO4,JI3,HUAN2,HUA4,FAN3,SHEN1,"
A5 = "XUAN3,YA4,ME5,DAI4,CAI3,WANG2,CE4,ZHEN1,NV3,TAN2,YAN2,SI1, KUANG4,SE4,DA3,DE2,GAO4,JIN3,TA1,QI4,LIAO4,SHEN2,LV4,SHI2, LAO2,JING4,YUAN2,QING1,HU4,LIE4,XING4,XU3,HU4,MA3,GANG3,ZE2, JIE1,KUAN3,LA1,ZHI2,AN4,GU3,GUANG1,JIAO4,HE2,HUA1,GEN1,BU4,线 XIAN4,TU3,KE4,ZAI4,QUN2,YI1,QING1,SU4,LV4,TA1,ZU2,LI4,FEI1, GAN3,ZHAN4,XU4,SHI1,HE2,YING3,GONG1,FU4,YAN4,WANG4,CAI2,LEI4, HUO4,YUE1,YI4,SHOU4,LIAN2,JI4,AN4,XUN4,SHI3,SHI4,XIANG4, YANG3,HUO4,SHI2,SHI2,ZHUA1,FU4,MO2,SHI3,ZHU4,SAI4,KE4,YUE4, WEN2,YANG1,XI2,JIAN1,"
A6 = "FEN4,SHI4,RE4,XIAN4,MI3,YIN2,XI1,XIAO4,JUN1,FANG2,
ZHOU1, YOU2,QIAN1,SHI1,BA1,JIAN3,ZU2,PEI4,CUN2,JIU3,MING4,ER3,JI2, FANG2,QIAN2,PING2,FU4,KAO3,YI1,DUAN4,FAN4,CHU3,YOU2,ZHAO4, DUAN4,LUO4,访FANG3,WEI4,E2,SHUANG1,RANG4,QIE1,XU1,ER2,便BIAN4, KONG1,WANG3,NI3,CENG2,DI1,JIANG3,ZHU4,HUANG2,YING1,CHENG2, YUAN3,BAN3,WEI2,SUAN4,PO4,TIE3,LE4,BIAN1,CHU1,MAN3,BING4, XIANG3,YAO4,ZHU4,ZHI4,SHAN4,TU1,AI4,RONG2,XIANG1,CHENG1,GOU4, JIE4,YU2,SU4,QING3,BAI2,XUAN1,JIAN4,PAI2,CU4,PEI2,JING4,BA1, WEN3,JI4,JIN3,ZI4,KUN4,LIU2,LV3,SHENG1,CHAO1,SUI2,LI4,"
A7 = "DAN1,YOU3,HAO4,XIAN3,QUE4,JIAN1,CAI2,QIE3,CHUN1,JU1,SHI4, CHU2,HONG2,BAN4,MAI3,CHONG1,CHEN2,HUO3,GAO3,TU2,YANG2,LIU4, CHA2,SHI4,TAI4,SHI2,ZHI2,PIAN4,GU3,QI1,QIU2,XIU1,JIN4,KONG4, JIANG3,PAI2,LIANG2,WU3,YU4,QIN1,HUI1,MAI4,SHEN3,CUO4,RONG2, ZHOU1,WEI4,XI1,DIAN4,
LIANG2,SHU3,XIAN3,CENG2,WEI2,YU4,LING4, ZHAN4,SU1,LONG2,NIAN4,LUO2,DUN1,QI4,HUI4,KANG1,JIAN3,XI2, YAN3,PU3,TIAN2,BAN1,DAI4,XING1,FEI1,XIE3,KUANG4,QING1,KUO4, YAN2,ZHANG1,QI4,KAO4,MAO2,ZHONG1,RENG2,JING3,ZHI4,DI3,FU2, ZHI3,LI2,ZE2,BO1,LAN2,HE2,JIANG4,XUN4,ZHU2,PIAO4,CAI4,"
A8 = "ZUO4,XIAN4,GANG1,YAN3,SUN3,NING2,XIANG4,KU3,YIN4,RONG2,DU2, HU2,ZAO3,YU3,FU1,BIAN1,HUAN4,OU1,NU3,ZHE5,GU4,ZHENG1,SHENG1, TAI4,TAO4,JIE4,SONG4,MOU3,DOU4,ZHUANG4,HUA4,LIU2,HANG2,PAI4, SHI4,LIN2,BING1,BU3,BAO3,LUE4,HEI1,ZONG1,YUN2,CHA4,NA4,MI4, PIN2,JU4,FAN4,A1,JI1,YU4,SUI4,JIE1,LIE4,DU1,CHI1,FENG1, GUAN3,ZHAO1,HAI4,GUAN1,SHU4,TING1,TING2,LING4,SHA1,SI1,ZHEN1, SHENG4,DAI4,WANG3,YUAN4,TUO1,QUE1,YUAN2,JIA3,JIU3,YIN1,JU4, JI4,PAN4,SHU1,TAO3,CE4,DU2,YANG2,KUO4,ZHU4,
HUAN1,GANG1,QING4, JIU3,LU4,ZHAO3,LOU2,JI1,WAN3,JUE2,YA1,"
A9 = "GU4,HU4,QIAN1,HAN4,CAO3,MU4,MU3,DUAN3,SHAO4,YING2,XI1, JING3,CANG2,LIAO2,GUI4,FEN1,SHOU4,DENG1,TAN4,SUO3,WAN1,HONG2, LU4,SHEN1,SU4,XIU4,XU4,SHUN4,SI3,KA3,GE1,WU3,HAI2,QIAO2,XI3, CHUAN1,DENG4,YANG2,JIN1,WEN1,CHUAN2,KU4,DING4,LIAN4,HOU4,退 TUI4,WEI2,FOU3,CAI3,MIAN2,BANG1,NA2,ZUI4,BI4,JIAO3,ZHAO4, ZAI1,FU4,YANG2,FEN4,JI4,SUI1,MEI2,MIAN3,BI3,GOU4,YONG3,ZHEN4, TING2,AO4,XIAN1,CHAO2,WU2,DAO3,JIAO4,YI2,NI2,JI2,BO2,GUAN4, YONG1,SHU4,ZUO3,XI4,WU3,FU2,YU3,E2,QI2,BAN1,JIAN3,PAI1,NAO3, ZHAI4,GU4,WEI1,QUAN4,ZHUI1,CHOU2,KE4,"
A10 = "YING4,FAN2,WEI3,SHEN4,FAN4,YOU4,CHE4,YAN1,沿YAN2,JIE1,XUE4, CHONG1,HONG2,ZHI2,YU4,KAN1,YU4,TING1,JIU4,
CHAO2,XUN4,WU3, ZEN3,FU4,BEI4,DUN4,SHU4,BO1,LI4,JIN1,HU1,ZHI3,ZHEN4,JIU4, ZHANG4,GU3,JIAN1,HU1,JI2,NAN2,绿LV4,SHANG4,XIA4,KUI1,JI4,SONG1, HA3,ZU3,DIAN3,HAN2,BIAN4,YE4,LUN2,BAN3,KANG4,SHE4,ZA2,PI2, GONG4,JIE4,MU4,FA2,SHANG1,AN4,FU2,LUAN4,QU3,TUO1,JIAN4,WEI1, AO4,TONG2,SAN4,WEI4,YE4,LEI4,XIE4,SUN1,YOU2,XIONG2,JIAN1, WEI1,NE5,SHUI2,HUI4,CHANG2,SHU3,ZE2,RAN3,DA2,KUAI4,XU2,YU2, ZAN4,KE4,SHENG4,YAN2,RUI4,怀HUAI2,TANG2,"

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。