[算表] Excel自訂顏色條件加總函數

作者: home0303 (Blue night)   2019-10-12 13:54:58
軟體:EXCEL
版本:2010
類似Sumif的函數 只是條件是符合指定底色者予以加總 寫法如下
Function SumColor(金額範圍, 顏色儲存格)
Application.Volatile
For Each cell In 金額範圍
If cell.Interior.Color = 顏色儲存格.Interior.Color Then
SumColor = SumColor + cell
End If
Next
End Function
特別加了Volatile以避免函數不更新的情形
不過事實上還是沒有解決問題
第一次寫入函數 可以準確運算出結果
但是若修改金額範圍的 "儲存格底色" 則函數不會更新
需要按下F9鍵才會重算
請問有什麼辦法可以解決此一困境嗎
畢竟寫給別人用的話 使用者程度參差不齊
讓人算錯的結果就不好了
謝謝
作者: soyoso (我是耀宗)   2019-10-12 15:42:00
這要看是否有修改填滿色彩觸發事件,如果沒有的話,其他觸發事件,如worksheet_selectionchange內重新運算application.calculate,看是否就可達成要的結果
作者: home0303 (Blue night)   2019-10-12 15:46:00
收到 謝謝S大

Links booklink

Contact Us: admin [ a t ] ucptt.com