wps js宏编辑器案例2-单元格读写-随机选人

2023-10-16 20:20

本文主要是介绍wps js宏编辑器案例2-单元格读写-随机选人,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

本案例讲述某企业的一个真实案例,该企业每周二早上有安全宣贯会议,差不多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即可

这篇关于wps js宏编辑器案例2-单元格读写-随机选人的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/220551

相关文章

python生成随机唯一id的几种实现方法

《python生成随机唯一id的几种实现方法》在Python中生成随机唯一ID有多种方法,根据不同的需求场景可以选择最适合的方案,文中通过示例代码介绍的非常详细,需要的朋友们下面随着小编来一起学习学习... 目录方法 1:使用 UUID 模块(推荐)方法 2:使用 Secrets 模块(安全敏感场景)方法

MySql基本查询之表的增删查改+聚合函数案例详解

《MySql基本查询之表的增删查改+聚合函数案例详解》本文详解SQL的CURD操作INSERT用于数据插入(单行/多行及冲突处理),SELECT实现数据检索(列选择、条件过滤、排序分页),UPDATE... 目录一、Create1.1 单行数据 + 全列插入1.2 多行数据 + 指定列插入1.3 插入否则更

使用Python删除Excel中的行列和单元格示例详解

《使用Python删除Excel中的行列和单元格示例详解》在处理Excel数据时,删除不需要的行、列或单元格是一项常见且必要的操作,本文将使用Python脚本实现对Excel表格的高效自动化处理,感兴... 目录开发环境准备使用 python 删除 Excphpel 表格中的行删除特定行删除空白行删除含指定

Python通用唯一标识符模块uuid使用案例详解

《Python通用唯一标识符模块uuid使用案例详解》Pythonuuid模块用于生成128位全局唯一标识符,支持UUID1-5版本,适用于分布式系统、数据库主键等场景,需注意隐私、碰撞概率及存储优... 目录简介核心功能1. UUID版本2. UUID属性3. 命名空间使用场景1. 生成唯一标识符2. 数

C#读写文本文件的多种方式详解

《C#读写文本文件的多种方式详解》这篇文章主要为大家详细介绍了C#中各种常用的文件读写方式,包括文本文件,二进制文件、CSV文件、JSON文件等,有需要的小伙伴可以参考一下... 目录一、文本文件读写1. 使用 File 类的静态方法2. 使用 StreamReader 和 StreamWriter二、二进

PostgreSQL的扩展dict_int应用案例解析

《PostgreSQL的扩展dict_int应用案例解析》dict_int扩展为PostgreSQL提供了专业的整数文本处理能力,特别适合需要精确处理数字内容的搜索场景,本文给大家介绍PostgreS... 目录PostgreSQL的扩展dict_int一、扩展概述二、核心功能三、安装与启用四、字典配置方法

Python中re模块结合正则表达式的实际应用案例

《Python中re模块结合正则表达式的实际应用案例》Python中的re模块是用于处理正则表达式的强大工具,正则表达式是一种用来匹配字符串的模式,它可以在文本中搜索和匹配特定的字符串模式,这篇文章主... 目录前言re模块常用函数一、查看文本中是否包含 A 或 B 字符串二、替换多个关键词为统一格式三、提

Python get()函数用法案例详解

《Pythonget()函数用法案例详解》在Python中,get()是字典(dict)类型的内置方法,用于安全地获取字典中指定键对应的值,它的核心作用是避免因访问不存在的键而引发KeyError错... 目录简介基本语法一、用法二、案例:安全访问未知键三、案例:配置参数默认值简介python是一种高级编

MySQL中的索引结构和分类实战案例详解

《MySQL中的索引结构和分类实战案例详解》本文详解MySQL索引结构与分类,涵盖B树、B+树、哈希及全文索引,分析其原理与优劣势,并结合实战案例探讨创建、管理及优化技巧,助力提升查询性能,感兴趣的朋... 目录一、索引概述1.1 索引的定义与作用1.2 索引的基本原理二、索引结构详解2.1 B树索引2.2

从入门到精通MySQL 数据库索引(实战案例)

《从入门到精通MySQL数据库索引(实战案例)》索引是数据库的目录,提升查询速度,主要类型包括BTree、Hash、全文、空间索引,需根据场景选择,建议用于高频查询、关联字段、排序等,避免重复率高或... 目录一、索引是什么?能干嘛?核心作用:二、索引的 4 种主要类型(附通俗例子)1. BTree 索引(