PPT 抽奖

在工作中会用到年会以及一些场景的时候，会使用到进行抽奖的环节，

1.以抽奖为例，
题目：
需要进行抽5等奖，5等奖共抽取人数52人，抽5次，分别按照数量10，10，10，10，12进行抽奖，且人员不能重复抽奖，抽奖后的数据需要保存，

PPT的代码和excel的代码不打一致，所有就导致了在运行的过程中会有一些的不习惯，直接上代码

Dim xlapp As Excel.Application //在使用中定义excel，后续进行调用
Dim flag As Boolean	//定义开关量
Dim temp As Integer	//定义临时使用数据
Dim nameArray() As String 	//定义人员名字清单
Dim newArr() As String	//定义人员名字清单——变更后
Dim Transfer_V As String	//定义存放数据内容

Private Sub sleep(ByRef n As Long)//定义暂停函数，避免数据更新太快，单位ms.
   Dim x As Long
   x = Timer * 1000 + n
   Do While x >= Timer * 1000
       DoEvents
   Loop
End Sub

Private Sub button1_Click()	//定义抽奖按钮，开始抽奖
    Dim names As String
    Dim grade_p As Integer ' the price grade
    Dim nameArray_05() As String
    grade_p = 10
    flag = False
    Dim nameArray() As String
    names = Slide6