li_hsien

¦^´_ 1# j2888237

¸Õ¬Ý¬Ý

¨C¤ë³øªí.zip (13.79 KB)

¤U¸ü¦¸¼Æ: 9

2014-3-20 16:01

li_hsien

¦^´_ 5# j2888237

§Ú¬O¤À§O©ñ¨â­Ó¼Ò²Õ¸Ì­±

¤£ª¾³o¼ËO¤£OK

1. Option Explicit
   
2. 
   
3. Sub test()
   
4. 
   
5.     Application.OnKey "{ENTER}", "car_info"
   
6. 
   
7. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. 
   
3. Sub car_info()
   
4. 
   
5.     If Selection.Value <> "" Then
   
6.         
   
7.         If IsError(Application.VLookup(Selection.Value, Worksheets("¨®¤l¸ê®Æ").Range("A:C"), 3, 0)) = False Then
   
8.             Selection.Value = Application.VLookup(Selection.Value, Worksheets("¨®¤l¸ê®Æ").Range("A:C"), 3, 0)
   
9.         Else
   
10.             Selection.Value = "µL¦¹¥N½X"
    
11.         End If
    
12.     End If
    
13.    
    
14. End Sub

½Æ»s¥N½X

°Ñ¦Ò¬Ý¬Ý