有好多网友想知道这个该款游戏的软件相关教程,既然如此81下载软件教程分类小编给众人奉上EXCEL技巧——导出汉字姓名首字母内容,希望能够帮助到大家,一起来看一下吧!
- 我们经常在表中使用姓名,那么如何将姓名转换为拼音的首字母呢? 在这里,我们将学习以下方法。
工具/原料 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下载!