都说平安夜好搞活动
都说平安夜好搞活动，我的抽奖小程序发活动了
准备了10多个产品，迎接今晚的流量！
今天安排了10公众号同时推
加油！
Excel抽奖名单千万别学Excel
Excel抽奖名单千万别学Excel优质教育领域创作者
#EXCEL VBA#
问：用excel vba 写一个抽奖小程序，每人只有一次获奖机会
答：抽奖是一个随机性的过程，因此我们可以使用Excel VBA中的Rnd函数来实现随机抽奖。以下是一个简单的抽奖小程序：先载入名单，再点击抽奖，当所有人都获奖后，将不再出现获奖名单，需再次点击载入名单才可以继续。
Public participants() As Variant
Public numParticipants As Integer
Sub 载入名单()
participants = Range("A2:A11").Value
numParticipants = UBound(participants)
End Sub
Sub Lottery1()
On Error Resume Next
Dim luckyNumber As Integer '中奖号码
Dim winner As String '中奖者姓名
'随机生成中奖号码
luckyNumber = Int(numParticipants * Rnd + 1)
winner = participants(luckyNumber, 1)
'输出中奖者的姓名
Range("C2").Value = winner
Range("C3").Value = "恭喜" & winner & "成为本次抽奖的赢家！"
For i = luckyNumber To numParticipants - 1
participants(i, 1) = participants(i +
1, 1)
Next i
numParticipants = numParticipants -
1
End Sub
【北京税务有奖发票】这个微信小程序不错
【北京税务有奖发票】这个微信小程序不错，扫描发票即可抽奖
