实用抽签小工具

yjh_27 · 发表于 2014-7-15 21:09

本帖最后由 yjh_27 于 2014-7-22 13:25 编辑

来源：

求助：做一个实用抽签小工具
http://club.excelhome.net/thread-1135318-1-1.html

使用：
选a列单元格，抽签
选a1或a列整列，用于清空重抽
完成抽签后，按抽签号排序

补充内容 (2014-12-30 20:24):
适用于签数大于、小于、等于人数三种情况通用的抽签程序见26L

补充内容 (2019-6-9 13:42):
修改了抽签号随（对应）原始序号见32L

达州张先生 · 发表于 2014-7-15 23:22

很好，谢谢分享

aoe1981 · 发表于 2014-9-8 10:57

优秀作品！！
只是有点疑问：为何不用香川的经典数组洗牌法，获取不重复随机数，可以给所有参与抽签的用户一次性抽签到位的……

aoe1981 · 发表于 2014-9-8 10:59

请教：以下代码中32与13哪个是回车，哪个是空格？

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then
Call CommandButton1_Click
ElseIf KeyAscii = 13 Then
Call CommandButton1_Click
End If
End Sub

复制代码

yjh_27 · 发表于 2014-9-9 16:00

aoe1981 发表于 2014-9-8 10:57
优秀作品！！
只是有点疑问：为何不用香川的经典数组洗牌法，获取不重复随机数，可以给所有参与抽签的用户 ...

见原帖楼主要求。增加抽签人的参与度，减少程序作弊的嫌疑（至少给人感觉如此）。

13 回车
32 空格

详见Ascii 码表

aoe1981 · 发表于 2014-9-9 19:39

yjh_27 发表于 2014-9-9 16:00
见原帖楼主要求。增加抽签人的参与度，减少程序作弊的嫌疑（至少给人感觉如此）。

13 回车

哦，多谢指点……

yjh_27 · 发表于 2014-12-25 19:27

本帖最后由 yjh_27 于 2014-12-25 21:34 编辑

用电子表格实现两组监考教师考场抽签(急）
http://club.excelhome.net/thread-1175134-1-1.html

yishang3 · 发表于 2014-12-25 20:19

非常好的抽签工具，
抽签可能会出现三种情况：签数与人数相同，大于人数，小于人数。
如果出现抽签时签数少于抽签的人数，
即可能出现重复抽签，尽可能减少重复的抽签数。应如何修改代码！

yishang3 · 发表于 2014-12-25 20:20

非常好的抽签工具，
抽签可能会出现三种情况：签数与人数相同，大于人数，小于人数。
如果出现抽签时签数少于抽签的人数，
即可能出现重复抽签，尽可能减少重复的抽签数。应如何修改代码！

yjh_27 · 发表于 2014-12-25 20:46

yishang3 发表于 2014-12-25 20:20
非常好的抽签工具，
抽签可能会出现三种情况：签数与人数相同，大于人数，小于人数。
如果出现抽签时签数 ...

签数由B列决定，保持B、C列一致即签数与人数相同

无需改代码

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

[原创] 实用抽签小工具

评分