同单元格内输入车号数字，显示完整车牌号

北落的太阳

    从网上搜到几个帖子，其中有一个VBA的符合，但是这个编码是在同一个表里的，如何把这个改成另一个表里，一个说明表（里边有车号的全称），在另一个工作表里输入数字，就可以显示完整的车牌？谢谢了

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub   '非C栏跳出程序
If Target.Count > 1 Then Exit Sub
If Target <> "" Then
    Set c = Range("a1:a" & [a65536].End(xlUp).Row).Find(Target, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then Target.Resize(, 2) = Array(c, c.Offset(, 1))
End If
End Sub

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub
   
3. If Target.Count > 1 Then Exit Sub
   
4. If Target <> "" Then
   
5.     Set c = Sheet1.[a:a].Find(Target, LookIn:=xlValues, lookat:=xlPart)
   
6.     If Not c Is Nothing Then
   
7.         Application.EnableEvents = False
   
8.         Target = c
   
9.         Application.EnableEvents = True
   
10.     Else
    
11.         MsgBox "没有此数据。"
    
12.     End If
    
13. End If
    
14. End Sub
    
15. 
    

复制代码

蓝桥玄霜

请见附件。

KCFONG

see if help you

北落的太阳

KCFONG 发表于 2015-6-7 09:56
see if help you

非常感谢，还想再麻烦您下，麻烦把工作表里的派车类型也帮忙做下编码吧，谢谢

北落的太阳

蓝桥玄霜 发表于 2015-6-7 09:51
请见附件。

谢谢，老师

北落的太阳

KCFONG 发表于 2015-6-7 09:56
see if help you

谢谢，老师

KCFONG

SEE IF FIT YOUR REQUEST

北落的太阳

KCFONG 发表于 2015-6-7 14:17
SEE IF FIT YOUR REQUEST

谢谢老师，非常感谢您

qwe8279160

我的跟你相同，但是还是不知道怎么解决，新手。
excel里面输入车牌号后几位数字就能把全部车牌号录入exel里面，不需要按下键。
如：输入  111  后自动填入表格蒙E111无需下键选择。如果输入123会有错误提示因无该车牌并禁止录入。

蒙E111、蒙E222、蒙E333、蒙E444。