ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤¬°Êªº¤U©Ô

¤¬°Êªº¤U©Ô

½Ð±Ð¤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..
hong912

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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§Ö¼Ö, ÁÂÁÂ!!
hong912

TOP

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

TOP

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD