中人网

标题: 用excel轻松搞定随机出题 [打印本页]
作者: 国产吉普车    时间: 2013-2-19 15:36
标题: 用excel轻松搞定随机出题
本帖最后由 国产吉普车 于 2013-2-22 16:47 编辑
9 S- X/ D' K& Q2 `' m' ^( G" Q: w7 F
& V$ j4 q  f) K, f1 B6 z8 G- u年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
: g7 W( {: }2 N$ ]/ T
. R0 b3 N, Z! }4 n怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。+ Y! q8 j9 f8 ~% L) w
[attach]297549[/attach]3 C. ~# }* a7 S
实现方法很简单，具体步骤如下：
5 e- f- _3 g4 w# a1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
- o* V& C7 F* R3 X2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".' x0 R4 E9 r8 s0 o! f6 H
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）[attach]297550[/attach]. d& v: k( s* g% r3 P
( F! {" d& J5 Y% b( o
这两天继续优化推出：随机选题升级版/ }- n* d& u1 W+ Y* C2 C4 l; l
[attach]297625[/attach]/ x! ~4 u( h+ u3 O% U. K
这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
7 v( \/ T; G5 |- c& x5 W实现方法：不用单元格函数，按钮的代码如下：0 {" f5 O% T" f( P% U6 K% [
Dim a As Integer '- @; _8 T0 y) r. i# j# C( X0 x: h
Private Sub CommandButton1_Click()
. A- m4 S" v" J7 ^2 S! I; Aa = 0
  v/ d6 v! ^1 l6 VRandomize '初始化
" }; R, v8 z) m6 l10:
; p: ~" {2 G% B3 o9 L& }$ s- X  W2 b7 r3 _For i = 1 To 8: ?3 ]7 r# g* ~/ H# l+ ]2 l+ W, f2 k* i
Cells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
2 e# e) P7 k: g, c! v. K  Q" yNext5 {  J5 x8 e) W" ^% X9 w
DoEvents '释放程序控制权! p8 d- _; b# V! U5 l
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
2 x, D1 D: n. P% E; e3 Y   GoTo 10  U. R- m+ U' d7 h5 G/ ]4 r( l
End Sub; b+ \% H( j/ M8 B; ?, v+ a
Private Sub CommandButton2_Click()8 E9 a- M" x* q* Y  ]
a = 1 '结束标志. s3 ?8 z: n; q8 {1 W
End Sub& ^$ I1 @/ s: @3 X- E5 P
[attach]297626[/attach]
作者: 蟹蓝    时间: 2013-2-21 13:46
感谢分享
作者: 国产吉普车    时间: 2013-2-22 15:32
蟹蓝 发表于 2013-2-21 13:46
! P, s, h, }1 v+ L) d: U) ?感谢分享

' n* \' ^( }) w; d& V谢谢你的鼓励！
作者: 一个人在外流浪    时间: 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 编辑 0 O; L! y$ [5 E- ^3 S5 E. b
8 x* a1 s& Y& z( D
有才人* e3 G* I" Q# ~* v" t1 O
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”
作者: xm2010    时间: 2013-3-6 09:18
这个真好，改天试试。
作者: 国产吉普车    时间: 2013-3-18 11:02
yytyuxi 发表于 2013-3-6 08:39 $ T5 w  ~4 @( r
有才人( N8 ?6 k! {: d
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...
" _& T9 u! X9 p6 Q% n* V
感谢补充！
作者: 林乐小四    时间: 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 P8 c/ ~# S7 p9 T7 ^5 n但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。% u9 N( f% \) `1 m6 y4 j
另，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 2 E; l3 Q% ^2 ?" L+ A
学习了！控件的那个不知道什么原因，做不出来

0 l2 o9 `  M* _' R5 T/ D使用excel2010有些功能直接就集成在里面，可以直接用了。
作者: xymxhmrz    时间: 2014-10-24 11:04
太笨了，不会用呢



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