绿色软件,81下载应有尽有
首页 教程攻略 软件教程 EXCEL技巧——导出汉字姓名首字母

EXCEL技巧——导出汉字姓名首字母

时间:2022-04-26 16:14:41 编辑:小鱼 浏览:330

有好多网友想知道这个该款游戏的软件相关教程,既然如此81下载软件教程分类小编给众人奉上EXCEL技巧——导出汉字姓名首字母内容,希望能够帮助到大家,一起来看一下吧!

  1. 我们经常在表中使用姓名,那么如何将姓名转换为拼音的首字母呢? 在这里,我们将学习以下方法。
    工具/原料

    EXCEL软件

    方法/步骤

    导入一张含有姓名的表格,把姓名放到A列中,在B列中将要导出拼音。

    现在我们按住Alt+F11,打开VB编辑窗口,单击插入——模块,弹出代码编辑框。

    在代码编辑框中输入:

    Option Explicit

    Function PY(TT As Stng) As Vaant

    Dim i%, temp$

    PY = ""

    For i = 1 To Len(TT)

    temp = Asc(Mid$(TT, i, 1))

    If temp > 255 Or temp < 0 Then

    PY = PY & pinyin(Mid$(TT, i, 1))

    Else

    PY = PY & LCase(Mid$(TT, i, 1))

    End If

    Next i

    End Function

    Function pinyin(myStr As Stng) As Vaant

    On Err Resume Next

    myStr = StrConv(myStr, vbNarw)

    If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""

    pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"搭","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"座","Z"}], 2)

    End Function

    关闭VB窗口。

    现在转到工作表中,我们在B2中输入=PY(A2),回车我们就看到姓名的拼音首字母显示出来了。

    我们用填充手柄把B列中的单元格全部填满,这时候我们要的效果就出现了。

以上的内容确是关于《EXCEL技巧——导出汉字姓名首字母》软件资讯全部了,希望能够帮到正在需要该款软件教程网友!更多丰富该款游戏软件内容教程,多多支持81下载!

万能u盘修复工具绿色版v1.00下载

万能u盘修复工具绿色版 v1.00

  • 类别:系统软件
  • 大小:218KB
  • 时间:2022-04-21
  • 评分:4分
  • 平台:WinAll
  • 下载:5480次

相关文章

猜你喜欢