随机抽取指定人数的评委。求助VBA

三票 · 发表于 2023-2-21 22:32

准提部林发表于 2023-2-21 22:18
樓主是想要類似開獎球,
搖球...落球...一個一個來???

不是，有活动需要现场从几个单位抽取评委，为了公正

准提部林 · 发表于 2023-2-21 22:36

三票发表于 2023-2-21 22:32
不是，有活动需要现场从几个单位抽取评委，为了公正

現場抽...一個一個來, 而不是一次出全部結果???

三票 · 发表于 2023-2-21 22:41

准提部林发表于 2023-2-21 22:36
現場抽...一個一個來, 而不是一次出全部結果???

不同单位人数不一样，按人数比例从评委库中随机选出该单位的评委，

三票 · 发表于 2023-2-21 22:47

准提部林发表于 2023-2-21 22:36
現場抽...一個一個來, 而不是一次出全部結果???

实际上理想结果是:点击抽取钮评委库的人名在屏幕上循环滚动，再点一个停止按钮出现结果。感觉这样做太复杂

zldccmx · 发表于 2023-2-22 11:39

本帖最后由 zldccmx 于 2023-2-22 11:51 编辑

随机抽取指定人数的评委.zip (30.58 KB, 下载次数: 19)
点击抽取，每秒刷新一次

zldccmx · 发表于 2023-2-22 11:40

三票发表于 2023-2-21 22:47
实际上理想结果是:点击抽取钮评委库的人名在屏幕上循环滚动，再点一个停止按钮出现结果。感觉这样做太复 ...

参见楼上的附件！

三票 · 发表于 2023-2-22 13:53

本帖最后由三票于 2023-2-22 14:07 编辑

zldccmx 发表于 2023-2-22 11:40
参见楼上的附件！

感谢老师，太好了

。您方便时更改一下字体大小和字体颜色、人名的循环速度再3倍，显示框的整体大小

zldccmx · 发表于 2023-2-22 15:13

zldccmx · 发表于 2023-2-22 15:17

VBA 本身的定时只能限制在秒级，无法在毫秒级，所以，你说的提速功能暂时没有想到好的办法

wps6129 · 发表于 2023-2-22 21:33

大家的作品都太强大了，这个帖子我收藏了~~~

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

[求助] 随机抽取指定人数的评委。求助VBA