如何实现双按钮的随机抽取人名？

作者：绿色风分类：时间：2022-08-18 浏览：88

楼主
wjc2090742

Q：如何实现双按钮的随机抽取人名？要求实现：1、按下“开始”按钮，E5和I5开始不停分别跳动A列人名和B列人名；2、再点击“结束”按钮，那跳动的两个单元格停下，并出现人名。3、再一次点击开始按钮键，那两个单元格又开始跳动，不过第一出现过的数据这一次不能再出现。4、点击结束，跳动的单元格停下，出现数据。
A：

Public di As New Dictionary, dic As New Dictionary
Dim t As Boolean
Sub 开始()
If di.Count = 0 And dic.Count = 0 Then just
t = True
Randomize
If di.Exists([e5].Value) Then di.Remove [e5].Value
If di.Exists([i5].Value) Then di.Remove [i5].Value
Do While t
[e5] = di.Keys(Int(Rnd * (di.Count - 1)))
[i5] = dic.Keys(Int(Rnd * (dic.Count - 1)))
DoEvents
Loop
End Sub
Sub just()
Dim ar(), i&
ar = [a2].Resize(Cells(Rows.Count, 1).End(3).Row - 1, 2).Value
For i = 1 To UBound(ar, 1)
If ar(i, 1) <> "" Then di.Add ar(i, 1), ""
If ar(i, 2) <> "" Then dic.Add ar(i, 2), ""
Next
End Sub
Sub 结束()
t = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set di = Nothing
Set dic = Nothing
End Sub
Private Sub Workbook_Open()
With Sheets("sheet1")
.[e5] = "??"
.[i5] = "??"
End With
End Sub

110203-1.rar

2楼
亡者天下

挖宝来了！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表