多选框在统计中的应用

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))