【学习笔记】用Excel制作随机抽奖器(Visual Basic编程)。
目录:
- Excel 宏
- Excel 开发者工具
- Excel 添加按钮控件
- Excel VB(visual basic) 编程
- Excel 函数之 INDEX/RANDBETWEEN函数
- Excel 函数之 VLOOKUP函数
相关问题解决方案:
EXCEL做随机抽奖摇奖器(一)
Excel中如何插入按钮?
Excel 2016如何在快速访问工具栏添加控件命令?
方案一:
功能描述:利用Excel VB编程实现随机数的生成 Int(Rnd() * 55) + i ,将生成随机数赋值给单元格 Cells(3, 2) = two '在单元格中显示号码。
VB代码实例:
Dim a As Integer '定义公共变量Dim two As Integer '定义第二列单元格变量Dim three As Integer '定义第三列单元格变量Dim four As Integer '定义第四列单元格变量Sub 开始()a = 0Randomize '初始化10:For i = 1 To 5two = Int(Rnd() * 55) + i '在第二列单元格生成随机数three = Int(Rnd() * 15) + i '在第三列单元格生成随机数four = Int(Rnd() * 11) + i '在第四列单元格生成随机数Cells(3, 2) = two '在单元格中显示号码Cells(3, 3) = three '在单元格中显示号码Cells(3, 4) = four '在单元格中显示号码NextDoEvents '释放程序控制权If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序GoTo 10End SubSub 结束()a = 1 '结束标志End Sub
方案二:
功能描述:利用Excel表格函数 INDEX/RANDBETWEEN 函数,还有 VLOOKUP 函数;INDEX/RANDBETWEEN 函数实现抽奖器随机数的产生、VLOOKUP 函数实现号码单元格下方对应的显示内容。
按住F9键不放手,抽取结果就会一直跳动,松开F9键,则生成抽取结果。
当然,我这里也用简单的VB代码制作了两个按钮:
VB按钮控制代码:
Dim k As Integer '定义公共变量Sub start_Click()k = 0Do[H100] = kDoEvents '释放程序控制权Loop Until k = 1If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序End SubSub stop_Click()
k = 1 '结束标志
End Sub
附录:源文件下载地址
(2019/06/30)
【学习笔记】用Excel制作随机抽奖器(Visual Basic编程)。相关推荐
- 学习笔记:EXCEL制作动态考勤表
参考up主:探师澳,感谢嘤 [717补]根据视频从空白表格开始制作的,有get到很厉害的日期类公式,比如可以得到今天[星期二]这三个字,虽然up主说她也是百度的那记住就可,根据年份和月份得到该月的总天 ...
- 抽奖随机滚动_仅需2分钟,使用excel制作一个抽奖小工具,再也不用为抽奖发愁了...
Hello,大家好,今天跟大家分享下我们如何使用excel制作一个抽奖工具,他的制作也非常的简单,我们先来看下效果,按住F9键就能让名字滚动起来,松开F9键后就会停止,如下图 想要实现这样的操作也非常 ...
- 利用Excel巧制抽奖器
利用Excel巧制抽奖器 作者:闫华礼 为了提高职工的工作积极性,在给每位职工发奖金的同时,公司很多时候都会举行抽奖活动.抽奖是娱乐性活动,怎么样才能简单地办好呢?用Excel就可以! 一.创建抽奖工 ...
- springmvc学习笔记二:重定向,拦截器,参数绑定
springmvc学习笔记二:重定向,拦截器,参数绑定 Controller方法返回值 返回ModelAndView controller方法中定义ModelAndView对象并返回,对象中可添加mo ...
- EasyExcel 学习笔记 - 读Excel
EasyExcel 学习笔记 - 读Excel pom.xml 添加依赖 测试数据 实体类 自定义转换器 最简单的读 写法1 写法2 写法3 写法4 多行头(跳过N行) 读多个sheet 读全部 sh ...
- 编程学习笔记之python深入之装饰器案例及说明文档[图]
编程学习笔记之python深入之装饰器案例及说明文档[图] 装饰器即在不对一个函数体进行任何修改,以及不改变整体的原本意思的情况下,增加函数功能的新函数,因为这个新函数对旧函数进行了装饰,所以称为装饰 ...
- 抽奖随机滚动_怎么用EXCEL做个抽奖器
马上要开年度总结大会了,老板要你搞个抽奖环节,如果大家一起喊1.2.3,停,大屏幕上的幸运名单就停止滚动,随后就出现了前三名,这样还是挺酷的! 如下图: 上面这种效果其实实现起来一点都不难!下面我们就 ...
- WPF制作随机抽奖小程序
前些天学完了一些WPF的基础知识,闲来无事做了一个随机抽奖的小程序, 代码比较简单,核心的代码只有七行,其它的都是一些布局上的事情 . . 希望这个例子,能够帮助你, 大佬可以指点指点我, ^ _ ^ ...
- Noah的学习笔记之Python篇:装饰器
Noah的学习笔记之Python篇: 1.装饰器 2.函数"可变长参数" 3.命令行解析 注:本文全原创,作者:Noah Zhang (http://www.cnblogs.co ...
- EasyExcel学习笔记——本地excel的导入导出、Web端excel的导入导出
EasyExcel学习笔记 EasyExcel 用于 Java解析.生成Excel,是一个基于Java的简单.省内存的读写Excel的开源项目.在尽可能节约内存的情况下支持读写百M的Excel. 官方 ...
最新文章
- 联想g400从u盘启动计算机,联想g400u盘装系统的方法
- 人工神经网络能否驾驭生物神经元的“浓稠”程度?5到8层可能并非极限
- How can I pretty-print JSON in python?
- wxwidgets mysql_Ubuntu下wxWidgets学生公寓管理编程,sqlite3的用法(mysql数据_MySQL
- AUTH password
- P3391-[模板]文艺平衡树【Splay】
- 手动构建磁贴服务器(16.04.2 LTS)
- Git的GUI工具sourcetree的使用
- 网络虚拟化技术为双11提供灵动网络
- Qt工作笔记- 解决cc1plus.exe: error: out of memory allocating
- Trie 树内存消耗问题
- Extjs4.0 NumberField的使用
- agx 安装ros opencv_Ubuntu下安装realsense+melodic+OpenCV
- 在VB中使用Linq To SQLite注意事项
- unity3d圣典脚本基础学习C#版本
- 5G Wifi频段及信道介绍
- 运用PS做图片快捷键
- 毕业四年,我当初是如何走上编程这条路的!
- 管道工程和这个管道铺设过程中的电缆卫士--电缆故障测试仪 电缆测距 故障定点 路径查找 电缆综合故障测试仪 FB11
- Staking八月排行榜 | TokenInsight