如何在规定列里输入拼音则替换成国家名（姓名）？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主
wcymiss

Q：A列是一些国家的中文名字，如何在B列某单元格输入A列国家中文名字的拼音首字母，入ZG，则该单元格立马被替换成“中国”？
A：vba代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, arr, brr, vl(1 To 23, 1 To 2), hzb$, zmb$, py$, d, ls$
Set d = CreateObject("scripting.dictionary")
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
hzb = "吖,八,嚓,咑,鵽,发,猤,铪,夻,咔,垃,嘸,旀,噢,妑,七,囕,仨,他,屲,夕,丫,帀"
zmb = "A,B,C,D,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,W,X,Y,Z"
For i = 1 To 23
vl(i, 1) = Split(hzb, ",")(i - 1)
vl(i, 2) = Split(zmb, ",")(i - 1)
Next
arr = Range([a1], Cells(Cells(Rows.Count, 1).End(3).Row, 1))
For i = 1 To UBound(arr)
py = ""
For j = 1 To Len(arr(i, 1))
On Error Resume Next
ls = Application.VLookup(Mid(arr(i, 1), j, 1), vl, 2)
If Err = 0 Then
py = py & ls
End If
Next
d(py) = arr(i, 1)
Next
Application.EnableEvents = False
Target.Value = d(UCase(Target.Value))
Application.EnableEvents = True
Set d = Nothing
End Sub

输入拼音则替换成国家名.rar

2楼
い卋玑┾宝珼

不错哦

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表