

Excel VBA
Excel Vba使数值为0的所在行改变颜色
2017-10-23 16:53:44
利用条件格式,我们可以按设定的条件对excel单元格进行格式设置。比如将库存为0 的行显示为红色。
excel虽然处理很多数据都很方便,但是如果数据量大了,会比较卡顿。用条件格式更加会闪烁。
这里我们通过自定义函数,用vba灵活处理值为0的行改变颜色
详细源码:
Sub 变色() Dim i&, k&, arr '定义i,k,arr数组 k = [a200000].End(xlUp).Row '判断a列的最后一个不为空的单元格 arr = Sheets("sheet2").Range("a1:c" & k) '把区域赋值给数组 For i = UBound(arr) To 1 Step -1 'ubound代表arr的下界 If arr(i, 2) = 0 Then '判断第3列的每个值 Rows(i).Interior.ColorIndex = 3 '令该行变红色 End If Next End Sub