基于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