写了一个简单的代码, 不是很精简, 将就用吧

我试验过的.




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