中人网

标题: 用excel轻松搞定随机出题 [打印本页]
作者: 国产吉普车    时间: 2013-2-19 15:36
标题: 用excel轻松搞定随机出题
本帖最后由 国产吉普车 于 2013-2-22 16:47 编辑
$ Y' G. T( _; h# A9 J+ q" m
/ j8 ]) H! Z) h年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。1 T. j7 W) }' }6 E; e% e8 Y

: b2 e, C" [/ a- d怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。
6 P  n0 H8 H* @[attach]297549[/attach]& ~8 |! R: T' Z
实现方法很简单，具体步骤如下：
: k3 a; n! N+ t2 N3 P  W0 O9 ?6 H1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
6 ?+ a* f7 h! \3 v5 i2 [7 ]$ G2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".# \2 w* Z4 |6 e& o' ?
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）[attach]297550[/attach]
: }9 w# o- ]. k& W/ L$ P5 h3 I2 L% p3 i& H+ t
这两天继续优化推出：随机选题升级版4 o) [$ H0 a1 }2 @
[attach]297625[/attach]
+ R$ P) f! x2 D. P, O( M2 p9 X3 }8 |这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
  l0 I  G  |5 _0 q* J实现方法：不用单元格函数，按钮的代码如下：
; F- x9 @8 l  J# ODim a As Integer '
( d4 Y( J: ?0 q* I7 c1 W6 TPrivate Sub CommandButton1_Click()# i5 \1 N; g0 S# a" s( p
a = 0
& j" x2 R& d* R- ]& VRandomize '初始化! R1 O3 E/ M$ @/ F2 z$ V
10:
2 c$ F  e% E6 I, N" n! {8 |5 u. |7 EFor i = 1 To 80 F9 o% \6 m6 c/ O6 `
Cells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码' ^3 e. y3 J7 _! {
Next
, Y! a. M# @0 _, f& Q6 m; y  T) NDoEvents '释放程序控制权
/ _7 ~) @* ], _% m! SIf a = 1 Then Exit Sub '如果按下“结束”钮则终止程序6 E( W* I0 N, M0 y+ i4 W  H, j  r
   GoTo 10
7 R' N) d! Q2 @# uEnd Sub) O; G3 {* t/ p& K( |9 G3 l6 n
Private Sub CommandButton2_Click()( [/ W3 {7 H8 r2 f5 J
a = 1 '结束标志- ?! }8 ]5 p5 n8 |4 l/ r
End Sub
2 C* @0 c, ^7 g% @$ N- C3 O. s( W[attach]297626[/attach]
作者: 蟹蓝    时间: 2013-2-21 13:46
感谢分享
作者: 国产吉普车    时间: 2013-2-22 15:32
蟹蓝 发表于 2013-2-21 13:46 : v2 s; v( P, k$ j' i( v7 M0 U* k
感谢分享

% a( Q( S8 G/ |8 t2 B. [! H谢谢你的鼓励！
作者: 一个人在外流浪    时间: 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 编辑
$ G0 E6 H$ Q9 Q; A( @7 t$ [% V* ~3 h' J! }- ~/ [+ |) T0 V7 @
有才人
9 r* ?2 _7 ^, Q3 \- Q$ ^3 j  c2 _! c这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”
作者: xm2010    时间: 2013-3-6 09:18
这个真好，改天试试。
作者: 国产吉普车    时间: 2013-3-18 11:02
yytyuxi 发表于 2013-3-6 08:39 5 N. M: J/ {. s* H) D! ?
有才人
" Y% M4 C5 [* g0 s7 l% z7 Y这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...

  Z% Q$ y1 q0 X9 H* }2 t3 n感谢补充！
作者: 林乐小四    时间: 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
这个在招聘，培训考核中用起来都不错。' q6 o  F% M; g8 {# j; g& J# S* j
但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。
" S0 C6 @  k+ N7 i, ]% N另，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
0 z1 {. S% r8 E" `+ @. C学习了！控件的那个不知道什么原因，做不出来

7 o1 U* E4 ?$ G  @使用excel2010有些功能直接就集成在里面，可以直接用了。
作者: xymxhmrz    时间: 2014-10-24 11:04
太笨了，不会用呢



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