ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: jaxxjf

[求助] 将中文姓名直接转为中文拼音.

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2011-10-11 21:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
没想到EXCEL功能如此强大,4楼的方法整理的不错!

TA的精华主题

TA的得分主题

发表于 2011-11-7 15:36 | 显示全部楼层
祝洪忠 发表于 2011-10-8 10:50
两个都是论坛里老师的作品

谢谢,很好啊!

TA的精华主题

TA的得分主题

发表于 2012-10-11 16:13 | 显示全部楼层
祝洪忠 发表于 2011-10-8 10:50
两个都是论坛里老师的作品

如果不需要升降调呢?

TA的精华主题

TA的得分主题

发表于 2014-8-12 10:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-12-5 15:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-1-23 16:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 VBA万岁 于 2015-1-23 18:19 编辑
祝洪忠 发表于 2011-10-8 10:50
两个都是论坛里老师的作品

Mrk:
输入汉字返回拼音.zip (166.44 KB, 下载次数: 1030)

TA的精华主题

TA的得分主题

发表于 2015-1-25 13:12 | 显示全部楼层
祝洪忠 发表于 2011-10-8 10:50
两个都是论坛里老师的作品

感谢,刚好派上用场了!
用上汉字返回拼音的ZIP代码后,稍作修改,姓名返回大写字母。A2单元格为中文姓名,B2公式如下
=IF(ISERR(UPPER(LEFT(pinyin(A2," ",2),FIND(" ",pinyin(A2," ",2),1))&SUBSTITUTE(RIGHT(pinyin(A2," ",2),LEN(pinyin(A2," ",2))-FIND(" ",pinyin(A2," ",2),1))," ",""))),"",UPPER(LEFT(pinyin(A2," ",2),FIND(" ",pinyin(A2," ",2),1))&SUBSTITUTE(RIGHT(pinyin(A2," ",2),LEN(pinyin(A2," ",2))-FIND(" ",pinyin(A2," ",2),1))," ","")))

TA的精华主题

TA的得分主题

发表于 2015-1-26 15:30 | 显示全部楼层
本帖最后由 VBA万岁 于 2015-1-27 16:19 编辑
VBA万岁 发表于 2015-1-23 16:49
Mrk:


Sub test()
On Error Resume Next
Dim html, arr, r, c%, i%, j%
Set html = CreateObject("htmlfile")
ActiveSheet.UsedRange.Clear: Range("a1") = " "
With CreateObject("Microsoft.XMLHTTP")
    .Open "get", "......", False
    .send
    arr = Split(.responseText, "......")
    For i = 2 To UBound(arr)
        c = Val(Split(arr(i), Chr(34) & ">")(0))
        Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) = Split(Split(arr(i), ">")(1), "<")(0)
        
        .Open "get", "......" & c, False
        .send
        html.body.innerhtml = .responseText
        Set r = html.all.tags("table")(57).Rows
        For j = 1 To r.Length - 1
            Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) = Split(r(j).Cells(1).innerText, " ")(0)
            Cells(ActiveSheet.UsedRange.Rows.Count, 2) = pinyin(Split(r(j).Cells(1).innerText, " ")(0), "", 2)
        Next
    Next
End With
Range("a2:b1000").Copy Range("a1:b1")
End Sub

Sub test2()
Dim vcode, myObj As Shape
Dim nUrl As String, localFilename As String, lngRetVal As Long, code$
For Each myObj In ActiveSheet.Shapes
    If myObj.Name Like "Rectangle*" Then myObj.Delete
Next
nUrl = "......"
Set vcode = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 410, 1, 80, 28)
vcode.Select
Selection.ShapeRange.Fill.UserPicture nUrl
Application.Wait (Now + TimeValue("0:00:01"))
   
code = InputBox("请输入验证码!", "验证码:")
With CreateObject("MSXML2.XMLHTTP")
    .Open "POST", "......", False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "Role=7&Account=" & Range("c2").Value & "&Password=......&CheckCode=" & code
    URL = Split(Split(.responseText, "CDATA[")(1), "]]")(0)
End With
   
On Error Resume Next
Dim i As Long, j%, r
i = ActiveSheet.UsedRange.Rows.Count
With CreateObject("internetexplorer.application")
    .Visible = True
    .Navigate URL
    Do Until .ReadyState = 4
        DoEvents
    Loop
   
    .Navigate "......"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    Set r = .document.all.tags("table")(0).Rows
    If Cells(i, 1) = r(0).Cells(1).innerText Then .Navigate URL: Exit Sub
    For j = 0 To r.Length - 1
        Cells(i + 1, j * 2 + 1) = "'" & r(j).Cells(1).innerText
        Cells(i + 1, j * 2 + 2) = "'" & r(j).Cells(3).innerText
    Next
    .Navigate URL
    .Quit
End With
Cells.WrapText = False
End Sub

TA的精华主题

TA的得分主题

发表于 2015-10-21 10:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
祝洪忠 发表于 2011-10-8 10:50
两个都是论坛里老师的作品

这个拼音,对有些字在名字中的变音无法识别,比如说“曾”,在汉字中有念ceng,但在名字中念“zeng”,这个有办法解决吗?

TA的精华主题

TA的得分主题

发表于 2015-12-14 13:24 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 09:26 , Processed in 0.052995 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表