Hsieh

¦^´_ 1# hong912
¤u§@ªí2ªºA¡BBÄæ³]¸m¦nÅçÃÒ
¤u§@ªí2¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim k%, d As Object, Rng As Range, A As Range
   
3. If Target.Column > 2 Or Target.Count > 1 Or Target(1) = "" Then Exit Sub
   
4. Application.EnableEvents = False
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. On Error Resume Next
   
7. Set Rng = Evaluate(Target.Validation.Formula1)
   
8. If Err.Number <> 0 Then GoTo 10
   
9. k = IIf(Target.Column = 2, -1, 1)
   
10. For Each A In Rng
    
11. d(A.Value) = A.Offset(, k).Value
    
12. Next
    
13. Target.Offset(, k) = d(Target.Value)
    
14. 10
    
15. Application.EnableEvents = True
    
16. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# hong912
§AªºÅçÃÒ²M³æ¼Æ¶q«Ü¤j¶Ü?
©Î¬O¦³¨ä¥L¤½¦¡«Ü¦h³y¦¨­«ºâ®É¶¡¹Lªø©O?
¤W¶Ç§AªºÀɮ׬ݬÝ