求助：做一个实用抽签小工具

河北快乐启航 · 发表于 2014-7-8 15:11

yjh_27 发表于 2014-7-8 11:23
选择单个a列单元格，抽签
选择多个a列单元格，可清除

试用了一下，发现有如下小问题：（1）点击A列中某单元格，如果选择取消，则光标仍在该单元格，且能输入数字；（2）点击A列某单元格，如果选择确定，自动生成抽签号后，光标扔停留在该单元格，且按Esc可以取消，并重新抽签；能否修正一下呢？其他还是很好用。非常感谢！我继续试用......

yjh_27 · 发表于 2014-7-8 16:35

河北快乐启航发表于 2014-7-8 15:11
试用了一下，发现有如下小问题：（1）点击A列中某单元格，如果选择取消，则光标仍在该单元格，且能输入数 ...

结束前加一句

Target.Offset(0, 1).Select
End Sub

河北快乐启航 · 发表于 2014-7-9 06:50

yjh_27 发表于 2014-7-8 16:35
结束前加一句

好的，我试一下。非常感谢！

河北快乐启航 · 发表于 2014-7-9 16:33

还有人有更好的办法吗？谢谢

河北快乐启航 · 发表于 2014-7-11 09:49

yjh_27 发表于 2014-7-8 16:35
结束前加一句

昨天开会借用了您给帮忙设计的抽签工具，非常棒！小工具提高了工作效率！非常感谢！但在使用过程中有人提出如下修改建议，您看能否帮忙改进一下？1、抽签完成后，按照抽签号码升序排列。即：1、2、3......；2、增加一个显示区域：用来显示目前还剩哪些号没有抽取，抽取完后自动删除该号（这是本次使用过程中质疑说号码是我们提前设定好的，我们得现场演示软件的随机性进行解释）；3、增加开始、结束按钮。点击开始后号码轮流显示也好、或只给文字提示也好，让抽签人员觉得自己掌握命运。4、可以设计成窗体操作，也可以是在另一个工作表中单独操作，怎么弄简单省事怎么弄，不求华丽，只求实用。如能帮忙改进，不胜感激！再次感谢！

yjh_27 · 发表于 2014-7-11 18:16

本帖最后由 yjh_27 于 2014-7-11 23:00 编辑

1 抽签完成后，按照抽签号码升序排列
2 显示目前还剩哪些号没有抽取，
全选a列或选a1 则选择抽签区用于清空重抽
见附件

只要是程序，质疑是不可避免的，正常的。

河北快乐启航 · 发表于 2014-7-12 09:05

yjh_27 发表于 2014-7-11 18:16
1 抽签完成后，按照抽签号码升序排列
2 显示目前还剩哪些号没有抽取，
全选a列或选a1 则选择 ...

刚下载测试了一下，全选a列或选a1则选择抽签区，用于清空重抽，可以有效避免抽签作弊，这改进挺强！
我想：1、能否在已显示的库存号码上加个突出显示的光标，轮流在这些号上快速闪烁，好像是在随机选号的过程中，然后点击确定按钮后，光标停留在所选号码上，显示现有的“抽取的是**个，**号”；给人的感觉就是操作本人自己操作的结果，并不是我们提前分配好的号码；
2、最后1个空号也让它显示一下吧，跟前面一样；显示后再确认；
也发现个小问题：抽签完成后自动排序，只是抽签号排序了，后面：原始号、单位、课题等内容没有跟着签号重新排序；期待修改一下，谢谢！现在的版本我先用着。再次感谢！祝热心的您天天开心！Q513667000

yjh_27 · 发表于 2014-7-12 14:57

本帖最后由 yjh_27 于 2014-7-12 20:01 编辑

河北快乐启航发表于 2014-7-12 09:05
刚下载测试了一下，全选a列或选a1则选择抽签区，用于清空重抽，可以有效避免抽签作弊，这改进挺强！
我想 ...

参见附件。

yjh_27 · 发表于 2014-7-22 08:09

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

应楼主要求空二行，标题行

jeven1987 · 发表于 2017-2-22 14:00

yjh_27 发表于 2014-7-22 08:09
应楼主要求空二行，标题行

您好，之前看过您帮助别人做的抽签程序的帖子，感觉非常棒，可是和我的需求有点小出入，可以否帮忙完成个excel的抽签程序呢？不甚感激，这是我的帖子：抽签程序，大神帮忙，跪谢
http://club.excelhome.net/thread-1329712-1-1.html
(出处: ExcelHome技术论坛)

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

[求助] 求助：做一个实用抽签小工具

评分