成果展示

宏代码

默认取人员名单2-201行，需要增加减少自定义行数，修改第7行代码即可

Dim flag
Sub 开始()
c = Rnd
Dim rng As Range
Set dic = CreateObject("scripting.dictionary")
n = 0
For i = 2 To 201
If Application.WorksheetFunction.CountIf(Range("d4:h12"), _
Worksheets("人员名单列表").Cells(i, 1)) = 0 Then
n = n + 1
dic(n) = Worksheets("人员名单列表").Cells(i, 1)
End If
Next
flag = True
Do
DoEvents
If flag Then
Cells(4, 2) = dic(Int(Rnd * dic.Count + 1))
End If
Loop While flag
End Sub
Sub 停止()
flag = False
For i = 4 To 12
For j = 4 To 8
If Cells(i, j) = "" Then
Cells(i, j) = Cells(4, 2): GoTo 100
End If
Next
Next
100:
End Sub
Sub 清除()
For i = 2 To 100
c = Rnd
Next
Range("d4:h12").ClearContents
End Sub

下载链接

链接: 点击跳转下载

Excel抽奖小工具(用Excel制作公司年会的抽奖系统)相关推荐

抽奖随机滚动_仅需2分钟，使用excel制作一个抽奖小工具，再也不用为抽奖发愁了...
Hello,大家好,今天跟大家分享下我们如何使用excel制作一个抽奖工具,他的制作也非常的简单,我们先来看下效果,按住F9键就能让名字滚动起来,松开F9键后就会停止,如下图想要实现这样的操作也非常 ...
用Python制作一个随机抽奖小工具
最近在工作中面向社群玩家组织了一场活动,需要进行随机抽奖,参考之前小明大佬的案例,再结合自己的需求,做了一个简单的随机抽奖小工具. 今天我就来顺便介绍一下这个小工具的制作过程吧! 先看效果: 1. 核 ...
【python开源项目】推荐一款prize万能抽奖小工具发布
请确保您的电脑安装了python和pip工具,下面使用pip安装并使用rxq工具. 第一步安装与使用 prize 打开任意终端或者CMD pip install prize #或者这个:pip in ...
抽奖小工具的设计（2）- python
抽奖小工具的设计(2) (学习来源:b站up主程序员在思考) 要求:界面中央显示手机号码,点击开始按钮开始滚动号码,再次点击停止,中奖结果显示当前中奖号码. from tkinter import ...
制作公司的小型oa系统
制作公司的小型oa系统因为公司发展需要,想要搭建一个小型的oa办公系统,开始想用c#写一个c/s程序,后来发现c/s结构不太方便,改用B/S结构,因为对java不是很熟悉,对C#还算能够应用,就决定 ...
分享一个小工具：Excel表高速转换成JSON字符串
在游戏项目中一般都须要由策划制作大量的游戏内容,当中非常大一部分是使用Excel表来制作的.于是程序就须要把Excel文件转换成程序方便读取的格式. 之前项目使用的Excel表导入工具都是通过Offi ...
Excel修复小工具
今天笔者的同事由于异常关机,导致一个Excel文件损坏了,里面存储的是财务上重要的数据,这让他心急如焚.后来拿到我这里请求帮助修复.笔者在这里用到了一款名为"Advanced.Excel.R ...
excel转kml工具_CAD+Excel还能这样玩？你用对了嘛！
不少用户跟小编抱怨: 在CAD制图软件中编辑表格数据太麻烦了! 明明在Excel中编辑好了表格, 导入CAD中却还要重新编辑格式, 设计师:给我来个可以无缝对接Excel的CAD吧! 不用调节格式的那 ...
姓氏头像制作小工具超多制作模板的姓氏头像生成器微信小程序源码最新版
内容目录一.详细介绍二.效果展示 1.部分代码 2.效果图展示三.学习资料下载一.详细介绍这是一款姓氏头像制作小工具内含丰富多样的模板提供制作以前的基本是固定位置生成这款制作支持拖拽调 ...

Excel抽奖小工具(用Excel制作公司年会的抽奖系统)

成果展示

宏代码

下载链接

Excel抽奖小工具(用Excel制作公司年会的抽奖系统)相关推荐

最新文章

热门文章