用excel轻松搞定随机出题

国产吉普车

年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
7 E4 Z6 ]  z5 X* G  d! L9 m
# U" b6 K  Z& E3 C1 v) D/ G( N怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。

实现方法很简单，具体步骤如下：
- d" K% D9 k3 v; r" _1 F1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
/ G( z, v) B3 L% o3 A$ V/ [- I2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）
) o3 y3 e" F$ O8 `. X3 C$ q: j# n" ~
* \6 ]. L  M3 Y1 |6 m这两天继续优化推出：随机选题升级版
+ S  i* M  _+ e0 a& \+ \
) H2 O  U! E& y6 z$ B这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
实现方法：不用单元格函数，按钮的代码如下：
Dim a As Integer '
$ J2 n8 J) K! FPrivate Sub CommandButton1_Click()
$ A( c5 q" {0 M- P% i: m7 Ra = 0
Randomize '初始化
6 J, J, u) N+ e+ C10:
, ?9 {! F' X% J# X# cFor i = 1 To 8
Cells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
Next
8 A) F6 I. P: L9 W8 @7 B* Q% vDoEvents '释放程序控制权
) h! p" d+ Z4 UIf a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
  ^% n# g: v5 V9 W   GoTo 10
End Sub
Private Sub CommandButton2_Click()
a = 1 '结束标志
# b5 Z) G7 o1 [End Sub
3 Z1 i" L1 l/ U% p

蟹蓝

感谢分享

国产吉普车

蟹蓝 发表于 2013-2-21 13:46
. {% d3 V' ]8 d4 J; V+ K9 j感谢分享

; D1 N4 j7 h3 l2 P7 I谢谢你的鼓励！

一个人在外流浪

计算机真是太有用了

山村牧童

感谢分享！

罗恩

计算机太差了，不会

晏然07

还没看懂 ，我在研究一下

yytyuxi

& V- D4 A; D# _% {0 t) ~
有才人
, K: z9 O. T: Y" g# U$ g' r这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”

xm2010

这个真好，改天试试。

国产吉普车

yytyuxi 发表于 2013-3-6 08:39
7 M" C; P, o8 f8 W! {, a有才人
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...

+ ]& V& {# U4 o) Z8 Z感谢补充！