关于打卡值班制度---一个excel开发工具小函数

1、勾选EXCEL开发工具

找到【选项】-【自定义功能区】-勾选【开发工具】-【确认】

设置成功见图所示

2、利用VBA新设置两个函数

找到这个选项卡，点击

进入这个界面，点击【插入】-点击【模块】

显示这个界面

复制粘贴这个代码块：

Function SumColor(i As Range, ary1 As Range) Dim icell As Range Application.Volatile For Each icell In ary1 If icell.Interior.ColorIndex = i.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icell End Function Function CountColor(x As Range, ary2 As Range) Application.Volatile For Each i In ary2 If i.Interior.ColorIndex = x.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next End Function

关于两个函数的使用解释

3、如何应用工具实现统计功能

效果如下：

下一步按照浅黄色：红色：黑色的惩戒因子为1:2:3进行赋权重，并求取每个人的惩罚系数。

下一步选择出所有人中惩罚系数最大的人。

为观察班级总体情况，对于全班的情况进行统计，见下图

最后，设置数据条方便观察每个人的情况