lzth.net
当前位置:首页 >> ExCEl vBA 怎么统计填充了某个颜色的单元格的数量 并且计算出通过率!! >>

ExCEl vBA 怎么统计填充了某个颜色的单元格的数量 并且计算出通过率!!

提供示例代码如下:测试效果:

公式是无法识别颜色的,你可以使用VBA自定义识别颜色的函数,然后就可以了.

以下代码统计A1:A10区域中空白单元格的数量 Sub 空白单元格数量() For Each rng In Range("a1:e10") If rng = "" Then s = s + 1 Next MsgBox s End Sub

如图,按CTRL+F3,新建名称aa,这个名称可以随便取.然后引用位置输入=GET.CELL(63,A1),然后在B1输入公式=aa,公式下拉到数据最后,再在C1输入公式=COUNTIF(B1:B8,">0").

如你的数据在A列,代码如下.sub aa () for x =1 to range("A65536").end(xlup).row'建立循环 if cells(x,1)=6 then'判断单元格值 cells(x,1).interior.colorIndex = 3'单元格值等于6时,该单元格填充红色 end if next x end sub

1、电脑打开duExcel表格. 2、电脑打开Excel表格后,zhiAlt+F11进入宏,然后点击插dao入模块. 3、点击插入模块后,输入代码: Function SUMColor(rag1 As Range, rag2 As Range) Application.Volatile For Each i In rag2 If i.Interior.

选择单元格,右键,设置单元格格式,然后在填充中找到颜色,确定即为excel单元格填充了制定的颜色

sub s() dim a(3) t = [a1] for i = 0 to 3 a(i) = mid(t, i + 1, 1) next for i = 2 to 85 ff = true for j = 0 to 3 f = false for k = j * 7 + 11 to j * 7 + 17 if cells(k, i).text = a(j) then cells(k, i).font.colorindex = 3 f = true end if next ff = ff and f next if ff then cells(39, i).resize(7)

楼主:你好,对于你这个问题有个前提条件:如果你的excel版本是2003版,那么你只能用系统预设的56色.用vba代码实现的其他填充色会被转换为和这56色最接近的一种.如果你的excel版本是2007及以上,那么单元格填充色几乎不受限制,

2003下可以参看此实例操作动画:http://hi.baidu.com/sykamuni/album/item/5174f5e649cf6e0ab93820b8.html祝你成功!

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com