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