关于随机抽签，在窗体里添加控件就卡死，在表格里加控件就没事。

jessialiu

各位大神，在这一步Sheets("设置").Range("A1").Resize(d.Count, 1) = Application.Transpose(d.items),字典转置WPS卡死，怎么回事？

chxw68

不要用转置，直接用循环转换。

jessialiu

错了,将里面的m=testbox.vale,就错了。

jessialiu

chxw68 发表于 2024-9-7 17:24
不要用转置，直接用循环转换。

里面m =textbox.value,就报错，直接给m赋值就没问题。

Qs18

1. Private Sub CommandButton1_Click()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. arr2 = Sheets("缓存区").[A2:A10]
   
4. m = Val(TextBox1.Value)
   
5. If UBound(arr2) < m Then
   
6. MsgBox "人数超出" & UBound(arr2)
   
7. Exit Sub
   
8. End If
   
9. 'Do While True
   
10. DoEvents
    
11. ' Sleep 100
    
12. Sheets("设置").Range("t2:t6553").ClearContents
    
13. i = 0
    
14. d.RemoveAll
    
15. Do While i < m
    
16. j = WorksheetFunction.RandBetween(2, UBound(arr2))
    
17. If Not d.exists(j) Then
    
18. i = i + 1
    
19. d(j) = arr2(j, 1)
    
20. End If
    
21. Loop
    
22. Sheets("设置").Range("A1").Resize(d.Count, 1) = Application.Transpose(d.items)
    
23. ' Loop
    
24. 
    
25. End Sub

复制代码

Qs18

试一下............

Qs18

试试.............