用EXCEL做抽奖小程序，怎样设置内定名单

时间：1575次浏览2023.08.08提问

已解决问题

hao231知道平台可亲可爱的匿名用户网友在1575次浏览2023.08.08提问提了关于办公软件软件相关的问题，他的提问经常用EXCEL做抽奖小程序，怎样设置内定名单办公软件软件希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，不知道说什么,送你一朵小红花吧！

第1个回答

红苹果2023.08.08回答提问者采纳使用说明先插入两个按钮,指定为开始和结束宏将内定人员宏设置快捷键，比如Ctrl+Q在运行中按快捷键可以指定人员DimlAsByteDim内定AsByte'公共变量Sub开始()***.screenupdating=TrueDimarr()arr=Range("C3").CurrentRegionl=0内定=0Doj=application.***.randbetween(1,UBound(arr))+2k=application.***.randbetween(1,UBound(arr,2))+2Cells(j,k).Select'随机选择单元格[C13]=***.value'在C13位置显示大号结果的单元格,自己调DoEventsLoopUntill=1'直到点击结束才会停止运行***.screenupdating=FalseIf内定=1Then[E5].Select'内定人员的单元格[C13]=***.valueEndIf***.screenupdating=TrueEndSubSub结束()l=1EndSubSub内定人员()内定=1EndSub