想用excel做一个自动抽奖程序(以下是电脑报介绍的内容,不知道为什么在我的电脑里操作失败)
同时按Alt和F11进入宏界面,点击插入菜单,粘贴以下代码:
布尔型Dim标志
次级aaa级()
将单元格作为范围变暗
做直到标记
范围(" C6:G10 ")。单元格(Int(Rnd() * 25) + 1)。挑选
多项活动
环
标志=假
末端接头
子bbb()
标志=真
末端接头
回到Excel,输入25个标签:G10(代码中粗体字根据实际情况修改),插入两个图形,比如方框,一个带“抽签”,一个带“暂停”,右键单击第一个方框,指定宏,aaa;右键单击第二个框并指定宏bbb。
去做吧。