实用抽签小工具

yishang3

yjh_27 发表于 2014-12-25 23:20
这个规则不公平

其实抽签本来就是不公平，是运气。只是不是均衡抽签。即抽签内容少于抽签人数而己！

yishang3

在学习您代码时想到一种情况，就是有20人抽签，但对应的内容只有15个，那就是有人抽签的结果相同，如何修改代码？
ReDim hrr(1 To 15)
ReDim sj(1 To 15)
For i = 1 To UBound(hrr)
    hrr(i) = i
    sj(i) = i
Next
For i = 1 To 15
    If arr(i, 1) <> "" Then hrr(arr(i, 1)) = ""
提示这句出错

yjh_27

yishang3 发表于 2014-12-25 21:07
在学习您代码时想到一种情况，就是有20人抽签，但对应的内容只有15个，那就是有人抽签的结果相同，如何修改 ...

请参考  抽签监考   的考场

yishang3

yjh_27 发表于 2014-12-25 21:25
请参考  抽签监考   的考场

老师您的这种还是和以前一样。
如果抽签的人数大于内容，可能会出现号码重复，即有多人抽出的内容是相同的。上附件，还麻烦您看下！ 抽签监考.rar (19.69 KB, 下载次数: 24)

2014-12-25 22:04 上传

点击文件名下载附件

yjh_27

yishang3 发表于 2014-12-25 22:04
老师您的这种还是和以前一样。
如果抽签的人数大于内容，可能会出现号码重复，即有多人抽出的内容是相同 ...

参见附件。
代码没动

EXCEL江湖

收藏学习！

yishang3

yjh_27 发表于 2014-12-25 22:27
参见附件。
代码没动

yjh_27老师，您好！抽出来的结果会不对！在抽签时，先抽15个不重复的，另剩下的再从15个中抽，则只有5个号是有重复的。

yjh_27

yishang3 发表于 2014-12-25 22:47
yjh_27老师，您好！抽出来的结果会不对！在抽签时，先抽15个不重复的，另剩下的再从15个中抽，则只有5个 ...

这个规则不公平

yjh_27

yishang3 发表于 2014-12-25 22:47
yjh_27老师，您好！抽出来的结果会不对！在抽签时，先抽15个不重复的，另剩下的再从15个中抽，则只有5个 ...

这个规则不公平

songzi2000

不错，我有学习了新东西