本案例讲述某企业的一个真实案例,该企业每周二早上有安全宣贯会议,差不多10来分钟左右,每次安全会上人事部门都会点名,那么问题来了,点名的名单哪儿来?为此,编写了一个简单js宏应用,产生随机名单,名单数量可设置,主要涉及js宏单元格的读写,具体如下。
1、案例演示
【表单1】人员清单
其中选中人数:xx人可设置,比如设置10,则执行运行后,只随机选取10人
点击“开始选人”按钮,会先清空表单2中已选中人员,然后重新填充新一轮的选中人员。【表单2】选中人员
这是选中人数设置5人,的执行效果,随机从人员清单中选中了5人,以及生成时间。
2、代码说明
function CommandButton1_Click()
{
let sheet1 = Worksheets.Item("人员清单");
let sheet2 = Worksheets.Item("选中人员");
let iPeople = sheet1.Range("B1").Value2;
if (! iPeople) {
MsgBox('选中人数不能为空, 请先设置');
return;
}
if(MsgBox("确定开始选人吗?", jsOKCancel + jsQuestion) == 1) {
let b4 = sheet1.Range("B4"), b4End = sheet1.Range("B4").End(xlDown);
let iStart = 4, iEnd = b4End.Row; // 最后一行行号
sheet2.Range("A3:C22").Value2 = "" // 清空选中人员
sheet2.Range("B1").Value2 = new Date().toLocaleString(); // 填写生成时间
sheet1.Range("D4:D" + iEnd).Value2 = 0;
let iCount = 2;
while(true) {
let iRow = Math.floor(Math.random() * 1000000 % (iEnd + 10));
if (iRow >= iStart && iRow <= iEnd && (! sheet1.Cells.Item(iRow, 4).Value2)) {
iCount++;
sheet1.Cells.Item(iRow, 4).Value2 = 1;
sheet2.Cells.Item(iCount, 1).Value2 = sheet1.Cells.Item(iRow, 1).Value2;
sheet2.Cells.Item(iCount, 2).Value2 = sheet1.Cells.Item(iRow, 2).Value2;
sheet2.Cells.Item(iCount, 3).Value2 = sheet1.Cells.Item(iRow, 3).Value2;
if (iCount >= iPeople + 2) break;
}
}
}
}
1)实现原理
利用随机数、取模,产生一个随机行号:
- 判断是否在人员清单的行号范围之内,如果是则判断该行是否已经被选中,如果是则产生新的随机行号继续判断,否则设置改行选中次数为1、填写人员信息到选中人员表单;
- 判断选中人数是否已经达到设置人数,如果是则结束程序,否则继续产生人员;
2)代码说明
- WorkSheet工作表获取,Worksheets.Item(“人员清单”)
- 单元格读取
- Range.Value2读取,sheet1.Range(“B1”).Value2,或Value()函数读取
- Cells读取, sheet1.Cells.Item(iRow, 1).Value2
- Range.End使用,b4End = sheet1.Range(“B4”).End(xlDown),获取B列最后一个有效行
- MsgBox使用,提示框,具体参考:wps宏编辑器API关于msgbox和inputbox的使用说明
3)代码获取
可以到 https://gitee.com/zongtong2046/jsexcel/tree/master/ 获取,请下载:案例2_单元格读写_随机选人.xlsm
3、改进之处
由于安全早会是一个长周期会议,这周点名了,下周最好点之前没点名的人员,只要程序做个小变动即可实现。
- 加个设置,选中次数超过几次,不再选中
- 每次选人时,选中次数不再归零
- 第一次执行时,选中次数设置1次后不再选中,则随机选取5个人,这5个人选中次数都为1;
- 第二次执行时,选中次数设置1次后不再选中,此时原本选中的5个人,不能再被选中,只能选取其他人员;
- 当所有人员基本被选中一遍后,下次在选人时,设置选中次数为2即可