请大神做一个摇号系统，一次性同时对20个人一起摇号，每个人对应一个号码，且每个...

wang.martin · 发表于 2021-4-12 01:03

请大神做一个摇号系统，一次性同时对20个人一起摇号，每个人对应一个号码，且每个人不重复

liulang0808 · 发表于 2021-4-12 07:08

可以考虑随机数+字典去重来实现
另外楼主在论坛检索下，案例很多的，可以参考，如果又问题，再具体咨询吧

鄂龙蒙 · 发表于 2021-4-12 07:32

楼主是20人参加抽奖？产生几个不重复的？

likaiyihou · 发表于 2021-4-12 07:53

1.用两个集合分别装入人员、号码
2.随机数抽取人员、号码，并从集合中移出已抽取的人员、号码
3.循环操作，直至抽取够。

zpy2 · 发表于 2021-4-12 08:08

随机分组排序？

iu950 · 发表于 2021-4-12 08:50

之前收藏的论坛一位老师的代码，应该能实现你的需求，感谢提供代码的老师。。。

zhr23 · 发表于 2021-4-12 08:50

Sub 随机()
Dim i%, j%, rng As Range
Range("C1").Value = "排列"
j = Range("a1").End(xlDown).Row
For i = 2 To j
Range("C" & i) = "=rand()"
Next
Range("A1:C1").Select
Selection.AutoFilter
Range("A2:C" & j).Sort Range("C2"), xlAscending
Range("A1:C1").Select
Selection.AutoFilter
For i = 2 To j
Range("b" & i) = i - 1
Next
Range("C1:C" & j).ClearContents
End Sub

vleexhya · 发表于 2021-4-12 09:02

liulang0808 发表于 2021-4-12 07:08
可以考虑随机数+字典去重来实现
另外楼主在论坛检索下，案例很多的，可以参考，如果又问题，再具体咨询吧
...

对，这个要用到随机性的问题，我之前也求助过随机性的问题。
斑竹请帮忙看一下我的问题：http://club.excelhome.net/thread-1581041-1-1.html

imhereing · 发表于 2022-3-18 19:05

學習下，感謝分享

zpy2 · 发表于 2024-1-28 14:59

zpy2 发表于 2021-4-12 08:08
随机分组排序？

https://e.anyoupin.cn/eh3/random/index.php

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

请大神做一个摇号系统，一次性同时对20个人一起摇号，每个人对应一个号码，且每个...

评分