这时候就不用筛选功能了,直接vba里边3重循环对3列数据进行搜索,然后用hlookup功能offset到j列把数值累加到一个变量里,最后判断该标什么颜色表什么颜色
筛选后求和的公式是
=subtotal(9,b2:b99)
对ab列进行筛选,筛选a列的“a”,并求和的代码如下:
sub
xxx()
activesheet.range("$a$1:$b$999").autofilter
field:=1,
criteria1:="a"
dim
xrng
as
range
set
xrng
=
range("b2:b999")
msgbox
worksheetfunction.subtotal(9,
xrng)
end
sub
不太明白你的意思,但是可以参考我的另外一个帖子,也是要求变色的。
http://zhidao.baidu.com/question/2074152501442633708.html?oldq=1