Excel2016通过宏生成拼音码

一：视图---->宏---->录制宏

二：试图---->宏---->查看宏

三：点击编辑，输入如下代码片段，点击保存，并选择是

Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T"Case -12838 To -12557: pinyin = "W"Case -12556 To -11848: pinyin = "X"Case -11847 To -11056: pinyin = "Y"Case -11055 To -2050: pinyin = "Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function

四：回到excel，鼠标定位到“拼音码”列第一行（C2单元格）。在函数框中输入=getpy(B2)，（调用自定义函数，获取B2单元格中汉字内容首字母）回车，可以看到获取到B2单元格中内容的首字母

五：鼠标定位到单元格C2右下角，光标变成黑色十字，按住鼠标左键一直往下拉。获取全部内容的拼音码。

转载于:https://www.cnblogs.com/xiaopotian/p/8079127.html

Excel2016通过宏生成拼音码相关推荐

C# 根据传入的字符串生成拼音码，包含全码和简码
#region 生成拼音码:GetFirstPYLetter(str),生成拼音全码:GetAllPYLetters(str)public static class SpellCodeHelper{p ...
#【精华】 PB根据一串字符串生成拼音码
#[精华] PB根据一串字符串生成拼音码 //==================================================================== // Event ...
oracle数据库生成拼音码,Oracle中生成汉字拼音码的函数（转载）
效果: select fgetpy('中国') FROM dual; 结果 zg CREATE OR REPLACE FUNCTION fgetpy (v_str VARCHAR2) RETURN ...
oracle自动生成拼音码,oracle 产生拼音码的函数
create or replace function pro_f_getspell(vstr varchar2, --提交的字符串 vlen number) --返回字符串的长度 return var ...
sql生成拼音码函数
sql函数生成拼音码方案 create function fun_getPY(@str nvarchar(4000)) returns nvarchar(4000) as begin declare ...
oracle 五笔码函数,如何根据单元格汉字自动生成拼音码和五笔码
1)打开电子表格软件: 2)执行工具--宏- VISUAL BASIC编辑器: 3)插入--模块: 4)在模块中输入相关代码: 5)关闭VB编辑器: 如此就OK了. 例如:在A1单元格中有姓名:郑兴民 ...
sqlserⅴer随机函数_Sql server自动生成拼音的函数
Sql server自动生成拼音的函数 CREATE function f_GetPying(@str varchar(100)) returns varchar(8000) as begin dec ...
根据汉字的首字母生产拼音码进行查询
公司里原先的代码,实在没看懂.... 主要是在Sql中实现 USE [Xpos_refer_database] GO /****** Object: UserDefinedFunction [dbo] ...
让我们习惯在底层用C++宏生成代码
春天最难堪的是没有收成的垦植:人生最难堪的是失踪往决意信念的寂寞我们知道操作C++泛型编程可以写出扩年夜性很是强的法式,操作C++的接***术也可以很等闲的扩年夜出已经存在的法式.只不外有一件工作它 ...

Excel2016通过宏生成拼音码

Excel2016通过宏生成拼音码相关推荐

最新文章

热门文章