有一列数据100个 从中随机抽取10个不重复的

张雄友

香川群子 发表于 2014-3-28 23:33
图片上吃奶瓶的那是你孙子？ 你有60多岁了吧。

是我儿子。

张雄友

香川群子 发表于 2014-3-28 23:22
使用示例：

怎么不成功，请指点。设置一下，第点一次按钮就生成一次所需要的个数。

香川群子

张雄友 发表于 2014-3-29 07:53
怎么不成功，请指点。设置一下，第点一次按钮就生成一次所需要的个数。

昨天早就在11楼贴上代码了，怎么你还在问这个问题？

张雄友

香川群子 发表于 2014-3-29 17:25
昨天早就在11楼贴上代码了，怎么你还在问这个问题？

今天感冒了还是问多一句：11楼代码只是对每次都抽固定个数（如10）个，但是我要第一次抽2个，第二个抽45个，第三次抽39个.......每次抽的个数可以选择。因为村里面每年都有人出生与死亡。

香川群子

张雄友 发表于 2014-3-29 18:02
今天感冒了还是问多一句：11楼代码只是对每次都抽固定个数（如10）个，但是我要第一次抽2个，第二个抽45个 ...

别胡说八道……这和村里每年都有人死亡没关系……你精神分裂了么？！

张雄友

香川群子 发表于 2014-3-29 18:38
别胡说八道……这和村里每年都有人死亡没关系……你精神分裂了么？！

以事论事！

张雄友

香川群子 发表于 2014-3-28 23:33
图片上吃奶瓶的那是你孙子？ 你有60多岁了吧。

没有数据出来?

gs960914

帮帮忙 将2个宏做在一起，做成一个按钮，点击后可以选题，并清空  “考试”  的E列数据

gs960914

想做个随机抽题的考试

gilligan

不放回的抽取10个。

1. Sub obtRnd()
   
2.     m = [a1].End(4).Row '获取A列中A1开始单元格的最大行数m
   
3.     arr = [a1].Resize(m) '读取A列数据到数组arr
   
4.    
   
5.     n = 10 '指定要提取的数据个数n
   
6.     If n > m Then MsgBox "n>m Err!": Exit Sub
   
7.     Randomize '随机种子初始化 以保证每次得到不同的随机序列
   
8.     Set d = CreateObject("scripting.dictionary")
   
9.         
   
10.         Do While d.Count <= n
    
11.             t = Int(Rnd * (m - 1 + 1)) + 1
    
12.             d(t) = d(t) + 1
    
13.       Loop
    
14.     [b1].Resize(n) = WorksheetFunction.Transpose(d.keys)
    
15.    
    
16. End Sub

复制代码