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

[µo°Ý] ±NÀx¦s®æªº¶À©³¤Wªº¼Æ¦r¥[Á`

[µo°Ý] ±NÀx¦s®æªº¶À©³¤Wªº¼Æ¦r¥[Á`



¦³µL¿ìªk               
1.±N¶À©³ªº¼Æ¦r¥þ³¡¥[Á`                               
2.¨ä¾lµL©³¦âªº¥þ³¡¥[Á`
~~~~~~~~~~~~~~~~~~~~~~~
3.¶À©³ªº¥X²{¹L´X¦¸                               
4.µL©³¦âªº¥X²{¹L´X¦¸


¤p§ÌªºÀÉ®×
COLAR-SUM.rar (8.22 KB)

·PÁ¦U¦ì°ª¤âªºÀ°¦£
ÁÂÁÂ
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

http://blog.xuite.net/hcm19522/twblog/205029860

TOP

½Ð¹Á¸Õ ¨Ï¥Î ©w¸q¦WºÙ

°²³] $AY¡A¬O§A­n§äªº°Ï¶ô¡A¿ï¾Ü  [´¡¤J]/[¦WºÙ]/[©w¸q]

¦]¬°§AªºÃC¦â ¬° ¶À¦â  ±µµÛ ¨ì°Ñ·Ó¿é¤J=get.cell(63,a1)«ö¤U ½T©w

¤§«á¡A ©ó Àx¦s®æ ¿é¤J =color(A?)  

¬Ý¶]¥X¨Ó­È¦h¤Ö O

¦A°t¦X countif((X1:X999,O))

TOP

¦^´_ 1# peter95
VBA µ{¦¡½X
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, E As Variant, i As Integer
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
  5.     With ActiveSheet.Range("A1:G53")
  6.         For Each E In .Cells
  7.             If D.EXISTS(E.Interior.ColorIndex) Then
  8.                     Set D(E.Interior.ColorIndex) = Union(D(E.Interior.ColorIndex), E)
  9.             Else
  10.                Set D(E.Interior.ColorIndex) = E
  11.             End If
  12.         Next
  13.         i = 1
  14.         For Each E In D.keys
  15.             With .Cells(i, .Columns.Count + 1).Resize(, 2)
  16.                 .Interior.ColorIndex = E
  17.                 .Value = Array("¦@­p " & Application.Sum(D(E)), "¥X²{ " & D(E).Count & "¦¸")
  18.             End With
  19.             i = i + 1
  20.         Next
  21.     End With
  22. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# peter95
µLÅv­­¤U¸ü¡A¤£ª¾¹ï§_¡H
Sub ­pºâ()
    For Each cell In [A1:G53]
        If cell.Interior.ColorIndex = xlNone Then
            wc = wc + 1
            wn = wn + cell.Value
        Else
            yc = yc + 1
            yn = yn + cell.Value
        End If
    Next cell
    msg = "µL©³¦â¼Æ¶q¡G" & wc & vbTab & "µL©³¦â¤º­ÈÁ`©M¡G" & wn & vbCr
    msg = msg & "¦³©³¦â¼Æ¶q¡G" & yc & vbTab & "¦³©³¦â¤º­ÈÁ`©M¡G" & yn & vbCr
    MsgBox msg
End Sub
[b]Kubi[/b]

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD