excel 某列单元格数据不停随机变化直至需要的结果如何实现？

显示全部楼层 · 2009-3-15 10:30:18

（1）假设B列数据全都是随机1-2的数值，然后新建一个按钮，单击按钮后，让B数列数据不停的随机变化，直至我想要的结果时（假设我需要[B10]=[B12]=[B14]=[B16]=2,并且[B11]=[B13]=[B15]=[B17]=1时），按钮停止执行，不知是否能达到这种效果？另外是否可以设定按钮执行次数，我怕会出现无限执行操作也达不到结果。
（2）对于（需要[B10]=[B12]=[B14]=[B16]=2,并且[B11]=[B13]=[B15]=[B17]=1时）这种编法有没有更简单的方式，因为如果我需要更多单元格相等的话，则太麻烦了！
非常感谢大家了!
2楼的答案不行啊，具体应该怎么操作啊

千问 · 2009-3-15 10:30:18

能 Private Sub CommandButton1_Click()Do x = 0 y = 0 For i = 10 To 17 Cells(i, 2) = Int(Rnd() + 0.5) + 1 Next For i = 10 To 16 Step 2 If Cells(i, 2) = 1 Then x = x + 1 Next For i = 11 To 17 Step 2 If Cells(i, 2) = 2 Then y = y + 1 Next Loop While x4 Or y4 End Sub...