用Excel制作科研项目立项评审计票工具.pdfVIP

作表上设计界面。本文根据实际需要设计了三个 Dim cxlAsRange 功能模块：动态计票+对计票结果进行 “中国式排 Setcxl=Worksheets(”sheetl”)．Range(”c2”) 01J【RN ∞FLI疆Gc 驾。髂 sTTE cx1．Value=cx1—1 名”②、对各个名次上的得票人数进行统计、对前N 名得票人数进行合计。最后一个模块可用于遴选 接下来对票数进行 “中国式排名”。这里需要 胜 出者，也适用于限额项 目的校内初选 ，是这款小 用~1]Excel中的数组函数SUMPR0DucT。这个函 工具的功能核心。 数的意思是 “在给定的几组数组中，将数组间对应 2．动态计票功能设计 的元素相乘，并返回乘积之和”。其语法形式为： 第一模块的功能是动态计票。其设计思路是 SUMPRODUCT(arrayl，[array2]，[array3]，．．．)，其 利用 按“钮”控件结合VBA编程语言实现鼠标单击 中的 “arrayl，array2．array3……”都是具有相 同维 按钮后票数加1的效果。如图所示 ，本例在A列 数的数组。④!c口图所示，D2单元格中的公式为： (“姓名”)上布置了5个按钮(按钮数可以根据需要 =IF (C2=0，…’，SUMPRODUCT ((C$2：C$6 无限增加)，按钮的名称是项 目申报人的编号及姓 C2)(1／(COUNTIF(C$2：C$6，C$2：C$6))))+1)⑨ 名(也可根据需要随意调整)。B列则对应安排 了 IF函数的作用是将0票数的申报人排除在统 “撤销”按钮，以便对唱票过程中的失误进行修改。 计之外。如果0票数的申报人也需要统计，则去掉 C列 (“得票数”)与按钮所在行对应统计了该申报 IF函数即可，公式将变为： 人获得的票数。D列(“中国式排名”)则是该申报 = SUMPRODUCT ((C$2：C $6C2) (1／ 人在所有 申报人 中得票数的排名 。 (COUNTIF(C$2：C$6，C$2：C$6))))+1 在制作按钮之前．需要在A列从A2单元格开 公式向下复制后，SUMPRODUCT函数第一参 始输人 自然数列I~N，N代表申报人数。这样做是 数将依次变为： 为了在对计票结果进行排序后将按钮恢复到最初 (C$2：C$6C3) T I 的顺序。由于按钮会覆盖单元格中的内容，所以这 (c$2：C$6C4) T ’ 个数列实际上是隐藏的，它的作用相当于一个辅 (C$2：C$6C5) T ’ 助列。③接下来制作 “按钮”控件。通过 “视图”一“工 042 具栏”一控“件工具箱”调取 “按钮”控件，在A1单元 以第一申报人为例，参数 (C$2：C$6B2)和参 格绘制一个按钮。右键选择 “命令按钮对象”一“编 数 (1／(COUNTIF(Cj82：c$6，c$2：c$6)))将分别形 辑”，将按钮名称修改为 “申报人编号+申报人姓 成两个数组。参数 (C$2：c$6c2)形成的数组是 ： 名”的组合。然后双击该按钮进入VBE界面，在代 {0；0；0；0；01，O在这里是逻辑FALSE的数值形式 ， 码窗口中已经预置了Sub过程。在Sub过程中间输 意思是在该区域中没有大于B2的元素，其直观形 入下面的代码