【新人求助】随机抽取一组数列不重复，但是...

陈大可

各位老师好，新人求助。
在附件里有一个名单，我需要实现以下功能。

1.按“重新计算”或者F9，C42单元格内可以随机出现C1:C40所有人员的名字其中之一，并且要求C42的内容可以被复制。（这题我会）
2.要求出现过的人名不能再次出在C42里。（不会了）
3.这里就出现问题了，如果我按41次F9，那必然会导致一次重复，或者报错，因为抽一次，样本就少一个，当抽取次数大于样本次数时，样本就为负了。
4.所以，我希望，当我按下的次数超过集合里所有样本时，可以有弹窗提示我：随机完成，请点击确认重复随机。
5.然后开始重复上述步骤，也就是说这个抽取可以循环使用。6.最后，A1到A40的内容可以替换，数量也可增减，并且一个工作簿中可以有多个这样的功能工作表。
----------------------
言简意赅就是，随机取一列里的其中一个单元格内容，显示在某一个单元格内，要求每重新计算一次，出现过的单元格就不能再重复出现，并且在所有单元格内容都出现过一次之后，可以出现提示框，进行下一轮随机抽取。

--------------------------

感谢各位老师！！！

liulang0808

供参考。。。。。。。。。。。。。。。。

陈大可

liulang0808 发表于 2021-11-20 08:55
供参考。。。。。。。。。。。。。。。。

老师你好，非常感谢你的回答，研究了您的表格，发现有2个功能没有实现，第一个是，按“重新计算”按钮来实现随机取样，其次是，弹窗后点击确认可以再次实现循环不放回抽出。

liulang0808

陈大可 发表于 2021-11-20 13:55
老师你好，非常感谢你的回答，研究了您的表格，发现有2个功能没有实现，第一个是，按“重新计算”按钮来 ...

楼主看下代码，用的工作簿事件，打开的时候直接赋值。

陈大可

liulang0808 发表于 2021-11-20 16:35
楼主看下代码，用的工作簿事件，打开的时候直接赋值。

你好，版主，可能我真的太小白了，我只会简单的函数，VBA看不太懂，所以没有办法把你的“按钮”变成“F9”（重新计算），因为，我点击重新计算会有其他的单元格的随机内容和这个内容随机匹配。

yjh_27

陈大可 发表于 2021-11-20 17:13
你好，版主，可能我真的太小白了，我只会简单的函数，VBA看不太懂，所以没有办法把你的“按钮”变成“F9 ...

Private Sub Worksheet_Calculate()
按钮1_Click
End Sub

陈大可

yjh_27 发表于 2021-11-20 17:22
Private Sub Worksheet_Calculate()
按钮1_Click
End Sub

老师你好，我甚至不知道你这个代码应该放在哪儿。。。

yjh_27

陈大可 发表于 2021-11-20 17:38
老师你好，我甚至不知道你这个代码应该放在哪儿。。。

sheet1  里

陈大可

yjh_27 发表于 2021-11-20 17:44
sheet1  里

老师你好，下载了你你的文件，打开文件后，点击“重新计算”或者“F9”，C42单元格没有发生任何变化。

yjh_27

6L 就是计算事件。单元格有变化才会触发，

所以事件有时你认为有了，实际并没有触发