想在旁边输入1至N的数，然后在1到N的数随机抽取不重复

泷州

想在旁边输入1至N的数，然后在1到N的数随机抽取不重复，多谢各位。

泷州

那一位大哥大姐帮帮忙。

vbee

参考
http://club.excelhome.net/thread-464579-1-1.html

zhenghui13

抽取了不重复随机数然后将结果输出到文本框中，不过不明白后面的意思。

1. 'Generate Unique Random Number
   
2. Public Function Generate_Rnd(ByVal num%) As String
   
3. Dim t
   
4. Dim arr
   
5. Dim brr
   
6. Dim n%, i%
   
7. Dim iRnd
   
8. Dim iPst
   
9. Dim nSwap
   
10. Dim Str$
    
11. 
    
12. t = Timer
    
13. num = Sheet1.Cells(1, 2).Value  'Number of Random
    
14. arr = Sheet2.UsedRange          'Get Original Number
    
15. If num > UBound(arr) Then Exit Function
    
16. ReDim brr(1 To num)             'Random Array
    
17. Randomize               'Random Seed
    
18. 
    
19. For n = 1 To num
    
20.     iRnd = Int((UBound(arr) - n) * Rnd) + 1
    
21.     iPst = UBound(arr) - n + 1
    
22.     brr(n) = arr(iRnd, 1)
    
23.     'Swap
    
24.     nSwap = arr(iPst, 1): arr(iPst, 1) = arr(iRnd, 1): arr(iRnd, 1) = nSwap
    
25. Next n
    
26. Str = Join(brr, ",")
    
27. Generate_Rnd = Str
    
28. End Function

复制代码

泷州

zhenghui13 发表于 2018-6-15 17:30
抽取了不重复随机数然后将结果输出到文本框中，不过不明白后面的意思。

先谢谢你了，我的意思是，例如我有1至100号，我通过录入1至100，按开始抽签就可以从1至100中随机选一个数，直到按100次抽完1至100的数为止。

zhenghui13

泷州 发表于 2018-6-16 11:21
先谢谢你了，我的意思是，例如我有1至100号，我通过录入1至100，按开始抽签就可以从1至100中随机选一个数 ...

那你改一个抽取限制，就可以了。至于你要达到按一下停止，需要加stop就可以。