Board logo

標題: [發問] 將儲存格的黃底上的數字加總 [打印本頁]
作者: peter95    時間: 2016-4-27 23:12     標題: 將儲存格的黃底上的數字加總

[attach]24054[/attach]

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

小弟的檔案
[attach]24055[/attach]

感謝各位高手的幫忙
謝謝
作者: hcm19522    時間: 2016-4-28 09:39

http://blog.xuite.net/hcm19522/twblog/205029860
作者: qujk    時間: 2016-4-28 11:05

請嘗試 使用 定義名稱

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

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

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

看跑出來值多少 O

再配合 countif((X1:X999,O))
作者: GBKEE    時間: 2016-4-28 12:41

回復 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    時間: 2016-4-28 20:44

回復 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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)