大家好，我是捌贰年龄VBA，今天运用字典跟窗体控件的相关知识，带大家编写一个简单的抽奖小程序。
抽奖界面文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
窗体控件功能介绍文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
1、切换按钮ToggleButton1：开始抽奖、暂停抽奖，默许Value值为False即按起状况。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
2、姓名显示区Label1：用于显示抽中人员的姓名。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
3、中奖名单ListBox1：列举抽中人员的名单，并进行编号。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
4、初始化按钮Co妹妹andButton2：恢复抽奖名单，清空中奖人员列表。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
工作表筹备文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
1、工作表1人员名单：介入抽奖人员，每一次抽中的人员从人员名单中删除了。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
2、工作表2备份：用于初始化系统，即恢复介入抽奖的人员名单。文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
代码文章源自微观生活（93wg.com）微观生活-https://93wg.com/10574.html
1、模块中自定义公共变量，编写收拾抽奖名单的Sub
Public n%, d As Object
Sub 收拾抽奖名单
Dim arr, i%
Set d = CreateObject
arr = Sheets.Range.CurrentRegion
For i = 2 To UBound
arr = i - 1
Next i
Sheets.Range.CurrentRegion = arr
&70B500; --tt-darkmode-color: 39;获取序号的最大值
n = UBound - 1
End Sub
2、开始抽奖、暂停抽奖
Private Sub ToggleButton1_Click
On Error Resume Next
Dim K, rng As Range
Call 收拾抽奖名单
If Me.ToggleButton1.Value = True Then
Me.ToggleButton1.Caption = &34;
Do
&34;开始抽奖&34;. &70B500; --tt-darkmode-color: 39;从人员名单删除了掉已抽中的人员
Set rng = Sheets.Range.Find
rng.EntireRow.Delete
&F04142; --tt-darkmode-color: 34;显示区&
Sheets.UsedRange.Copy Sheets.Range
End Sub
以上就是微观生活（93wg.com）关于“Excel VBA 编写简单的抽奖小程序”的详细内容，希望对大家有所帮助！
评论