抽奖程序设计

MaterSeCret

紧急求助！！
根据附件样式设计一个抽奖程序。
要求：
1.一次抽5个，5个要同时在抽奖界面滚动显示
2.抽奖开始按钮在点了开始后会变成停！
3.不可重复中奖
感谢各界大佬支持！！
感激不尽！！

沈默00

5个不重复，是按姓名还是连着后面的项目一起？
思路：字典+随机数，出现过的就删除字典里的项目

EHGOOD

写个试试。
不可重复中奖理解为：一次抽5个人，这5个人中没有重复。

MaterSeCret

沈默00 发表于 2024-4-17 17:50
5个不重复，是按姓名还是连着后面的项目一起？
思路：字典+随机数，出现过的就删除字典里的项目

连着后面的项目一起的，每一单元格作为一个抽奖单位

MaterSeCret

EHGOOD 发表于 2024-4-17 19:30
写个试试。
不可重复中奖理解为：一次抽5个人，这5个人中没有重复。

大神厉害，但是差一点点，我是想把每一单元格作为一个抽奖单位，不用处理花名册内容

LIUZHU

抽奖没问题，就是没法停下来，容易陷入死循环

LIUZHU

总共25个人，每次5人，5轮抽完

LIUZHU

WPSJS宏代码，请参考

1. let arr,temp,obj,k;
   
2. function 开始抽奖(){
   
3.         if (obj==null) obj={};
   
4.         if (arr==null){
   
5.                 arr=Sheets.Item("花名册").Range("a1").CurrentRegion.Value2.slice(1).map(([x])=>x.split("-")[0]);
   
6.                 arr=[...new Set(arr)];
   
7.         }
   
8.         if (k==null) k=0;
   
9.         let shp=ActiveSheet.Shapes.Item(1);
   
10.         if (shp.TextFrame2.TextRange.Text=="开始抽奖"){
    
11.                 shp.TextFrame2.TextRange.Text="停止";
    
12.                 屏幕滚动();
    
13.                 return;
    
14.         }
    
15.         shp.TextFrame2.TextRange.Text="开始抽奖";
    
16. }
    
17. 
    
18. function 初始化(){
    
19.         [arr,temp,obj,k]=[null,null,null,null];
    
20.         let c1=Cells.Item(Cells.Find("序号").Row,Columns.Count).End(xlToLeft).Column;
    
21.         if (c1>=2) Range("b10").Resize(6,c1-2+1).ClearContents();
    
22. }
    
23. 
    
24. function 屏幕滚动(isgo=true){
    
25.         let shp=ActiveSheet.Shapes.Item(1);
    
26.         if (shp.TextFrame2.TextRange.Text=="开始抽奖"){
    
27.                 let rng=Cells.Item(Cells.Find("序号").Row,Columns.Count).End(xlToLeft).Offset(0,1);
    
28.                 temp.forEach(([x])=>arr.splice(arr.indexOf(x),1));                //删除已经抽中的部分
    
29.                 temp.unshift([`第${++k}轮`]);
    
30.                 rng.Resize(temp.length,1).Value2=temp;
    
31.                 return;
    
32.         }
    
33.         if (arr.length<5){
    
34.                 alert("剩余人数不足5人，不能抽奖。");
    
35.                 return;
    
36.         }
    
37.         cjarr=[...arr];                //在副本中抽奖
    
38.         temp=[1,2,3,4,5].reduce((temp,x)=>{
    
39.                 let n=Math.floor(Math.random()*cjarr.length);
    
40.                 return (temp.push(cjarr.splice(n,1)),temp);
    
41.         },[]);
    
42.         Range("a1").Value2=temp.flat().join("、");
    
43.         DoEvents();
    
44.         屏幕滚动();
    
45. }

复制代码

LIUZHU

WPS软件测试即可

LIUZHU

EHGOOD 发表于 2024-4-17 19:30
写个试试。
不可重复中奖理解为：一次抽5个人，这5个人中没有重复。

这个思路的确不错，值得学习