寫了一個簡單的代碼, 不是很精簡, 將就用吧

我試驗過的.




Option Explicit


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim i


If Target.Address = "$A$1" Then
Application.EnableEvents = False
For i = 3 To 200
If Cells(i, 1) = Target.Value Then
Cells(1, 2) = Cells(i, 2)
Application.EnableEvents = True
Exit Sub
End If
Next

For i = 3 To 200
If Cells(i, 3) = Target.Value Then
Cells(1, 2) = Cells(i, 4)
Application.EnableEvents = True
Exit Sub
End If
Next


For i = 3 To 200
If Cells(i, 5) = Target.Value Then
Cells(1, 2) = Cells(i, 6)
Application.EnableEvents = True
Exit Sub
End If
Next

Application.EnableEvents = True
Else
Exit Sub
End If



End Sub

所有跟帖： 

• 大禮收了，非常感謝！ -laohutuchong- ♂ (0 bytes) () 10/10/2006 postreply 12:42:31

• 兩個注意事項： -真源湛寂- ♂ (66 bytes) () 10/10/2006 postreply 12:45:39