基于VBA的Excel抽奖软件

Problem

一个抽奖软件,效果图如下。
点击随机数或者按钮3会进行抽奖。
在这里插入图片描述

Solution

1、Excel打开开发者工具
在这里插入图片描述

2、插入按钮,选择指定宏
在这里插入图片描述
在这里插入图片描述

3、编写VBA程序
在这里插入图片描述

4、另存为启用宏的xlsm
在这里插入图片描述

Codes

Sub ASD_Click()
Dim a As Integer
Randomize
a = Int(Rnd() * 59 + 1)
Range("a14") = a
End Sub

Sub ASDF_Click()
Dim x, y As Integer
Randomize
x = Int(Rnd() * 8 + 1)
y = Int(Rnd() * 8 + 1)
Range("a1:h8").Interior.ColorIndex = xlNone
Cells(x, y).Interior.ColorIndex = 3
End Sub
posted @ 2018-12-15 21:53  gwj1139177410  阅读(...)  评论(...编辑  收藏
选择