用excel轻松搞定随机出题

国产吉普车

) B" p  c9 n: Y; q/ R  o+ i) E" ~年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
7 d6 Q+ {, B/ n: D% d& X. M- H
怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。
4 j2 S9 }# f+ K2 A
( D8 H, U% p6 F6 S实现方法很简单，具体步骤如下：
1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
; t. z3 |0 \0 M7 @6 V! _1 ?, r& V2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".
* f2 i$ ^* z. l+ |/ N, R6 p3 I3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）

. o! Q) C" w: a4 t6 m1 m! Z, Z$ S8 o这两天继续优化推出：随机选题升级版

这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
# E0 _# [5 [; @% X$ }: Q. u' D- }实现方法：不用单元格函数，按钮的代码如下：
Dim a As Integer '
Private Sub CommandButton1_Click()
a = 0
Randomize '初始化
  u  j/ Y' g( c10:
For i = 1 To 8
/ v4 D' K1 p$ X& z! xCells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
Next
DoEvents '释放程序控制权
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
7 {2 W5 ]' M2 e" u' D/ k% K) I   GoTo 10
End Sub
Private Sub CommandButton2_Click()
% L* a. X5 ]( N% Y/ w5 O' I( qa = 1 '结束标志
0 H4 Y2 R$ |- o; `End Sub

xymxhmrz

太笨了，不会用呢

国产吉普车

1591403 发表于 2014-4-17 12:03
' J; b/ h! \3 Z: }1 n, O学习了！控件的那个不知道什么原因，做不出来

) u* d) x5 [% F+ x) e* ^使用excel2010有些功能直接就集成在里面，可以直接用了。

xx0618

很高深的样子

dream82829

感谢分享

肖安安

强大的楼主，强大的Excel，一生要学习啊

1591403

学习了！控件的那个不知道什么原因，做不出来

hyc946

你太有才了！谢谢分享。

巫桃生

这个在招聘，培训考核中用起来都不错。
% ~2 D0 e" w! P4 |/ B! |0 j但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。
6 C; d+ n+ }1 C0 L9 m' U- c4 `# @另，EXCEL真的很强大啊，文盲掩面路过，我还要学。

hk5000518

感谢分享