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

相关文章

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 索引(

MySQL主从复制与读写分离的用法解读

《MySQL主从复制与读写分离的用法解读》:本文主要介绍MySQL主从复制与读写分离的用法,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录一、主从复制mysql主从复制原理实验案例二、读写分离实验案例安装并配置mycat 软件设置mycat读写分离验证mycat读

Redis分片集群、数据读写规则问题小结

《Redis分片集群、数据读写规则问题小结》本文介绍了Redis分片集群的原理,通过数据分片和哈希槽机制解决单机内存限制与写瓶颈问题,实现分布式存储和高并发处理,但存在通信开销大、维护复杂及对事务支持... 目录一、分片集群解android决的问题二、分片集群图解 分片集群特征如何解决的上述问题?(与哨兵模

HTML中meta标签的常见使用案例(示例详解)

《HTML中meta标签的常见使用案例(示例详解)》HTMLmeta标签用于提供文档元数据,涵盖字符编码、SEO优化、社交媒体集成、移动设备适配、浏览器控制及安全隐私设置,优化页面显示与搜索引擎索引... 目录html中meta标签的常见使用案例一、基础功能二、搜索引擎优化(seo)三、社交媒体集成四、移动

六个案例搞懂mysql间隙锁

《六个案例搞懂mysql间隙锁》MySQL中的间隙是指索引中两个索引键之间的空间,间隙锁用于防止范围查询期间的幻读,本文主要介绍了六个案例搞懂mysql间隙锁,具有一定的参考价值,感兴趣的可以了解一下... 目录概念解释间隙锁详解间隙锁触发条件间隙锁加锁规则案例演示案例一:唯一索引等值锁定存在的数据案例二: