- 最后登录
- 2015-1-26
- 注册时间
- 2010-1-29
- 威望
- 49
- 金钱
- 746
- 贡献
- 180
- 阅读权限
- 30
- 积分
- 975
- 日志
- 0
- 记录
- 6
- 帖子
- 85
- 主题
- 11
- 精华
- 1
- 好友
- 4
 
签到天数: 15 天 [LV.4]偶尔看看III  - 注册时间
- 2010-1-29
- 最后登录
- 2015-1-26
- 积分
- 975
- 精华
- 1
- 主题
- 11
- 帖子
- 85
|
本帖最后由 国产吉普车 于 2013-2-22 16:47 编辑
! K$ l4 M" _' k0 I, }2 V. Z7 k2 U1 |% Z# ^; i. `* j/ O! z% v3 ]
年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。
! \* x: p& s+ R" R* {5 X* _' F
3 M" l0 @, h# d' b2 j2 u怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。( X+ k) p& B) J# H& Y
( l2 ~1 b6 C8 Q3 N) T: A. g. B" ]
实现方法很简单，具体步骤如下：
/ n5 Y6 i* F) V, `1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
. r1 P/ y% E: J+ F% r/ {2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".6 G, o) Y1 a& t- `! C% P
3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）
2 l/ C5 Y' k; \1 c6 Y; e2 C4 \4 Y) y! m7 i+ L; |- l ]8 v" g
这两天继续优化推出：随机选题升级版. t+ S$ n- v* [: x& ~' z
$ K4 s2 `+ Q- q1 x5 g这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
+ v) P0 d/ L/ D实现方法：不用单元格函数，按钮的代码如下：- x" Q# g( L4 `0 |
Dim a As Integer '1 i$ j8 k% f% S5 ~
Private Sub CommandButton1_Click()
/ a+ h) @ P' D( p6 da = 0- L3 A9 h( [$ L" r9 e& b
Randomize '初始化
! y3 g3 i! [3 n) ?1 T" `/ J: h10:
& z1 H& v0 n* s5 l \( h$ u- qFor i = 1 To 8
7 A4 Q! j0 {4 t* cCells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码# u+ Y( V9 M, g+ m6 F
Next
( ?& W) U8 ^& H3 @DoEvents '释放程序控制权
9 M" i7 c, `2 r: q6 tIf a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
1 K2 X- ~5 j6 V. H, H GoTo 10
* p- f; W& _: ~8 GEnd Sub) G- h8 j$ M2 u q& ^1 c1 t
Private Sub CommandButton2_Click()
) ^ R" f q/ Fa = 1 '结束标志
" N: \) H1 ]8 H' f7 T! [+ d5 tEnd Sub' K( N. {5 d9 W: _" x$ r
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？注册
-
总评分: 威望 + 10
金钱 + 20
贡献 + 10
查看全部评分
|
窥视卡
雷达卡
发表于 2013-2-19 15:36:37
转播
淘帖
分享
收藏
支持
反对
@朋友
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
还没看懂 ，我在研究一下
感谢补充！