Excel 文字转拼音
实现效果:
汉字 | 遇到汉字转拼音,不是汉字正常输出 | 汉字转拼音,不是汉字不输出 |
这里是汉字转拼音 | zhelishihanzizhuanpinyin | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 1 | a zhelishihanzizhuanpinyin 1 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 2 | a zhelishihanzizhuanpinyin 2 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 3 | a zhelishihanzizhuanpinyin 3 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 4 | a zhelishihanzizhuanpinyin 4 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 5 | a zhelishihanzizhuanpinyin 5 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 6 | a zhelishihanzizhuanpinyin 6 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 7 | a zhelishihanzizhuanpinyin 7 | zhelishihanzizhuanpinyin |
a 这里是汉字转拼音 8 | a zhelishihanzizhuanpinyin 8 | zhelishihanzizhuanpinyin |
1、如果没有开启“宏”,打开一个excel文档,文件-->选项-->自定义功能区。勾选开发工具
2、添加“宏”,开发工具-->宏,输入宏名:PinYin2,-->点击“创建”,--> 把下面的 VB Script脚本代码赋值进来,-->保存。
Function PinYin2(Hz As String)
Dim PinMa As String
Dim MyPinMa As Variant
Dim Temp As Integer, i As Integer, j As Integer
PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292,"
PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,"
PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224,"
PinMa = PinMa & "da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722,"
PinMa = PinMa & "e,18710,en,18697,er,18696,"
PinMa = PinMa & "fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,"
PinMa = PinMa & "ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928,"
PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427,"
PinMa = PinMa & "ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647,"
PinMa = PinMa & "ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216,"
PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652,"
PinMa = PinMa & "ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180,"
PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,"
PinMa = PinMa & "o,14922,ou,14921,"
PinMa = PinMa & "pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645,"
PinMa = PinMa & "qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151,"
PinMa = PinMa & "ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092,"
PinMa = PinMa & "sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326,"
PinMa = PinMa & "ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,"
PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585,"
PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861,"
PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067,"
PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254"
MyPinMa = Split(PinMa, ",")
For i = 1 To Len(Hz)
Temp = Asc(Mid(Hz, i, 1))
If Temp < 0 Then
Temp = Abs(Temp)
For j = 791 To 1 Step -2
If Temp <= Val(MyPinMa(j)) Then
PinYin2 = PinYin2 & MyPinMa(j - 1) & ""
Exit For
End If
Next
Else
PinYin2 = PinYin2 & Mid(Hz, i, 1) // 这里不是汉字,正常输出。注释这行,不是汉字不输出。
End If
Next
PinYin2 = Trim(PinYin2)
End Function
这里可以根据实际情况,自由边界脚本。
3、到此就结束了,可以验证一下。
Excel 文字转拼音相关推荐
- 如何批量在excel中将中文转换为汉语拼音(Excel文字转拼音两种方法)
今天工作遇到一个需求,其中有一列的需求是将姓名转变为拼音全称 这个需求有两种解决办法(目前) 直接进入正题: 1.第一种方法,利用自定义函数 要将以上的名字汉语拼音写出来,(举个例子,实际数据比这要多 ...
- Excel中文转换为拼音(大写首字母、小写首字母、全拼、全拼首首字母大写)
很多时候我们需要处理一下汉字转换为拼音的需求,今天给大家分享一下标题包含的一下转换方法 1 .excel通过宏可以很好的处理汉字转换为拼音的 1.1下面的是转为全拼音的宏代码 Function ...
- excel表格内文字怎么换行_Excel表格技巧—Excel 如何给文字加拼音
在日常工作中,我们经常会使用到各种办公软件,尤其是Excel软件.我们经常需要给Excel文件里的文字加拼音,那么,如何给Excel文件里的文字加拼音,我们如何解决呢?今天小编就教各位给Excel文件 ...
- PHP中text里数字相加,excel文字数字如何混合求和
excel文字数字混合求和的方法:首先打开软件,并输入要计算的文字数字叠加文本:然后在公示栏输入相关公式,同时按住键盘上的"CTRL+SHIFT+ENTER"即可计算. 本文操作环 ...
- php随机给文字拼音,给文字加上拼音_php
/** 拼音码表的生成: 启动输入法生成器在逆转换选项卡中装入window的拼音输入法并将其保存为文 本文件(winpy.txt)备用. http://www.gaodaima.com/45517.h ...
- UiBot RPA文字转拼音
1.获取命令-LGY-文字转拼音 2.搜索文字转拼音 用源代码视图观看是这样: bRet = chineseConversionPinyin.pinyin("UiBot RPA文字转拼音&q ...
- excel文字显示图标集_创建自己的Excel图标集
excel文字显示图标集 See how to create your own Excel icon set, to overcome a limitation with the built-in o ...
- Java 文字转拼音工具类
需要引入的pom <dependency><groupId>com.belerweb</groupId><artifactId>pinyin4j< ...
- EditText设置只允许输入文字、拼音、数字
给EditText添加上监听,根据自己的需求,在相应的监听上写上相应的功能 etSousuo.addTextChangedListener(new TextWatcher() {//EditText值 ...
- java实现汉字文字转换拼音(全拼和简拼)工具包
java实现汉字文字转换拼音(全拼和简拼)工具包 话不多说,直接上代码,调用即可 /** * 得到 全拼 * @param str * @return */public static String g ...
最新文章
- python3爬虫实例代码-Python3爬虫带上cookie的实例代码
- Linux hostname指令
- SSM实现个人博客-day02
- 何将ext中的FormPanel中,所有组件都居中放置?
- 2007白领职场成功需要哪“十商”
- 蚂蚁金服资深总监韩鸿源:企业级数据库平台的持续与创新
- 澳门大学物联网设计方法研究获“973”立项
- ProtecTIER网关演绎重复数据删除的硬道理
- 前端之JavaScript进阶
- dockerfile入门
- IAR报错:新手刚使用K60(非UD)时容易碰到的问题:芯片被锁,missing FlashK60XX.board
- WEB版的即时聊天工具
- 【数学基础】一份非常适合人工智能学习的线性代数基础材料中文版 (国内教材精华)...
- 基于ZFS+SAS的Tier2/backup存储系统解决方案
- 基于matlab特征脸Eigenface算法的实现
- Mac软件推荐:Soulver原来这么好用
- unity3d+虚拟城市:技术要点
- Toolbar中setNavigationIcon的返回图标太大,图标大小调整解决方法
- 你知道视频怎么去水印吗?试试这三个方法学会怎么去视频水印
- webpack-dev-server(devServer)
热门文章
- 各大互联网企业Java面试题汇总,看我如何成功拿到百度的offer
- Linux使用crond定时任务详解,定期同步服务器时间。
- 独家专访丨刘江川:从“边缘”到“中心”,边缘计算科学家的创业之路
- mysql 不等于 优化_Mysql优化
- linux统计文本每列的最大字符,Linux 文本处理,文本工具,查看,分析,统计文本文件,grep,正则表达式...
- Camera-roll,pitch,heading
- web前端总结---day01
- E - Eddy的难题
- 过年了,想窝在家里把这些黑客电影都看完(附剧情简介和评分)
- 单片机编程之8421码