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

½Ð¨ó§U¥[¤J·s¤¸¯À

½Ð¨ó§U¥[¤J·s¤¸¯À

¤j¤j­Ì, ¦n
¤p©f¦³¤@µ{¦¡»Ý­n¥[¤J·sªº¤¸¯À, ¦ý§Úªº¥\¤O¤Ó²L, ¨Sªk¦¨¥\, ½Ð¤j¤j­Ì¨ó§U¨M, ªþ¥ó¤¤¦³»¡©ú, ÁÂÁÂ!!
r.rar (28.29 KB)

¦^´_ 1# 317
  1. Sub CopyData()
  2. Dim ¦C As Integer
  3. Dim ³fª«½s¸¹ As String
  4. Dim ³fª«¦WºÙ As String
  5. Dim Ãþ«¬ As String
  6. Dim ¼Æ¶q As Integer
  7. Set d = CreateObject("Scripting.Dictionary")
  8. ¦C = ActiveCell.Row
  9. ¿ï¾Ü¥Î³~ = Cells(¦C, 2)
  10. ³fª«½s¸¹ = Cells(¦C, 3)
  11. ³fª«¦WºÙ = Cells(¦C, 4)
  12. Ãþ«¬ = Cells(¦C, 5)
  13. ¼Æ¶q = Cells(¦C, 8)

  14. With Workbooks("b.xls").Sheets("sheet1")
  15. For Each a In .[AB3:AB6]
  16. d(a.Value) = a.Interior.ColorIndex
  17. Next
  18. .[A65536].End(xlUp).Offset(1, 0).Resize(, 5).Interior.ColorIndex = d(¿ï¾Ü¥Î³~)
  19. .[A65536].End(xlUp).Offset(1, 0).Resize(, 5).Value = Array(¿ï¾Ü¥Î³~, ³fª«½s¸¹, ³fª«¦WºÙ, Ãþ«¬, ¼Æ¶q)
  20. End With
  21. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

ÁÂÁª©¥D¤j¤j¦^À³,
¦³¤@¨Ç¤p°ÝÃD, °²­Y·í¸ê®Æ±qaÀɮ׶ñ¤JbÀÉ, ¥i§_§ï¦¨«öºØÃþ¦Û¦æ´¡¤J¸ÓÃþ§O,  ¦p²Ä¤@µ§¿é¤J¸ê®Æ¥ÍªG,²Ä¤Gµ§¬õ°s,²Ä¤Tµ§¿é¤J®É¬O¥ÍªG, ¦Ó¸Óµ§·s¿é¤J¸ê®Æ¦Û¦æ¤ÀÃþ´¡¤J²Ä¤@µ§¥ÍªG¤U,
·í¸ê®Æ¿é¤J§¹¦¨«á, ¦Ó­¶­±Åã¥Ü¬ObÀÉ, ¦]¥Î®a¥i²M¦â¦a±qbÀÉ­¶­±ª¾¹D¿é¤J«á¸ê®Æ¦³§_¿ù»~,
¦A«×·Ð³Ò, °ß¦³°J¤ßÁÂÁÂÁÂ!!

    `

TOP

¦^´_ 3# 317

¥Î±Æ§Ç¥i¥H¶Ü?
  1. Sub CopyData()
  2. Dim ¦C As Integer
  3. Dim ³fª«½s¸¹ As String
  4. Dim ³fª«¦WºÙ As String
  5. Dim Ãþ«¬ As String
  6. Dim ¼Æ¶q As Integer
  7. Set d = CreateObject("Scripting.Dictionary")
  8. ¦C = ActiveCell.Row
  9. ¿ï¾Ü¥Î³~ = Cells(¦C, 2)
  10. ³fª«½s¸¹ = Cells(¦C, 3)
  11. ³fª«¦WºÙ = Cells(¦C, 4)
  12. Ãþ«¬ = Cells(¦C, 5)
  13. ¼Æ¶q = Cells(¦C, 8)
  14. Windows("b.xls").Activate
  15. With Workbooks("b.xls").Sheets("sheet1")
  16. .Select
  17. For Each a In .[AB3:AB6]
  18. d(a.Value) = a.Interior.ColorIndex
  19. Next
  20. Set a = .[A65536].End(xlUp).Offset(1, 0).Resize(, 5)
  21. a.Interior.ColorIndex = d(¿ï¾Ü¥Î³~)
  22. a.Value = Array(¿ï¾Ü¥Î³~, ³fª«½s¸¹, ³fª«¦WºÙ, Ãþ«¬, ¼Æ¶q)
  23. a.Select
  24. .Range(.[A2:E2], .[A2:E2].End(xlDown)).Sort key1:=.[A2], Header:=xlYes
  25. End With
  26. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Áª©¥D¤j¤j, ¦­±á
¦]«æ©ó¶}¤u, ¬G¥¼¸Õ¥Îª©¤jµ{¦¡, ¦ý¥ý¦æÁ¹L, «Ý¤µ±ß¦¬¤u¤~¦³¨p¤H®É¶¡¾Ç²ß, ³Ì«á¯¬§Ö¼Ö..

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD