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

¨â¬q±ø¥ó¦¡Á`©M¿z¿ï(¤p¤k¤l¸÷¨Dµ{¦¡!!)

¨â¬q±ø¥ó¦¡Á`©M¿z¿ï(¤p¤k¤l¸÷¨Dµ{¦¡!!)

¦U¦ì¤j®v¤p¤k¤l¦³¤@¹êÅçªí®æ¦pªþ¥ó item.rar (7.07 KB)

A¤u§@ªí·Q­n¿z¿ïªº±ø¥ó¬°¥H¤U

±ø¥ó1:bÄæ(¦WºÙ:«Y¼ÆA)¥Ñ¤p¨ì¤j±Æ§Ç(»¼¼W±Æ§Ç)

±ø¥ó2:jÄæ(¦WºÙ:Ãľ¯¶q)¥Ñ¤W¦Ó¤U²Ö¥[¤p©ó20

¨ú±o¬Û¹ïÀ³ªº½s¸¹(kÄæ)½Æ»s¶K¦bB¤u§@ªíaÄæ¤W

¥H¦¹Ãþ±À«Y¼ÆB¨ì«Y¼ÆT,¦@­n¨ú±o8Äæ½s¸¹¶K¦bB¤u§@ªí¤W

ªþ¥óB¤u§@ªí¤p¤k¤l¤w¸g¥H¤H¤u§PÂ_°µ¦n¤j®a¥i°Ñ¦Ò

¦]«Y¼Æ¤ÎÃľ¯¶q¨C¦¸¹êÅç¼Æ¾Ú¤£¦P,¤H¤u§PÂ_°¸¦³»~®t

¬G½Ð¦U¦ì¤j®vÀ°¦£,«ô°U,ÁÂÁÂ!!
an

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-21 23:22 ½s¿è

¦^´_ 1# an13755


    §A¥Ø«eBªíªº¼Æ¾Ú¬O§¹¾ãªº¶Ü?
¨Ì§Úªº²z¸Ñ§A¥ý¬Ý¬Ý
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. With Sheet36
  5.   For k = 2 To 9
  6.      For r = 2 To .Cells(65536, k).End(xlUp).Row
  7.         d(.Cells(r, k).Value) = d(.Cells(r, k).Value) + .Cells(r, 10)
  8.         If d(.Cells(r, k).Value) < 20 Then d1(.Cells(r, k).Value) = .Cells(r, "K")
  9.      Next
  10.      ar = d.keys
  11.      ReDim ay(d1.Count)
  12.      For i = 1 To d1.Count
  13.        n = Application.Small(ar, i)
  14.        ay(i - 1) = d1(n)
  15.      Next
  16. With Sheet1
  17. .Columns(k + 8) = ""
  18. .Cells(1, k + 8).Resize(d1.Count, 1) = Application.Transpose(ay)
  19. End With
  20.   d.RemoveAll
  21.   d1.RemoveAll
  22.   Next
  23. End With
  24. End Sub
½Æ»s¥N½X
°õ¦æ«áµª®×¦bJ:QÄæ§A¤ñ¸û¬Ý¬Ý®t²§¦b­þ?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Úªºµ{¦¡°õ¦æµ²ªG¸ò¤@¼Óªº¤ñ¸û±µªñ,°ß¤@ªº®t§O¦b B14 »P B15 ¨â­Ó¼Æ¦r¬Û¹ï½Õ.

Sub Macro1()
  Dim Counter As Integer, i As Integer, num As Integer
'
  For Counter = 2 To 9
    Worksheets("a").Cells(1, Counter).Sort _
    Key1:=Worksheets("a").Cells(, Counter), _
    Header:=xlGuess

    i = 2
    num = Worksheets("a").Cells(2, 10)

    While num < 20
      Worksheets("b").Cells(i - 1, Counter - 1) = Worksheets("a").Cells(i, 11)
      i = i + 1
      num = num + Worksheets("a").Cells(i, 10)
    Wend
  Next Counter
End Sub

¼Ó¥D¥i¥H°Ñ¦Ò¬Ý¬Ý...

TOP

¦hÁ¨â¦ì¤j®vªºÀ°¦£

l¤jªºµ{¦¡§¹¥þ¸Ñ¨M¤p¤k¤lªº°ÝÃD

Åý§Ú¤S¾Ç嘞¤@¨ÇªF¦èÁÂÁÂ!!

h¤jªºµ{¦¡¶]¨ì06¦æ¥X²{¿ù»~

¬O¦]¬°¥Î2003ªºÃö«Y¶Ü?anyway¦A¦¸·PÁÂ!!
an

TOP

¦^´_ 4# an13755


    06¦æ·|¥X¿ù?¤£·|§a
­ì¨Ó¬O­n³o¼Ëªºµ²ªG,§Ú·|¿ù·N¤F
  1. Sub nn()
  2. Dim Ar()
  3. Application.ScreenUpdating = False
  4. With Sheet36
  5.   For k = 2 To 9
  6.    s = 0: r = 2
  7.   .Cells(1, k).CurrentRegion.Sort key1:=.Cells(1, k), Header:=xlYes
  8.   cnt = .Cells(r, "J")
  9. While cnt < 20
  10.   ReDim Preserve Ar(s)
  11.   Ar(s) = .Cells(r, "K")
  12.   s = s + 1: r = r + 1
  13.   cnt = cnt + .Cells(r, "J")
  14. Wend
  15. With Sheet1
  16. .Columns(k + 8) = ""
  17. .Cells(1, k + 8).Resize(s, 1) = Application.Transpose(Ar)
  18. End With
  19. Erase Ar
  20.   Next
  21. .[A1].CurrentRegion.Sort key1:=.[A1], Header:=xlYes
  22. End With
  23. Application.ScreenUpdating = True
  24. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD