1、首先构建数据表格
2、插入复选框
依次点击开发工具，插入、复选框
3、将鼠标放在B2单元格进行拖拉，画出复选框，并调整大小，使之在B2单元格内，如下所示：
4、复制复选框
选中B2单元格，按住右下角黑色填充柄，下拉，填充到最后。
5、设置复选框链接单元格及复选框显示名称
右键选择第一个复选框，点击设置控件格式
6、依次点击控制，单元格连接，用鼠标选择C2单元格，确定
7、下面几个复选框可以照此处理，数量多，当然要用VBA
ALT+F11打开VBA编辑器
输入如下代码：
Sub 复选框()
For Each p In ActiveSheet.Shapes
p.Select
Selection.Characters.Text = ""
Selection.LinkedCell = p.TopLeftCell.Offset(0, 1).Address
Next
End Sub
8、按F5运行代码，结果如下图所示：
9、设置汇总公式
D9设置汇总公式=SUMPRODUCT((C2:C8)*(D2:D8))
