lpk187

¦^´_ 1# vinejason


    ¶â¡I§Ú¤£¬O«ÜÀ´¨ç¼Æ¡A©Ò¥H¥u¯à¦^µª³¡¥÷
¥­±`­Y¹J¨ì³o°ÝÃD¡A§Ú¤j¦h¼Æ¬O¥H¤u§@ªí¨Æ¥ó¥h°µ¡A¥H¤Uµ¹§A°Ñ¦Ò¡A¤£¹L§Ú¥u°µ¨ìVLOOKUP³¡¥÷
¥t2­Ó¡A¨þ¨þ¡I ¤£À´¡C¥H¤Uµ¹§A°Ñ¦Ò

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Rng As Range, c As Range
   
3.     For Each Rng In Target
   
4.         If Rng.Column = 1 Then
   
5.             If Rng <> "" Then
   
6.                 With Sheets("¸ê®Æ")
   
7.                     Set c = .Columns(1).Find(Rng.Value, LookIn:=xlValues, LookAt:=xlWhole)
   
8.                     If Not c Is Nothing Then
   
9.                         Application.EnableEvents = False
   
10.                         Rng.Offset(, 1) = c.Offset(, 1) 'BÄæ
    
11.                         Rng.Offset(, 2) = c.Offset(, 2) 'cÄæ
    
12.                         Application.EnableEvents = True
    
13.                     End If
    
14.                 End With
    
15.             Else
    
16.                 Rng.Offset(, 1) = "" 'BÄæ
    
17.                 Rng.Offset(, 2) = "" 'cÄæ
    
18.             End If
    
19.         End If
    
20.     Next
    
21. End Sub

½Æ»s¥N½X