作者: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实例,如有抄袭责任必究。