Question

excel中颜色函数如何操作？

一行中需要填写20个数字，如果这20个数字全都填满了则这一行都为黑色，如果这一行中有一个数或者几个数没填则这一行所有的数都是红色。这个怎么操作？

Answer 1

需要使用VBA设置函数来完成。

1. 在EXCEL界面中，按下组合键　Alt + F11，弹出一个MicrosoftVisual Basic窗口。

2.看到一个“（通用）”的窗体，这个窗体就是用来输入VBA代码的窗体，如下图：

3.将如下代码粘贴到该窗体中：FunctionSumByColor(Ref_color As Range, Sum_range As Range)Application.VolatileDim iCol As LongDim rCell As RangeSumByColor = 0iCol =Ref_color.Interior.ColorIndexFor Each rCell InSum_rangeIf iCol = rCell.Interior.ColorIndex And WorksheetFunction.IsNumber(rCell) Then SumByColor = SumByColor + rCell.Valu End IfNext rCellEnd Function结果如下图：

4.关闭Microsoft VisualBasic窗口，返回到EXCEL窗口，函数SumByColor设置完毕。设置完成的函数SumByColor（Ref_color, Sum_range），函数有2个参数：第一个是要想统计颜色的单元格（任意一个与要汇总颜色相同的单元格均可），第二个是要汇总的单元格区域。

5.以上就操作方法。