如何用Excel设置转盘抽奖？如何实现抽奖效果？
作者：佚名|分类：EXCEL|浏览：170|发布时间：2025-04-10 20:15:43
如何用Excel设置转盘抽奖？如何实现抽奖效果？
随着科技的发展，抽奖活动已经成为各类活动、促销和娱乐中不可或缺的一部分。在Excel中设置转盘抽奖不仅能够增加活动的趣味性，还能提高参与者的积极性。下面，我将详细讲解如何在Excel中设置转盘抽奖，并实现抽奖效果。
一、准备工作
1. 准备Excel表格：打开Excel，创建一个新的工作簿，准备用于设置抽奖活动。
2. 准备奖品列表：将所有奖品名称列在工作簿的第一列，如A列。
3. 准备中奖概率：根据奖品数量和需求，设置每个奖品的中奖概率。将中奖概率列在工作簿的第二列，如B列。
二、设置转盘抽奖
1. 创建转盘图形
（1）选中A列，将奖品名称拖动到工作表上，形成一个圆形。
（2）选中圆形，点击“插入”菜单，选择“形状”，然后选择一个圆形。
（3）调整圆形大小，使其与奖品名称的圆形相匹配。
2. 设置转盘分割
（1）选中圆形，点击“绘图工具”下的“添加文本”。
（2）在圆形上添加文本框，输入“开始抽奖”，并将其放置在合适的位置。
（3）选中圆形，点击“绘图工具”下的“格式”，选择“形状填充”，然后选择“无填充颜色”。
（4）选中圆形，点击“绘图工具”下的“形状轮廓”，选择“无轮廓”。
（5）选中圆形，点击“绘图工具”下的“形状效果”，选择“阴影”，然后选择“无阴影”。
3. 设置转盘指针
（1）选中圆形，点击“插入”菜单，选择“形状”，然后选择一个指向圆形中心的箭头。
（2）调整箭头大小，使其与圆形相匹配。
（3）选中箭头，点击“绘图工具”下的“格式”，选择“形状填充”，然后选择“无填充颜色”。
（4）选中箭头，点击“绘图工具”下的“形状轮廓”，选择“无轮廓”。
4. 设置抽奖效果
（1）选中圆形，点击“开发工具”下的“插入”，选择“ActiveX控件”，然后选择“随机旋转”。
（2）在弹出的对话框中，设置旋转角度为360度，勾选“随机”选项。
（3）点击“确定”按钮，将随机旋转控件插入到圆形中。
（4）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（5）点击“开发工具”下的“查看VBA项目”，在弹出的VBA项目窗口中，找到“UserForm”对象，双击打开。
（6）在“UserForm”窗口中，添加一个按钮控件，命名为“startButton”。
（7）双击“startButton”控件，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub startButton_Click()”函数中：
```
UserForm1.Hide
```
（8）关闭VBA编辑器，回到Excel工作表。
（9）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（10）关闭VBA编辑器，回到Excel工作表。
（11）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（12）关闭VBA编辑器，回到Excel工作表。
（13）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（14）关闭VBA编辑器，回到Excel工作表。
（15）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（16）关闭VBA编辑器，回到Excel工作表。
（17）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（18）关闭VBA编辑器，回到Excel工作表。
（19）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（20）关闭VBA编辑器，回到Excel工作表。
（21）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（22）关闭VBA编辑器，回到Excel工作表。
（23）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（24）关闭VBA编辑器，回到Excel工作表。
（25）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（26）关闭VBA编辑器，回到Excel工作表。
（27）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（28）关闭VBA编辑器，回到Excel工作表。
（29）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（30）关闭VBA编辑器，回到Excel工作表。
（31）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（32）关闭VBA编辑器，回到Excel工作表。
（33）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（34）关闭VBA编辑器，回到Excel工作表。
（35）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（36）关闭VBA编辑器，回到Excel工作表。
（37）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（38）关闭VBA编辑器，回到Excel工作表。
（39）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（40）关闭VBA编辑器，回到Excel工作表。
（41）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（42）关闭VBA编辑器，回到Excel工作表。
（43）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（44）关闭VBA编辑器，回到Excel工作表。
（45）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（46）关闭VBA编辑器，回到Excel工作表。
（47）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（48）关闭VBA编辑器，回到Excel工作表。
（49）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（50）关闭VBA编辑器，回到Excel工作表。
（51）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（52）关闭VBA编辑器，回到Excel工作表。
（53）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（54）关闭VBA编辑器，回到Excel工作表。
（55）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（56）关闭VBA编辑器，回到Excel工作表。
（57）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（58）关闭VBA编辑器，回到Excel工作表。
（59）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（60）关闭VBA编辑器，回到Excel工作表。
（61）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（62）关闭VBA编辑器，回到Excel工作表。
（63）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（64）关闭VBA编辑器，回到Excel工作表。
（65）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（66）关闭VBA编辑器，回到Excel工作表。
（67）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（68）关闭VBA编辑器，回到Excel工作表。
（69）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（70）关闭VBA编辑器，回到Excel工作表。
（71）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（72）关闭VBA编辑器，回到Excel工作表。
（73）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（74）关闭VBA编辑器，回到Excel工作表。
（75）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（76）关闭VBA编辑器，回到Excel工作表。
（77）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（78）关闭VBA编辑器，回到Excel工作表。
（79）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（80）关闭VBA编辑器，回到Excel工作表。
（81）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（82）关闭VBA编辑器，回到Excel工作表。
（83）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（84）关闭VBA编辑器，回到Excel工作表。
（85）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（86）关闭VBA编辑器，回到Excel工作表。
（87）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（88）关闭VBA编辑器，回到Excel工作表。
（89）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（90）关闭VBA编辑器，回到Excel工作表。
（91）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（92）关闭VBA编辑器，回到Excel工作表。
（93）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（94）关闭VBA编辑器，回到Excel工作表。
（95）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（96）关闭VBA编辑器，回到Excel工作表。
（97）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（98）关闭VBA编辑器，回到Excel工作表。
（99）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（100）关闭VBA编辑器，回到Excel工作表。
（101）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（102）关闭VBA编辑器，回到Excel工作表。
（103）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（104）关闭VBA编辑器，回到Excel工作表。
（105）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Activate()”函数中：
```
ActiveXControl1.Start
```
（106）关闭VBA编辑器，回到Excel工作表。
（107）选中圆形，点击“开发工具”下的“查看代码”，在弹出的VBA编辑器中，将以下代码复制粘贴到“Private Sub UserForm_Act