¨â¬q±ø¥ó¦¡Á`©M¿z¿ï(¤p¤k¤l¸÷¨Dµ{¦¡!!)
- ©«¤l
- 20
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2010-7-16
- ³Ì«áµn¿ý
- 2022-5-27
|
¨â¬q±ø¥ó¦¡Á`©M¿z¿ï(¤p¤k¤l¸÷¨Dµ{¦¡!!)
¦U¦ì¤j®v¤p¤k¤l¦³¤@¹êÅçªí®æ¦pªþ¥ó
item.rar (7.07 KB)
A¤u§@ªí·Qn¿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
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 240
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-6
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-21 23:22 ½s¿è
¦^´_ 1# an13755
§A¥Ø«eBªíªº¼Æ¾Ú¬O§¹¾ãªº¶Ü?
¨Ì§Úªº²z¸Ñ§A¥ý¬Ý¬Ý- Sub nn()
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- With Sheet36
- For k = 2 To 9
- For r = 2 To .Cells(65536, k).End(xlUp).Row
- d(.Cells(r, k).Value) = d(.Cells(r, k).Value) + .Cells(r, 10)
- If d(.Cells(r, k).Value) < 20 Then d1(.Cells(r, k).Value) = .Cells(r, "K")
- Next
- ar = d.keys
- ReDim ay(d1.Count)
- For i = 1 To d1.Count
- n = Application.Small(ar, i)
- ay(i - 1) = d1(n)
- Next
- With Sheet1
- .Columns(k + 8) = ""
- .Cells(1, k + 8).Resize(d1.Count, 1) = Application.Transpose(ay)
- End With
- d.RemoveAll
- d1.RemoveAll
- Next
- End With
- End Sub
½Æ»s¥N½X °õ¦æ«áµª®×¦bJ:QÄæ§A¤ñ¸û¬Ý¬Ý®t²§¦bþ? |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
§Úªºµ{¦¡°õ¦æµ²ª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°Ñ¦Ò¬Ý¬Ý... |
|
|
|
|
|
|
- ©«¤l
- 20
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2010-7-16
- ³Ì«áµn¿ý
- 2022-5-27
|
¦hÁ¨â¦ì¤j®vªºÀ°¦£
l¤jªºµ{¦¡§¹¥þ¸Ñ¨M¤p¤k¤lªº°ÝÃD
Åý§Ú¤S¾Ç嘞¤@¨ÇªF¦èÁÂÁÂ!!
h¤jªºµ{¦¡¶]¨ì06¦æ¥X²{¿ù»~
¬O¦]¬°¥Î2003ªºÃö«Y¶Ü?anyway¦A¦¸·PÁÂ!! |
|
an
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 240
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 4# an13755
06¦æ·|¥X¿ù?¤£·|§a
ì¨Ó¬On³o¼Ëªºµ²ªG,§Ú·|¿ù·N¤F- Sub nn()
- Dim Ar()
- Application.ScreenUpdating = False
- With Sheet36
- For k = 2 To 9
- s = 0: r = 2
- .Cells(1, k).CurrentRegion.Sort key1:=.Cells(1, k), Header:=xlYes
- cnt = .Cells(r, "J")
- While cnt < 20
- ReDim Preserve Ar(s)
- Ar(s) = .Cells(r, "K")
- s = s + 1: r = r + 1
- cnt = cnt + .Cells(r, "J")
- Wend
- With Sheet1
- .Columns(k + 8) = ""
- .Cells(1, k + 8).Resize(s, 1) = Application.Transpose(Ar)
- End With
- Erase Ar
- Next
- .[A1].CurrentRegion.Sort key1:=.[A1], Header:=xlYes
- End With
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|