目录:
- 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)