EXCEL vba 部门抽奖如何设置抽中者，不再参与下次抽奖

rendiule01 · 发表于 2022-4-6 14:24

Excel 通过VBA宏编写一个简易抽奖小工具
1.能否把抽中人员复制到P列对应的单元格内？
2.能否设置抽中人员不再参与下一次抽奖？

02761752696 · 发表于 2022-4-6 16:39

在你的基础上改了一下，搞太复杂了，看效果

02761752696 · 发表于 2022-4-6 16:47

本帖最后由 02761752696 于 2022-4-6 16:52 编辑

1、工作表事件，选择奖项，清空中奖信息处的中奖名单

2、在你开始程序后面加两个处理过程

代码写在工作表要简单一些。不用指定位置
还在你抽奖程序中加了一个判断，避免去掉已中奖名单后出错。

怎么上传图片顺序总是错....
重新写个程序比在你的基础上修改要好一些

microyip · 发表于 2022-4-6 16:56

论坛里有很多抽奖代码可以参考

psxk3535 · 发表于 2022-4-6 19:36

禁止开始第一个抽奖后同一奖项重复抽奖，只有清空所有抽奖数据以后才可以再次抽奖，打开工作簿第一次开始抽奖，不用清空开奖数据，会自动清除，结果会在人员名单的 B 列显示，并在 D-E 列集中显示，原人员名单顺序不会改变，

rendiule01 · 发表于 2022-4-10 08:29

psxk3535 发表于 2022-4-6 19:36
禁止开始第一个抽奖后同一奖项重复抽奖，只有清空所有抽奖数据以后才可以再次抽奖，打开工作簿第一次开始抽 ...

老师的代码可运行，谢谢老师

ZXB0312 · 发表于 2023-7-21 18:12

X学习一下

		自动登录	找回密码
密码			免费注册

[求助] EXCEL vba 部门抽奖如何设置抽中者，不再参与下次抽奖