返回列表 上一主題 發帖

指定顏色求和

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2022-5-24 13:31 | 只看該作者

指定顏色求和

本帖最後由 john2006168 於 2022-5-24 13:32 編輯

想問一下,有沒有excel公式是可以指定顏色計算總數.
例如:每個月有幾個vendor要優先付款的,用黃色顥示,只計算有顏色每個vendor的總和,結果如I欄

擷取.PNG (7.52 KB)

擷取.PNG

收藏 分享

hcm19522

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

熱烈參與勳章
4#
發表於 2022-5-25 15:18 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/205029860
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
3#
發表於 2022-5-24 16:57 | 只看該作者
回復 2# samwang
謝謝幫忙,因為excel不可以有vba程式存在,所以這個方法暫時不行.
另外,剛測試,如果有其他顏色也會計算進去.不可以只是計算黃色求和.最後,如果執行多一次,數值會一直累加.

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
2#
發表於 2022-5-24 15:23 | 只看該作者
想問一下,有沒有excel公式是可以指定顏色計算總數.
例如:每個月有幾個vendor要優先付款的,用黃色顥示,只計 ...
john2006168 發表於 2022-5-24 13:31

請測試看看，謝謝
Sub test()
Dim xR As Range, R%, MyClr
For Each xR In Range([h1], Cells(Rows.Count, 2).End(3))
    MyClr = xR.DisplayFormat.Interior.ColorIndex
    If MyClr <> -4142 Then
        R = xR.Row
        Cells(R, 9) = Cells(R, 9) + xR
    End If
Next
End Sub

1.JPG (60.48 KB)

1.JPG

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題