用excel的随机函数配合index函数可以很方便的实现从一组数据中随机抽取单个数据，常用于抽奖小程序。但若想让抽奖时数据跳动一段时间再出现最终的结果，就好像真正的抽奖一样，只用函数就不好实现了。今天给大家分享一个能控制抽取跳动时间和跳动方式方法，很简单的vba代码。

先看看效果

每次抽取3个人，第一种方式为三个名字同时跳动，第二种方式为三个名字依次跳动，第三种方式为未设置跳动方式名字基本同时出现，缺乏抽奖的感觉。

设置数字调节器控制跳动的时间长短，数字越大跳动时间越长，可自由选择。

第一种方法为先将三个目标单元格在for循环里进行赋值，循环结束后再另外赋值。

 For i = 2 To [m2] * 2 Cells(2, 6) = Cells(Application.Max(i Mod 16, 1), 1) Cells(2, 7) = Cells(Application.Max(i Mod 16, 1), 1) Cells(2, 8) = Cells(Application.Max(i Mod 16, 1), 1) Next  Cells(2, 6) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) Cells(2, 7) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) Cells(2, 8) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) 

第二种方法为对每个目标单元格依次进行for循环后赋值，上一个单元格赋值完成后再进行下一个单元格的循环和赋值

For i = 2 To [m2] * 4 Cells(4, 6) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 6) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) For i = 2 To [m2] * 4 Cells(4, 7) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 7) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) For i = 2 To [m2] * 4 Cells(4, 8) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 8) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16))

时长数值放在m2单元格，用于在代码里控制时间长短。

插入数值调节器时尽量选用Active控件，便于设置调节器颜色，利于美观。插入调节器控件后，设置好相关属性，

最后给抽取按钮和重置按钮指定对应的宏代码，就完成全部操作了。

总结

本案例只是用了很少也很简单的代码就解决了问题，其实vba不难，不要被吓倒了，只要用心，代码能给我们解决很多难题，想学代码或函数的欢迎加入跟着我们一起学习。另外欢迎收藏、关注、点赞、留言，任选一项都行。