如何运用VBA制作高大上的抽奖转盘

作者：excel函数与vba实例 2018-04-18 07:01:04

转盘抽奖我们应该在很多地方都见到过，这种圆形的抽奖转盘通过转动指针来进行抽奖。今天我们就来讲解一下，如何运用excel制作一个精美的抽奖转盘。

效果展示：如上图，通过转动指针的方式，进行抽奖。

制作方法：

第一步：添加数据，在A列添加15个奖项名称，B列添加15个1，C列使用函数=IF(ROW()-MOD($D$1-1,11)-1=0,10,1)，D1单元格输入：1；

第二步：选中C1：C15制作雷达图，同时取消网格线及底纹填充。

第三部：选择A1:B15，制作圆环图。添加标签名称即可，将指针移动到圆环中间。

第四步：添加VBA代码，指定宏即可。按ALT+F11，输入以下代码：

Sub 指针转动()

m = WorksheetFunction.RandBetween(10, 50) '设置随机数从10到50，可根据人数调整范围

Cells(1, 4) = 1 '设置初始值为1

For i = 1 To m '循环加1

Cells(1, 4) = Cells(1, 4) + 1

Application.ScreenUpdating = True

Next

End Sub

原创声明：文章发布于作者微信公众号、头条号：EXCEL函数与VBA实例，如有抄袭责任必究。