随机不重复抽查表

jiminyanyan · 发表于 2018-7-10 20:22

vipcgc 发表于 2018-7-10 18:52
老师，发个附件上来嘛，确实不懂，谢谢

代码复制进去都不会吗

jiminyanyan · 发表于 2018-7-10 21:15

.............

jiminyanyan · 发表于 2018-7-12 20:48

vipcgc 发表于 2018-7-10 18:52
老师，发个附件上来嘛，确实不懂，谢谢

有没有学会，反馈一下比较好．．．

vipcgc · 发表于 2018-7-13 08:55

jiminyanyan 发表于 2018-7-12 20:48
有没有学会，反馈一下比较好．．．

不好意思，前两天没时间弄，刚刚试了一下。有以下问题：
1.若“抽取单位数量”由高调为低，如数量由2改1，然后“点击抽取单位”，在E列还显示两个抽取结果，应该只显示一个结果。
2.“点击抽取重点”没有显示抽取结果，请多指点。
3.能否使用“样表2”中的公式方法运用到“样表1”中，不知道那种方法好些，能达到随机不重复的抽查效果。
感谢！！！

vipcgc · 发表于 2018-7-16 08:51

老师，再帮忙解决一下，感谢

vipcgc · 发表于 2018-7-17 08:40

一把小刀闯天下发表于 2018-7-10 13:31
Option Explicit

Sub 抽取单位()

老师，能发个附件上来否，确实不懂，感谢

vipcgc · 发表于 2018-7-17 08:43

魂断蓝桥发表于 2018-7-10 14:44
Sub A()
Dim rs, arr, i%
Set rs = CreateObject("adodb.recordset")

老师，可否上传个附件，确定看不懂，不知道怎么用，感谢。

魂断蓝桥 · 发表于 2018-7-17 09:27

随机抽查表（样表）.rar (16.9 KB, 下载次数: 15)

vipcgc · 发表于 2018-7-17 12:51

魂断蓝桥发表于 2018-7-17 09:27

感谢，很好用，达到效果

vipcgc · 发表于 2018-7-17 13:34

魂断蓝桥发表于 2018-7-17 09:27

您好！老师，还有点问题，当B列“抽查对象”和D列“抽查重点”有增减变动时，还要去改公式，否则就会抽取出空的单元格，可不可以改成从B5、D5开始的单元格内有内容的才参与抽取，空白单元格不参与抽取，即增减单元格内容不用去调公式。
另外，我觉得“样表2”中的公式方法也不错，好像能解决上述问题，您能帮我把“样表2”中的方法运用到我这个“随机抽查表”中否，感谢！！！

		自动登录	找回密码
密码			免费注册

[求助] 随机不重复抽查表