【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。

您所在的位置：网站首页 › 用excel分类随机抽取几个人名单 › 【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。

【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。

2024-07-18 05:31:46| 来源: 网络整理| 查看: 265

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 = 0 Randomize '初始化 10: For i = 1 To 5 two = 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 '在单元格中显示号码 Next DoEvents '释放程序控制权 If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序 GoTo 10 End Sub Sub 结束() a = 1 '结束标志 End Sub

方案二：

功能描述：利用Excel表格函数 INDEX/RANDBETWEEN 函数，还有 VLOOKUP 函数；INDEX/RANDBETWEEN 函数实现抽奖器随机数的产生、VLOOKUP 函数实现号码单元格下方对应的显示内容。按住F9键不放手，抽取结果就会一直跳动，松开F9键，则生成抽取结果。当然，我这里也用简单的VB代码制作了两个按钮：在这里插入图片描述

VB按钮控制代码：

Dim k As Integer '定义公共变量 Sub start_Click() k = 0 Do [H100] = k DoEvents '释放程序控制权 Loop Until k = 1 If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序 End Sub Sub stop_Click() k = 1 '结束标志 End Sub

附录：源文件下载地址 (2019/06/30)

【本文地址】

公司简介

联系我们

今日新闻

点击排行

实验室常用的仪器、试剂和: 说到实验室常用到的东西，主要就分为仪器、试剂和耗

不用再找了，全球10大实验: 01、赛默飞世尔科技（热电）Thermo Fisher Scientif

三代水柜的量产巅峰T-72坦: 作者：寞寒最近，西边闹腾挺大，本来小寞以为忙完这

通风柜跟实验室通风系统有: 说到通风柜跟实验室通风，不少人都纠结二者到底是不

集消毒杀菌、烘干收纳为一: 厨房是家里细菌较多的地方，潮湿的环境、没有完全密

实验室设备之全钢实验台如: 全钢实验台是实验室家具中较为重要的家具之一，很多

图片新闻

实验室药品柜的特性有哪些: 实验室药品柜是实验室家具的重要组成部分之一，主要

小学科学实验中有哪些教学: 计算机计算器一般打孔器打气筒仪器车显微镜

实验室各种仪器原理动图讲: 1.紫外分光光谱UV分析原理：吸收紫外光能量，引起分

高中化学常见仪器及实验装: 1、可加热仪器：2、计量仪器：（1）仪器A的名称：量

微生物操作主要设备和器具: 今天盘点一下微生物操作主要设备和器具，别嫌我啰嗦

浅谈通风柜使用基本常识: 　众所周知，通风柜功能中最主要的就是排气功能。在

【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。

【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。

今日新闻

点击排行

推荐新闻

图片新闻

专题文章