如何将姓名转换成拼音

如何将姓名转换成拼音

问题一：电子表格中如何把中文姓名转换成汉语拼音 没有很好的办法直接转换。网上看到了一个办法，户以间接实现转换。点击图片，在大图下可以看到动画的效果。问题二：怎样把名字转化为拼音 Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
hzpysum = Len(Trim(hzstring))
pystring =
For hzi = 1 To hzpysum
hzpyhex = &H + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + A
Case &HB0C5 To &HB2C0: pystring = pystring + B
Case &HB2C1 To &HB4ED: pystring = pystring + C
Case &HB4EE To &HB6E9: pystring = pystring + D
Case &HB6EA To &HB7A1: pystring = pystring + E
Case &HB7A2 To &HB8C0: pystring = pystring + F
Case &HB8C1 To &HB9FD: pystring = pystring + G
Case &HB9FE To &HBBF6: pystring = pystring + H
Case &HBBF7 To &HBFA5: pystring = pystring + J
Case &HBFA6 To &HC0AB: pystring = pystring + K
Case &HC0AC To &HC2E7: pystring = pystring + L
Case &HC2E8 To &HC4C2: pystring = pystring + M
Case &HC4C3 To &HC5B5: pystring = pystring + N
Case &HC5B6 To &HC5BD: pystring = pystring + O
Case &HC5BE To &HC6D9: pystring = pystring + P
Case &HC6DA To &HC8BA: pystring = pystring + Q
Case &HC8BB To &HC8F5: pystring = pystring + R......余下全文>>问题三：请教各位大虾如何将一列中文姓名转化成另一列拼音形式 先复制到word上，然后选中——格式——中文板式——拼音指南——确定；
然后再贴到excel上。我引用别人的，你可以搜索到源文档问题四：Excel 中怎么把姓名转换成汉语拼音 jingyan.baidu.com/...6.html
这个链接可以解决您的问题。问题五：excel 把名字转成拼音的办法有吗。 有办法的。
=pinyin(M18)；问题六：excel中姓名自动转化成拼音，但是如何让姓和名分别显示出来呢？ 80分如果只有单姓，在D1输入公式
=LEFt(A1,1)
如果全是复姓，改公式
=LEFt(A1,2)
如果既有单姓，又有复姓，公式略复杂一点，需要借助条件来判断是否为复姓。问题七：EXCEL中怎样把姓名转换为拼音缩写 ALt+F11，打开VBE界面，左上角空白处，点击右键，插入模块
在模块的空白处，粘贴如下代码：Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = ACase -20283 To -19776: pinyin = BCase -19775 To -19219: pinyin = CCase -19218 To -18711: pinyin = DCase -18710 To -18527: pinyin = ECase -18526 To -18240: pinyin = FCase -18239 To -17923: pinyin = GCase -17922 To -17418: pinyin = HCase -17417 To -16475: pinyin = JCase -16474 To -16213: pinyin = KCase -16212 To -15641: pinyin = LCase -15640 To -15166: pinyin = MCase -15165 To -14923: pinyin = NCase -14922 To -14915: pinyin = OCase -14914 To -14631: pinyin = PCase -14630 To -14150: pinyin = QCase -14149 To -14091: pinyin = RCase -14090 To -13319: pinyin = SCase -13318 To -12839: pinyin = TCase -12838 To -12557: pinyin = WCase -12556 To -11848: pinyin = XCase -11847 To -11056: pinyin = YCase -11055 To -2050: pinyin = ZCase Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function
关闭VBE界面，返回Excel，就可以像正常函数一样使用自定义的Getpy函数，来取得文本的拼音缩写了问题八：如何在word中姓名转成成拼音 这个只能一个一个来，word有拼音功能，但是在word界面的没法单独选中，只能在对话框中一个一个选，很麻烦问题九：excel中怎么将姓名全部转换为拼音字母 打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为模块1，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319...问题十：excel里中文名如何转换成拼音 先把EXCEL里面要转换的全部导出来记事本上,再把此记事本上的文字用转拼音,再复制粘贴到EXCEL
参考资料：www.aies.cn/pinyin胆htm