用excel轻松搞定随机出题

国产吉普车

' Z& k; U$ I: ?" H! f0 d2 h6 `- a年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
- E+ m1 t3 D" x  [" }0 P8 |+ g6 T
% Z6 q2 p3 }. v! L  a怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。

9 @& W4 x  d# ]  S# \3 E( w' H& M实现方法很简单，具体步骤如下：
9 F1 d2 K. _  ~- x! q9 t1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".
9 l8 w. x- e2 [3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）
- V9 t) I7 \3 T. y7 U- t8 M& n* U% @+ E; O
! o4 {8 C% \0 ?  X; n2 k9 ~这两天继续优化推出：随机选题升级版

$ c, _! r7 L3 `* N4 a2 E这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
& D# F" a8 Y) v% Q& }  B实现方法：不用单元格函数，按钮的代码如下：
Dim a As Integer '
Private Sub CommandButton1_Click()
* U; r. H+ l1 g( F" ra = 0
Randomize '初始化
7 ]; A4 g2 f. f/ c# f10:
For i = 1 To 8
& h3 c8 S. l7 L4 xCells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
! i. v5 s0 o$ |, Z- GNext
6 Z! b! G6 t" U2 w! LDoEvents '释放程序控制权
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
8 T2 E$ |# g* A0 [" H3 s   GoTo 10
End Sub
Private Sub CommandButton2_Click()
a = 1 '结束标志
End Sub
! T- m" k! I3 m) k/ r6 D: G

蟹蓝

感谢分享

国产吉普车

蟹蓝 发表于 2013-2-21 13:46
. c. x3 ?! q7 ?  v5 y' [8 J7 y感谢分享

谢谢你的鼓励！

一个人在外流浪

计算机真是太有用了

山村牧童

感谢分享！

罗恩

计算机太差了，不会

晏然07

还没看懂 ，我在研究一下

yytyuxi

1 u  |0 C/ ]" n  l9 v3 H5 z
0 ]& r( m2 |1 X( y有才人
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”

xm2010

这个真好，改天试试。

国产吉普车

yytyuxi 发表于 2013-3-6 08:39
; X1 b( w7 H; i* p! W5 a* z有才人
3 S7 |( o# j" k$ |: e这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...

) u% ]" ~7 n. s5 |感谢补充！