请高手帮忙改下随机数代码，先谢谢了!

CC例例

crazy0qwer 发表于 2016-6-11 23:49
我说错了，楼主例子中的DoEvents作用还是是程序运行时再次响应按钮点击事件，从而达到一个按钮可以启动和 ...

嗯,明白啦.最终的目的是交出控制权好再次点击触发该事件,从而起到所需的效果(开始,停止)

CC例例

xkx590 发表于 2016-6-11 21:44
先谢谢高手帮忙，本来换成三个按键也可以，就是开始，停止，清除。但代码是论坛高手给的，我自己不懂。能 ...

可能是公式的原因,更改后经测试没有这种延时状况了.

1. Private Sub CommandButton1_Click()
   
2. Dim d, i, n$
   
3. If CommandButton1.Caption = "开始" Then
   
4.    CommandButton1.Caption = "停止"
   
5.    i = Sheet2.Range("b65536").End(3).Row
   
6.    x = True
   
7.    Do While x = True
   
8.         Set d = CreateObject("Scripting.Dictionary")
   
9.         Do
   
10.             n = Sheet2.Cells(Int(Rnd * i) + 1, 2)
    
11.             d(n) = ""
    
12.         Loop While d.Count <> i
    
13.         Range("b3").Resize(d.Count) = Application.Transpose(d.keys)
    
14.       DoEvents
    
15.    Loop
    
16. Else
    
17.    CommandButton1.Caption = "开始"
    
18.    x = False
    
19. End If
    
20. End Sub

复制代码

xkx590

CC例例 发表于 2016-6-12 00:12
可能是公式的原因,更改后经测试没有这种延时状况了.

请高手再帮忙解决一个问题，如果要在两列输出姓名，代码要怎样改（如在B列和C列输出姓名，个数相等），谢谢！（设想：能否在某一单元格中输入B3：B10，C3：C10，用于控制输出）

CC例例

xkx590 发表于 2016-6-12 17:04
请高手再帮忙解决一个问题，如果要在两列输出姓名，代码要怎样改（如在B列和C列输出姓名，个数相等），谢 ...

在二列输出的随机数据相同吗?输出的区域固定吗?传个附件吧

xkx590

CC例例 发表于 2016-6-12 17:46
在二列输出的随机数据相同吗?输出的区域固定吗?传个附件吧

请看附件，谢谢。

CC例例

请楼主测试: