¤¬°Êªº¤U©Ô

hong912

½Ð±Ð¤j¤j­Ì, ¤@­Ó¤¬°Ê¤U©Ô°ÝÃD,
¤u§@ªí1¬O¸ê®Æ®w, aÄæ¦ì¬O½s¸¹, bÄæ¦ì¬O¦WºÙ, ¦Ó§Ú·Q¦b¤u§@ªí2aÄæ¤ÎbÄæ¦U³]¤@¤U©Ô,
·í§Ú¦baÄæ¿ï¾Ü½s¸¹bÄæ«h¶Ç¦^¤u§@ªí1bÄæ¦WºÙ¸ê®Æ, ¦Ó§Ú¦bbÄæ¤U©Ô¿ï¾Ü¦WºÙ, aÄæ¦P¼Ë¦a§â¤u§@ªí1aÄæ¸ê®Æ¶Ç¦^,
§Ú´¿¥Î¹L¦WºÙÅçÃÒ, ¦ý¤£¦¨¥\, ¬G½Ð±Ð¤j¤j­Ì, ¥ý¦æÁ¹L..

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

hong912

¦^´_ 2# Hsieh

Hsiehª©¤j, ÁÂÁ¦^À³, ¤w¸Õ¥Î¥¿¬O³oºØ®ÄªG,  ¦ý¹B¦æ¸ûºC, ¦p·í¿ï¾Ü¤F¸ê®Æ«á, ¥t¤@Äæ¦ì¶Ç¦^ªº³t«×­nµ¥, ¨Ó­Ó¤ñ¦p, ·í¿ï¾Ü¸ê®Æ«á, ¶}©l¤ß¼Æ1234¦Ü20¥ª¥k, ¥t¤@Äæ¦ì¸ê®Æ¤~¶Ç¦^­È, ¬O§_¦³¤èªk¥O³t«×ÅܧÖ..
¨ä¹êª©¤jªº¦^À³, ¤p§Ì¤w«Ü°J¤ß·PÁÂ, ¯¬Ä@¤j¤j§Ö¼Ö, ÁÂÁÂ!!

Hsieh

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

hong912

¦^´_ 4# Hsieh
Hsiehª©¤j, ¦n,  ­è¾ã²z¹L¸ê®Æ§¨, ªº½T¬OÀÉ®×¹L¤j,  ²{¹L°ÝÃD¤v¸Ñ¨M, ÁÂÁÂHsiehª©¤j¦A«×¦^À³, ¯¬Ä@§Ö¼Ö, ÁÂÁÂ!!

maiko

¦n¡A­è­è»Ý­n³o­ÓªF¦è¡A¥¿¦n¥i¥H¸Ñ¨M§Úªº»Ý­n¡C

tommy.lin

º¡´Îªº°µªk»¡