随机数组r

mjgw

1.    
   
2. 
   
3. Sub Click1()
   
4.      Dim g As String, g2
   
5.      g = "mmm|kkk|lll|uuu|yyy|ttt|": g2 = Split(g, "|")
   
6.      Rnd1 = Int(1 + (3 - 1 + 1) * Rnd())
   
7.      sa4a = Randomarray(g2, Rnd1)
   
8.      End Sub
   
9. 
   
10. ' '随机数组
    
11. Function Randomarray(rrrr, Cnt)
    
12. Dim arrr
    
13. Dim myarray As String
    
14. ReDim arrr(1 To UBound(rrrr))
    
15.    For i = 1 To UBound(rrrr)
    
16.    myarray = rrrr(i)
    
17.    arrr(i) = myarray
    
18.    Next i
    
19. ReDim brr(1 To Cnt)
    
20.    For i = 1 To Cnt
    
21.     it = WorksheetFunction.RandBetween(1, UBound(arrr))
    
22.      brr(i) = arrr(it)
    
23.      arrr = VBA.Filter(arr, arrr(it), False)
    
24.    Next i
    
25.    Randomarray = brr
    
26. End Function
    
27. 
    

复制代码

为什么 把 数组rrrr 转换到数组arrr，会出现不对等的情况？

mjgw

那位高手出手，帮忙看看呀？

liulang0808

代码是否不是楼主本人写的？数组rrrr 转换到数组arrr的逻辑是什么？
如果需要相同还需要进行所谓的转换吗？

mjgw

liulang0808 发表于 2022-5-17 08:07
代码是否不是楼主本人写的？数组rrrr 转换到数组arrr的逻辑是什么？
如果需要相同还需要进行所谓的转换吗 ...

是我写的，因为我是个大循环。每次每次都要调用rrrr，这个rrrr使用后数量会因为Randomarray而减少，所以我想生成一个临时的一样的组。

我的程序有点乱，发上来又怕大师看了觉得复杂，所以找出有问题的地方。

liulang0808

mjgw 发表于 2022-5-17 08:50
是我写的，因为我是个大循环。每次每次都要调用rrrr，这个rrrr使用后数量会因为Randomarray而减少，所以 ...

对楼主的逻辑不了解，建议分步执行，逐步观察执行结果，调整逻辑吧

mjgw

liulang0808 发表于 2022-5-17 09:11
对楼主的逻辑不了解，建议分步执行，逐步观察执行结果，调整逻辑吧

进去 n1=5

出来 n2=1

这个不懂，自定义函数有没有什么局部参数和全局参数呀？

liulang0808

mjgw 发表于 2022-5-17 11:25
进去 n1=5

出来 n2=1

楼主看下函数参数传递问题吧

mjgw

liulang0808 发表于 2022-5-17 12:24
楼主看下函数参数传递问题吧

这个问题我整了一个星期了就是没有明白

liulang0808

mjgw 发表于 2022-5-17 12:44
这个问题我整了一个星期了就是没有明白

看下参数传递的资料，楼主如果看不明白，就把你看的资料不明白部分发出来，有了解的大神回会给你解答。
目前这个帖子的问题，让人看着云山雾绕，不知道要解决什么具体问题。

mjgw

liulang0808 发表于 2022-5-17 12:56
看下参数传递的资料，楼主如果看不明白，就把你看的资料不明白部分发出来，有了解的大神回会给你解答。
...

1. Option Base 1
   
2. Sub test1()
   
3. Dim B1arr, B2arr, B3arr, B1Tarr, B2Tarr, B3Tarr, B4arr, B4Tarr, str1 As String, str2 As String, str3 As String, rrr, ius%, sa1, sa2, sa3, sa2a, sa3a
   
4. B1arr = Sheets(1).UsedRange
   
5. B1Tarr = WorksheetFunction.Transpose(B1arr)
   
6. w1 = Change2to1b(B1Tarr)
   
7. 
   
8. For i = 1 To 5
   
9. w1a = Randomarray1(w1, 3)
   
10. 
    
11. ss1 = w1a(1): ss1a = Split(ss1, "|"): ss1aa = Randomarray1(ss1a, 1)
    
12. ss2 = w1a(2): ss2a = Split(ss2, "|"): ss2aa = Randomarray1(ss2a, 1)
    
13. ss3 = w1a(3): ss3a = Split(ss3, "|"): ss3aa = Randomarray1(ss3a, 1)
    
14. 
    
15. Sheets(2).Cells(i, "A") = ss1aa(1)
    
16. Sheets(2).Cells(i, "B") = ss2aa(1)
    
17. Sheets(2).Cells(i, "C") = ss3aa(1)
    
18. Next i
    
19. End Sub
    
20. 
    
21. '¶tάêyÖμ×aò»Î¬êy×é
    
22. Function Change2to1b(arr)
    
23. ReDim ar(1 To UBound(arr))
    
24. For i = 1 To UBound(arr)
    
25. e = ""
    
26.     For j = 1 To UBound(arr, 2)
    
27.       ttt = Replace(arr(i, j), " ", "")
    
28.      If ttt <> "" Then
    
29.       e = e & ttt & "|"
    
30.      End If
    
31.     Next j
    
32.       If e <> "" Then
    
33.       r = r + 1
    
34.       ar(r) = e
    
35.      End If
    
36. Next i
    
37. ReDim Preserve ar(1 To r)
    
38. Change2to1b = ar
    
39. End Function
    
40. 
    
41. ' '&#203;&#230;&#187;úêy×é
    
42. Function Randomarray1(arrr, Cnt)
    
43. ReDim brr(1 To Cnt)
    
44.    For i = 1 To Cnt
    
45.     it = WorksheetFunction.RandBetween(1, UBound(arrr))
    
46.      brr(i) = arrr(it)
    
47.      arrr = VBA.Filter(arrr, arrr(it), False)
    
48.    Next i
    
49.    Randomarray1 = brr
    
50. End Function

复制代码

随着 i 的增加  Randomarray1会造成w1越来越少，直到为空，然后Randomarray1在出问题。