请教：是否有函数，可以将包含字母的文字的拼音首字母取出？

rongr8266 · 发表于 2006-12-22 09:19

请教：EXCEL中是否有函数，可以将文字的拼音首字母取出？

比如：原内容“微软技术社区”，用函数后返回内容“WRJSSQ”，请教各位大侠啦

[em10]

还有个小问题，如果文字中本来就包含字母呢，比如“WR技术社区123”，能否返回为“WRJSSQ123”，下面的公式好像就不可以了。

[em04]

[此贴子已经被作者于2006-12-22 10:24:44编辑过]

rongr8266 · 发表于 2006-12-22 09:22

在线等，各位帮帮忙啦

sahelo · 发表于 2006-12-22 09:36

函数很麻烦！

到程序版块去搜一下！

northwolves · 发表于 2006-12-22 09:42

模块添加自定义函数：

Function py(ByVal x As String) As String
On Error Resume Next
Dim i As Integer
For i = 1 To Len(x)
If Mid(x, i, 1) <> " " And Asc(Mid(x, i, 1)) < 0 Then py = py & Mid("ABCDEFGHJKLMNOPQRSTWXYZZ", Evaluate("MATCH(" & Asc(Mid(x, i, 1)) & ",{-20319,-20283,-19775,-19218,-18710,-18526,-18239,-17922,-17417,-16474,-16212,-15640,-15165,-14922,-14914,-14630,-14149,-14090,-13318,-12838,-12556,-11847,-11055,-10247},1)"), 1)
Next
End Function

[A1] 微软技术社区

[A2] =PY(A1)

cdyh2 · 发表于 2006-12-22 09:48

参考这个附件

ZU3AMkvq.rar (2.17 KB, 下载次数: 391)

fjsmcxr · 发表于 2006-12-22 09:59

参考这个附件点击浏览该文件

高手

rongr8266 · 发表于 2006-12-22 10:07

啊哈哈！高手太多呀！谢谢各位，虽然还没理解公式的意义，不过先拿来用啦！

太棒了，再次感谢！

rongr8266 · 发表于 2006-12-22 10:13

还有个小问题，如果文字中本来就有字母呢，比如“WR技术社区”，能否返回为“WRJSSQ”？好像上面的公式就不可以了

rongr8266 · 发表于 2006-12-22 10:14

还有个小问题，如果文字中本来就包含字母呢，比如“WR技术社区”，能否返回为“WRJSSQ”，上面的公式好像就不可以了。

cdyh2 · 发表于 2006-12-22 10:17

这是两个问题，肯定不行了

		自动登录	找回密码
密码			免费注册

[求助] 请教：是否有函数，可以将包含字母的文字的拼音首字母取出？