[發問] 將儲存格的黃底上的數字加總

peter95

下載 (80.38 KB)

2016-4-27 23:07

有無辦法               
1.將黃底的數字全部加總                               
2.其餘無底色的全部加總
~~~~~~~~~~~~~~~~~~~~~~~
3.黃底的出現過幾次                               
4.無底色的出現過幾次

小弟的檔案
COLAR-SUM.rar (8.22 KB)

下載次數: 6

2016-4-27 23:10

感謝各位高手的幫忙
謝謝

hcm19522

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

qujk

請嘗試 使用 定義名稱

假設 $AY，是你要找的區塊，選擇  [插入]/[名稱]/[定義]

因為你的顏色 為 黃色  接著 到參照輸入=get.cell(63,a1)按下 確定

之後， 於 儲存格 輸入 =color(A?)  

看跑出來值多少 O

再配合 countif((X1:X999,O))

GBKEE

回復 1# peter95
VBA 程式碼

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim D As Object, E As Variant, i As Integer
   
4.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '字典物件
   
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("共計 " & Application.Sum(D(E)), "出現 " & D(E).Count & "次")
    
18.             End With
    
19.             i = i + 1
    
20.         Next
    
21.     End With
    
22. End Sub

複製代碼

Kubi

回復 1# peter95
無權限下載，不知對否？
Sub 計算()
    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 = "無底色數量：" & wc & vbTab & "無底色內值總和：" & wn & vbCr
    msg = msg & "有底色數量：" & yc & vbTab & "有底色內值總和：" & yn & vbCr
    MsgBox msg
End Sub