- 最后登录
- 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 编辑 9 X, R. h) }) r( N& G
1 X' O! b, [9 g# L( z+ Z
年后公司一个事业部准备进行一次集体面试，来应聘者比较多，并且都需要通过面试考试，考试内容有8个单元，每个单元有20道题，为了体现公平，招聘组决定题目由应聘者自己抽取。" k( G9 O" `/ D- s+ p2 R0 ?- m
# v4 D N; s% }/ `) C& Y9 \2 J怎么抽呢？用纸条写好抓阄显得太没水平了，于是考虑到用excel来解决，应聘者通过点击选题按钮获得题号，下图是截图。
! H& v! r9 h: r: L, l* w
2 g/ L2 B) ^7 C/ ~实现方法很简单，具体步骤如下：: d i8 R. g/ a, F& Q
1、题号那一列的单元格里使用随机函数，因为题数是20，所以只要在1~20中取随机数即可，函数为=RANDBETWEEN(1,20)
% ?! `, N+ K+ p( z. f- Z2、其实这样本来就可以了，要刷新只要按"F9"或者"Ctrl+R"即可，不过为了使用方便，决定在页面加入一个按钮，具体为“插入---ActiveX控件中的按钮”，然后在设计模式下修改按钮上的文字为“重新选题”，再双击按钮进入设计窗口，输入代码"ActiveSheet.Calculate".
% `7 T* L) I, c3、另存为“启用宏的工作薄”，到此一切搞定。（不过打开这个文件时需要同意这个文档启用宏）
* Q8 r' L K7 U9 E4 H4 F9 ^
% n: v$ i' K/ E0 N8 O& u+ s* `这两天继续优化推出：随机选题升级版
6 P: p$ G$ O4 @6 W5 h: U/ r, U2 {+ a( z3 B' i- _2 f
这个版本有两个按钮，按下开始选题时，题号会闪动变化，按下结束选题时，才停止。稍加修改，也可以做为抽奖程序。
/ L2 a$ O3 s3 K+ |实现方法：不用单元格函数，按钮的代码如下：7 c q$ x6 @( f
Dim a As Integer '
# L) y* p; J- W |+ LPrivate Sub CommandButton1_Click()
* {( h$ K% @3 i- H1 ua = 06 j9 I; j$ i5 u% o' H
Randomize '初始化
& Y( |* S) g0 M7 `2 {4 E( m10:: u/ L) n, j9 |: M+ N: _
For i = 1 To 8
( V& Z3 r4 `! jCells(i + 2, 3) = Int(Rnd() * 20) + 1 '在单元格中显示号码
* j' ]4 m% _% w' c/ bNext8 u. J% O9 k: o$ w( C
DoEvents '释放程序控制权
7 {5 X& P" l9 x( B2 X! w7 x6 f, N6 nIf a = 1 Then Exit Sub '如果按下“结束”钮则终止程序: ^$ k% h g+ u7 _
GoTo 10
( T! N, e% s2 BEnd Sub+ J7 X& W# q6 m& H9 ^
Private Sub CommandButton2_Click()
5 ~; F6 F y( e4 x$ A8 x. ba = 1 '结束标志8 P( B/ q* b1 K8 Z- r& Z
End Sub
}; Y* Q/ X, z) H |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？注册
-
总评分: 威望 + 10
金钱 + 20
贡献 + 10
查看全部评分
|
窥视卡
雷达卡
发表于 2013-2-19 15:36:37
转播
淘帖
分享
收藏
支持
反对
@朋友
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
还没看懂 ，我在研究一下
感谢补充！