用excel轻松搞定随机出题

国产吉普车

  E! y- [1 T5 R/ a1 q0 `  a; A
$ f( \& `1 j, f" P/ v年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。

5 T2 F$ _3 K) k; R) S, O怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。

实现方法很简单，具体步骤如下：
( j5 b$ Y3 c$ o  D. E: W# k1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）
7 [) g7 X5 |& V" C, U$ p  Y
; P% s) |' J1 W/ G$ c这两天继续优化推出：随机选题升级版
4 B; s. v3 p' a) f/ x! y+ I: a
这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
+ C5 f( E# x* `- E8 y2 U  q实现方法：不用单元格函数，按钮的代码如下：
: Z6 o# y$ b4 \3 w9 FDim a As Integer '
! f6 |5 Z- s  P( WPrivate Sub CommandButton1_Click()
a = 0
  n" Z# ~1 K$ N. A3 Q' O$ nRandomize '初始化
10:
4 Q& T& @' v+ Z! @7 Y+ Q$ T* nFor i = 1 To 8
1 ~, }+ o2 ?: U' ?7 A/ oCells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
Next
) Q5 |/ M* H. |  }1 ~* CDoEvents '释放程序控制权
3 b7 P! N0 u* x4 z$ G* Y0 B6 |, ^If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
( P) ^) a& P! M0 u8 E2 o/ r6 C% t   GoTo 10
End Sub
Private Sub CommandButton2_Click()
a = 1 '结束标志
End Sub

xymxhmrz

太笨了，不会用呢

国产吉普车

1591403 发表于 2014-4-17 12:03
- o+ {" f) S9 Q9 f* [1 _学习了！控件的那个不知道什么原因，做不出来

' S; Z3 Z# O3 @5 i% x& S: a' Q使用excel2010有些功能直接就集成在里面，可以直接用了。

xx0618

很高深的样子

dream82829

感谢分享

肖安安

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

1591403

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

hyc946

你太有才了！谢谢分享。

巫桃生

这个在招聘，培训考核中用起来都不错。
但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。
另，EXCEL真的很强大啊，文盲掩面路过，我还要学。

hk5000518

感谢分享