Board logo

¼ÐÃD: ½Ð°Ý­n«ç»ò¨Ï¥Î±q¥t¤@ÀÉ®×¹ïÀ³Äæ¦ìºâ¥Xª÷ÃBÁ`©M¤ÎÀx¦s®æÁ`¼Æ?? [¥´¦L¥»­¶]

§@ªÌ: lulumi7434    ®É¶¡: 2011-8-28 21:10     ¼ÐÃD: ½Ð°Ý­n«ç»ò¨Ï¥Î±q¥t¤@ÀÉ®×¹ïÀ³Äæ¦ìºâ¥Xª÷ÃBÁ`©M¤ÎÀx¦s®æÁ`¼Æ??

½Ð°Ý­n«ç»ò¨Ï¥Î±q¥t¤@ÀÉ®×¹ïÀ³Äæ¦ìºâ¥Xª÷ÃBÁ`©M¤ÎÀx¦s®æÁ`¼Æ??

¤ñ¦p»¡¡AupdateÀɮתºBÄæ­È­n¥h¹ïÀ³123ÀɮתºIÄæ­Èºâ¥XÀx¦s®æÁ`¼Æ¨Ã¶ñ¤JupdateÀɮתºÀx¦s®æ¡A¦A¥Ñ123ÀÉ®×IÄæ¹ïÀ³¨ì123ÀɮתºJÄæ(ª÷ÃB)¨Ãºâ¥X¬Û¦P­Èªºª÷ÃBÁ`©M¡A±a¦^updateÀÉ®×Àx¦s®æ¤º¡H¡H

¸Ô²Ó¦AªþÀɸ̭±¡A·PÁÂ!!
[attach]7635[/attach]
§@ªÌ: Hsieh    ®É¶¡: 2011-8-28 21:30

¦^´_ 1# lulumi7434

¥Î¼Ï¯Ã¤ÀªRªí§a
[attach]7638[/attach]
§@ªÌ: lulumi7434    ®É¶¡: 2011-8-28 21:54

¤£¦n·N«ä!!

¥i¥H¥Î¥¨¶°ªº¤è¦¡¶Ü?!
§@ªÌ: Hsieh    ®É¶¡: 2011-8-28 23:06

  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(A.Offset(, 1).Value, 1)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + A.Offset(, 1).Value
  13.          ar(1) = ar(1) + 1
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With ¤u§@ªí1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
½Æ»s¥N½X
¦^´_ 3# lulumi7434
§@ªÌ: lulumi7434    ®É¶¡: 2011-8-29 21:58

«Ü·PÁ¤j¤jªº¦^µª!!

¥i¬O¸I¤@­Ó°ÝÃD¡AÁ`¼Æ©Mª÷ÃBÁ`©M§ì¨úªº¼Æ¦rµ²ªGÄA­Ë¤F?!
§@ªÌ: Hsieh    ®É¶¡: 2011-8-29 22:21

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-8-29 23:19 ½s¿è

¦^´_ 5# lulumi7434

¥h¤F¸Ñµ{¦¡½X¡A´Nª¾¹D«ç»ò­×§ï¤F
¬Ý¬Ý­þÃ䤣¤@¼Ë
  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(1, A.Offset(, 1).Value)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + 1
  13.          ar(1) = ar(1) + A.Offset(, 1).Value
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With ¤u§@ªí1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
½Æ»s¥N½X

§@ªÌ: lulumi7434    ®É¶¡: 2011-8-29 23:23

·PÁ¤j­ô!!§Úª¾¹D¨ºùتº°ÝÃD¤F!!

·P¿E¤£ºÉ!! ^^




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)