返回列表 上一主題 發帖

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

peter95

帖子
49 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
win7 
軟體版本
office2001 
閱讀權限
20 
性別
男 
註冊時間
2012-4-10 
最後登錄
2024-8-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-27 23:12 | 只看該作者

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



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

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

感謝各位高手的幫忙
謝謝
收藏 分享
學習 學習 一直學習

hcm19522

帖子
1392 
主題
4 
精華
0 
積分
1402 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-12-25 

熱烈參與勳章
2#
發表於 2016-4-28 09:39 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/205029860

TOP

qujk

帖子
1 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
Windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2016-4-28 
最後登錄
2017-2-15 
3#
發表於 2016-4-28 11:05 | 只看該作者
請嘗試 使用 定義名稱

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

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

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

看跑出來值多少 O

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
5#
發表於 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
[b]Kubi[/b]

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題