澳门新葡萄京www27111com

澳门新葡萄京www27111com澳门新葡萄京www27111com下载资料维修视频
请登录  |  免费注册
当前位置:澳门新葡萄京www27111com > 澳门新葡萄京www27111com > 电脑技术 > 工具软件
Excel也来轻松做随机抽奖摇奖器
来源:本站整理  作者:佚名  2013-03-14 12:00:07



    过完春节,同学们回校后,提意再搞个班级联欢会,在联欢会上搞个抽奖刁布目,增添联欢会乐趣。由于我是班上的信息老师,自然准备抽奖摇奖器的任务就落到我身上,虽然现在有好多抽奖摇奖器软件,但它们都是共享,操作起来有这样那样的限制。

    为了方便操作,我也发挥一下自己的特长吧,使用Excel'决速做个简单而精美的随机抽奖小工具,操作不但简单,而且使用起来也灵活。

一、全界面随机抽奖
Step1:设计抽奖表格
我们班共有30位同学,就需要30个单元格存放同学的姓名或号码,填写好同学们的号码,并将这些表格美化。如设置字体、颜色和加上边框等。最后再把号码区以外的网格线隐藏起来(如图1)。


Step2:编写代码

    在工作表下面的标签上点鼠标右键,选“查看代码”,调出VBA窗口,写上以下代码,代码加了注释,比较好理解。

    Dim。As Integer’定义公共变量
      Private Declare Function mciExecute Lib "winmm.d11" (ByVal lpstrCommand As String) As Long’写在同一行
    Sub抽奖开始()
    Dim x As Integer
    Dim y As Integer
      a=0
    Randomize’初始化
      10:
    x=Rnd()*(7-2)+2生成25}7的随机数,代表行数
    y=Rnd()*(6-2)+2生成2至6的随机数,代表列数
    Range("b2:f7").Interior.Colorlndex=xlNone去掉填充色
    Cells(x, y).Interior.Colorlndex=3’填充为红色
    DoEvents.释放程序控制权,允许其他事件
    If a=1 Then Exit Sub’如果按下“抽奖结束”钮则终止程序
GoTo 10
End Sub
Sub抽奖结果()
A=1’结束标志
End Sub

    Step3:添加按钮
    回到Excel窗口,在“开发工具”选项卡的“控件”中,从“插入”中选择“表单控件”里的“按钮(窗体控件)”控件,在工作表中适合位置添加两个按钮,在每个按钮上点右键,选“编辑文字”,一个输入“抽奖开始”,另一个输入“抽奖结果”。

[1] [2] [3] [4]  下一页

关键词:

  • 好的评价
      0%(0)
  • 差的评价
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分)
Copyright © 2007-2017 澳门新葡萄京www27111comAll Rights Reserved .
页面执行时间:65,906.25000 毫秒