中人网

标题: 用excel轻松搞定随机出题 [打印本页]
作者: 国产吉普车    时间: 2013-2-19 15:36
标题: 用excel轻松搞定随机出题
本帖最后由 国产吉普车 于 2013-2-22 16:47 编辑
# c6 _/ x: _' x, w' Q1 J
: q- a( _. p; g/ y: C年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
" O' o* y8 Q- R1 |& e
: u& r( }# M$ m* V4 i7 r怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。; e! r; U( `+ i1 _! |
[attach]297549[/attach]
$ X& f8 S! l2 w4 N实现方法很简单，具体步骤如下：
. y, s( m7 r2 d* K3 e/ y0 F) _1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)% Y# p( R* K& {, K/ l* J
2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".( a, [' I" @; y7 Q, i2 a1 U
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）[attach]297550[/attach]1 [# y) ?) q8 Z$ J) _3 z

$ C. h7 d6 N2 X: N这两天继续优化推出：随机选题升级版& L$ R) H! d# |) [, ]
[attach]297625[/attach]
& \3 E5 p. p( w4 Z0 D; b9 ?! z这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
) S8 ?9 F5 _0 b* m1 J实现方法：不用单元格函数，按钮的代码如下：2 c, I& U: I) I* y% \" l
Dim a As Integer '
7 P% b) I3 K$ P( ^( LPrivate Sub CommandButton1_Click()
4 b" N9 V8 v% h" Aa = 0
5 I8 T* \* O. g) r' YRandomize '初始化
0 t# j: L/ c# T2 d8 e0 O: U5 i10:0 R+ Z8 m9 k( G7 q- s/ z
For i = 1 To 8
* h" M4 v# \$ K: r( `6 \Cells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
3 f. n8 G: ?4 u, R; m' q- [# HNext
" _& {( ]6 [3 @- x% gDoEvents '释放程序控制权
& f; a/ Z, }' ^$ bIf a = 1 Then Exit Sub '如果按下“结束”钮则终止程序! U. f, o; D5 r# ~4 H9 F
   GoTo 10
2 g8 M  {7 `0 M8 l- q7 _1 l; y0 mEnd Sub9 q  V2 d0 I# R1 J( V3 i& m3 r
Private Sub CommandButton2_Click()6 C: v9 h# v* A! d
a = 1 '结束标志2 X0 A, Y9 Z  m( [
End Sub
$ @9 Y# e' F; W[attach]297626[/attach]
作者: 蟹蓝    时间: 2013-2-21 13:46
感谢分享
作者: 国产吉普车    时间: 2013-2-22 15:32
蟹蓝 发表于 2013-2-21 13:46
7 U/ }% |3 z9 \! ?- [2 |# _感谢分享

5 _! V2 l0 `2 u" Y. ]! ]4 v% e) ^谢谢你的鼓励！
作者: 一个人在外流浪    时间: 2013-3-5 21:38
计算机真是太有用了
作者: 山村牧童    时间: 2013-3-5 22:13
感谢分享！
作者: 罗恩    时间: 2013-3-6 08:09
计算机太差了，不会
作者: 晏然07    时间: 2013-3-6 08:09
还没看懂 ，我在研究一下
作者: yytyuxi    时间: 2013-3-6 08:39
本帖最后由 yytyuxi 于 2013-3-6 09:58 编辑 # n$ W* l. V# N
" h; t: N! }6 {+ W6 x' g
有才人% m) v' w  e' B7 F8 r5 X4 |2 ~
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”
作者: xm2010    时间: 2013-3-6 09:18
这个真好，改天试试。
作者: 国产吉普车    时间: 2013-3-18 11:02
yytyuxi 发表于 2013-3-6 08:39 : D! a; @# X; i! C" ^& d6 y! a) X' Z
有才人$ h! X9 f+ p& D$ q1 A# ~3 e  g
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...
/ v5 A: y/ Q4 V6 d% r
感谢补充！
作者: 林乐小四    时间: 2013-3-29 14:12
试过了，留着，以后估计会有用的
作者: sunchen1028    时间: 2013-4-8 11:06
学习下。看以后有用不。感谢分享。
作者: samantha83    时间: 2013-4-9 15:14
我也想学习一下
作者: 许淳    时间: 2013-4-18 13:15
很不错的！
作者: 雅琦    时间: 2013-5-14 11:47
相关函数应该在07版本里面吧，我用的是03版本的，根本就不能用。
作者: 张谜    时间: 2013-5-27 09:30
好复杂呀，Excel要不要这么强大呀
作者: Audy.zhang    时间: 2013-6-18 10:14
谢谢分享
作者: hk5000518    时间: 2013-7-9 21:33
感谢分享
作者: 巫桃生    时间: 2013-7-11 19:51
这个在招聘，培训考核中用起来都不错。
2 H" G0 U1 Y, L4 w但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。% R# Q# K+ S' R
另，EXCEL真的很强大啊，文盲掩面路过，我还要学。
作者: hyc946    时间: 2014-3-12 14:49
你太有才了！谢谢分享。
作者: 1591403    时间: 2014-4-17 12:03
学习了！控件的那个不知道什么原因，做不出来
作者: 肖安安    时间: 2014-4-18 11:46
强大的楼主，强大的Excel，一生要学习啊
作者: dream82829    时间: 2014-4-18 14:23
感谢分享
作者: xx0618    时间: 2014-4-18 16:41
很高深的样子
作者: 国产吉普车    时间: 2014-9-16 14:56
1591403 发表于 2014-4-17 12:03
9 S: w% A5 w# t! a. \学习了！控件的那个不知道什么原因，做不出来

+ `: ]9 l5 h' `8 V: `使用excel2010有些功能直接就集成在里面，可以直接用了。
作者: xymxhmrz    时间: 2014-10-24 11:04
太笨了，不会用呢



欢迎光临 中人网 (http://bbs.chinahrd.net/) Powered by Discuz! X2.5