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

[µo°Ý] ®Ú¾Ú¤é´Á½d³ò«á¦A¨Ì¤£¦P­I´ºÃC¦â­pºâÁ`­Ó¼Æ©MÁ`©M?

[µo°Ý] ®Ú¾Ú¤é´Á½d³ò«á¦A¨Ì¤£¦P­I´ºÃC¦â­pºâÁ`­Ó¼Æ©MÁ`©M?

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨

ÁÂÁ¤F

metrostar310.rar (2.14 KB)

¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 1# metrostar
ÃC¦â ¤£¥i¬O³]©w®æ¦¡¤Æ±ø¥ó¤UªºÃC¦â
  1. Sub Ex()
  2.     Dim d As Object, C1, C2, e As Range, Ar()
  3.     Set d = CreateObject("scripting.dictionary")
  4.     With ActiveSheet
  5.         C1 = .Range("E8").Interior.ColorIndex
  6.         C2 = .Range("G8").Interior.ColorIndex
  7.         d(C1) = Array(0, 0)
  8.         d(C2) = Array(0, 0)
  9.         For Each e In .Range("B2", .[B2].End(xlDown))
  10.             If e(1, 0) >= .[E5] And e(1, 0) <= .[G5] Then
  11.                 If d.exists(e.Interior.ColorIndex) Then
  12.                     Ar = d(e.Interior.ColorIndex)
  13.                     Ar(0) = Ar(0) + 1
  14.                     Ar(1) = Ar(1) + e
  15.                     d(e.Interior.ColorIndex) = Ar
  16.                 End If
  17.             End If
  18.         Next
  19.         .Range("E9") = d(C1)(0)
  20.         .Range("E10") = d(C1)(1)
  21.         .Range("G9") = d(C2)(0)
  22.         .Range("G10") = d(C2)(1)
  23.     End With
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_  metrostar
ÃC¦â ¤£¥i¬O³]©w®æ¦¡¤Æ±ø¥ó¤UªºÃC¦â
GBKEE µoªí©ó 2010-10-8 16:46


¾Ç©f¤Ó·P°Ê¤F
¯S§O·PÁ GBKEE «Ó­ôª©¥D
§¹¥þ¥i¥H¹F¨ì­C
±z¯u¬O¤Ó±j¤Ó±j¤F
·PÁ±z¨Ã¯¬¶P±z
©¯ºÖ¦n¹B¥Ã»·­°Á{±z¨­¤W

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD