如何应用Excel函数把汉字换成拼音首字母 您所在的位置:网站首页 excel如何汉字转拼音 如何应用Excel函数把汉字换成拼音首字母

如何应用Excel函数把汉字换成拼音首字母

#如何应用Excel函数把汉字换成拼音首字母| 来源: 网络整理| 查看: 265

  根据GB2312-1980 信息交换用汉字编码字符集 汉字分为一级汉字(3755个)和二级汉字(3008)个,一级汉字使用拼音排序,二级汉字使用笔画排序。因此对于一级汉字比较好办,找到每个拼音开始和结束的汉字内码即可。

  对于二级汉字还没有好的办法,不过一级汉字3755个基本上已经够用了。目前网上的方法都是针对一级汉字的。

  以下使用VBA制作一个自定义函数:getpy在表格中直接使用这个函数即可。

Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp = 45253 And tmp = 45761 And tmp = 46318 And tmp = 46826 And tmp = 47010 And tmp = 47297 And tmp = 47614 And tmp = 48119 And tmp = 49062 And tmp = 49324 And tmp = 49896 And tmp = 50371 And tmp = 50614 And tmp = 50622 And tmp = 50906 And tmp = 51387 And tmp = 51446 And tmp = 52218 And tmp = 52698 And tmp = 52980 And tmp = 53689 And tmp = 54481 And tmp 


【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有