[算表] 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