excel vba 实现 多列数据筛选并对筛选后的数据进行操作
例如:根据D列筛选出"科目1";再根据B列筛选出"计算机";再根据E列筛选出"张三";筛选出的数据,对J列数据求和,如果为0,则标为绿色,如果不能的,正数的就标黄,非正数...
例如:
根据D列筛选出"科目1";
再根据B列筛选出"计算机";
再根据E列筛选出"张三";
筛选出的数据,对J列数据求和,如果为0,则标为绿色,如果不能的,正数的就标黄,非正数的就标红
这只是其中一个例子,表中的所有数据都要标上颜色.
感激不尽! 展开
根据D列筛选出"科目1";
再根据B列筛选出"计算机";
再根据E列筛选出"张三";
筛选出的数据,对J列数据求和,如果为0,则标为绿色,如果不能的,正数的就标黄,非正数的就标红
这只是其中一个例子,表中的所有数据都要标上颜色.
感激不尽! 展开
3个回答
展开全部
筛选后求和的公式是
=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
=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
http://zhidao.baidu.com/question/2074152501442633708.html?oldq=1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |