用ppt如何做抽奖系统
做抽奖系统，我们需要先准备好以下这些元素： 1. PPT软件 2. 设计好的抽奖页面 3. 抽奖数据
接下来，让我们具体来看看步骤：
步骤一：设计好抽奖页面
通过PPT软件的编辑功能，可以制作出非常美观优雅的抽奖页面，可以使用PPT中的图形、图片、文本框、动画、背景音乐等元素进行设计。可以根据自己的喜好和主题进行设计。
步骤二：编写抽奖程序
PPT软件并不支持编写程序语言，所以我们需要利用Excel表格进行编写程序。这里简单介绍一下程序的编写方法。
（1）打开Excel表格，分别在第一行、第二行、第三行分别写入“奖项名称”、“奖项数量”、“奖项中奖率”。如下图所示：
（2）从第四行开始，写入对应奖项的名称、数量以及中奖率，如下所示：
（3）在第7行添加一个名为“抽奖号码”的列，并填写参加抽奖的人员的编号。可以根据需要设置编号的个数，或者在此设置奖品的数量。
（4）在Excel表格中，随机选出一个编号进行抽奖，抽到该编号的人员即可获得奖品。
步骤三：编写抽奖调用程序
通过VBA代码编写调用Excel抽奖程序的程序。代码如下：
Sub Lottery() Dim excel As Object Dim exapp As Excel.Application Dim exbook As Excel.Workbook Dim exsheet As Excel.Worksheet Set exapp = CreateObject("Excel.Application") Set exbook = exapp.Workbooks.Open("抽奖程序的Excel表格路径") Set exsheet = exbook.Worksheets("程序名称") '读取最后一行的抽奖号码 let lastrow = exsheet.Cells(exsheet.Rows.Count, "A").End(-4162).Row '随机选出一个抽奖号码 Randomize let result = Int(lastrow * Rnd + 1) '弹出中奖提示框 MsgBox (exsheet.Cells(result，"B")) End Sub
步骤四：在PPT里面添加抽奖调用程序的快捷键
把上一步中编写好的抽奖调用程序放置到PPT页中，并为其设置一个快捷键，如“F5”键或“Ctrl+L”。
至此，我们已经完成了用PPT制作抽奖系统的全部步骤。当需要进行抽奖时，只需要在PPT中选择合适的页面，按下设定好的快捷键调用程序，即可进行抽奖。在弹出的对话框中，只需要确认中奖的人员即可。
ppt编写一个抽奖系统
首先，你需要在ppt中创建一个新的幻灯片来编写抽奖系统。
1. 创建幻灯片：在首页选择“新建幻灯片”，选择一个模板来作为你的抽奖幻灯片。
2. 准备利用自带功能：ppt中内置了随机数生成器功能来帮你进行抽奖。
3. 准备奖项：为了进行抽奖，需要设置奖项。你需要选择“插入文本框”，并将标题设为“奖项”，列出所有你要抽取的奖项。
4. 编写宏：在ppt中，你还可以设置宏，以便随机选中一个参与者，并显示出所获得的奖项。要编写宏，选择“开发人员”选项卡，然后选择“Visual Basic”并给它一个名称，例如“抽奖宏”。
5. 编写代码：在弹出的Visual Basic编辑器中，在代码窗口中键入以下代码：
Sub 抽奖宏() Dim 参与者 As Integer 参与者 = Int(Rnd * ActivePresentation.Slides(1).Shapes.Count) + 1 ActivePresentation.Slides(1).Shapes(参与者).Select End Sub
请注意，代码中的“1”代表幻灯片中的第一张幻灯片，“参与者”代表你抽奖的对象，其中，“ActivePresentation.Slides(1).Shapes.Count”用于计算幻灯片中的形状数。
6. 关联宏：完成编写宏之后，你需要关联抽奖宏。选择“开发人员”选项卡，并在“Macros”列表中选择你的抽奖宏，并关联到一个活动按钮或形状。
7. 进行抽奖：现在，打开幻灯片并点击抽奖宏关联的按钮或形状，宏将随机选择一个参与者，并在幻灯片中突出显示他们所获得的奖项。
这就是编写ppt抽奖系统的简要步骤。希望这些说明能对你有所帮助，让你能够快速便捷地创建一个抽奖系统。
