中人网

标题: 用excel轻松搞定随机出题 [打印本页]
作者: 国产吉普车    时间: 2013-2-19 15:36
标题: 用excel轻松搞定随机出题
本帖最后由 国产吉普车 于 2013-2-22 16:47 编辑
# I1 @* Z4 }0 q7 j+ V2 H  \. A3 ?8 o" \' r
年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。2 i2 P# J$ I. r

) G% x& l0 b; m. I+ G7 }怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。( J" E( {& ^& I+ g3 Q1 R0 K5 R
[attach]297549[/attach]' s/ _8 U1 t5 }" k, m
实现方法很简单，具体步骤如下：2 v, R$ D8 h1 ]1 q, o3 h: f1 u2 |+ O
1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
% e+ Y% J+ ?5 z$ l* J2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".7 U) m; ^1 S$ l2 M7 d1 F
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）[attach]297550[/attach]# _+ T/ m# n& v* e
3 v+ t1 a& |3 O
这两天继续优化推出：随机选题升级版
( l( i+ M( h5 r" V* `& K[attach]297625[/attach]
8 \) h2 O$ ]# F* M这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。4 w* F9 V3 e/ |8 g( L$ N
实现方法：不用单元格函数，按钮的代码如下：3 G$ c/ S  m4 d/ K# j# h9 U
Dim a As Integer '
  b1 @( Q4 L9 M4 BPrivate Sub CommandButton1_Click()2 c: N7 D5 t8 Z- l
a = 0  g$ G& H: N& \+ b* H, @
Randomize '初始化0 t% n/ S( k- e- e0 z
10:( ~3 l8 I( d) q0 @
For i = 1 To 8! y- P$ L$ H1 r; h. v. _- ^( j
Cells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码/ A$ A, n) i% h6 E4 @7 U* y# c7 a
Next& z+ i+ p$ ]" c0 B9 c4 Q# C
DoEvents '释放程序控制权& o/ N/ L5 s% y9 Y# J3 W
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
$ g3 T0 I# W% v, h3 n! R   GoTo 10
/ r3 {8 d6 _, ]9 B9 S; ~, q# pEnd Sub. M+ ?% o; k  c; P, y6 \5 p
Private Sub CommandButton2_Click()
8 l9 w( Q8 e! y& O: V  [5 na = 1 '结束标志! i: S7 D# y$ @" `7 w
End Sub
+ d+ |) {! x6 `6 a+ L' S[attach]297626[/attach]
作者: 蟹蓝    时间: 2013-2-21 13:46
感谢分享
作者: 国产吉普车    时间: 2013-2-22 15:32
蟹蓝 发表于 2013-2-21 13:46
( H/ ~* D' ~8 _# l感谢分享
4 m' Z5 ~# h- [, T% @- B+ W
谢谢你的鼓励！
作者: 一个人在外流浪    时间: 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 编辑 : C$ O, K8 ^8 ^, O1 T% ~- t

- w( e7 x! Y3 t" i. p! P. `2 i有才人
' d! v  g8 F; L8 ]8 x: B7 y这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库”
作者: xm2010    时间: 2013-3-6 09:18
这个真好，改天试试。
作者: 国产吉普车    时间: 2013-3-18 11:02
yytyuxi 发表于 2013-3-6 08:39 5 Y8 A! h  r: m" z3 n5 \
有才人; O2 b+ ^+ m6 W+ v! g2 _
这个RANDBETWEEN函数，在03版不能用，需要加载宏，具体操作： 工具-加载宏……勾选“分析工具库” ...
# d3 m. b, f* U- p
感谢补充！
作者: 林乐小四    时间: 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
这个在招聘，培训考核中用起来都不错。: [1 T* h. P& [- K: H$ `& a+ V
但是那个显示出来的都是题号，你们采用的是上机招聘还是试卷，上机的话就方便，可是如果试卷可能在招聘现场会有一些凌乱。
& D: F0 N( P( i另，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
/ Y0 _) u- n3 K学习了！控件的那个不知道什么原因，做不出来

- I. w+ q0 _; D% J' T1 `  j使用excel2010有些功能直接就集成在里面，可以直接用了。
作者: xymxhmrz    时间: 2014-10-24 11:04
太笨了，不会用呢



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