求助各位老师，满足条件则停止不满足则刷新

week05

自己做了张随机生成总和固定的随机数列的表，现在实现这串数列乘与1.2.3.4.5.6.7的总和等于200.检索E1单元格，等于200就停止，不等于就刷新B列（也就是重新生成一组总和固定的数列），这样

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3. l1:
   
4.     If [e1] <> 200 Then
   
5.         [i1] = ""
   
6.         GoTo l1:
   
7.     End If
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

liulang0808

附件内容供参考。。。。。。

week05

liulang0808 发表于 2018-6-8 13:47
附件内容供参考。。。。。。

完全符合，相当感谢！！！

week05

liulang0808 发表于 2018-6-8 13:47
附件内容供参考。。。。。。

大神能不能再帮我改一下。。。 引用您和另外一个大神的代码，完善了一下自己的表。但是发现具体结果要随机道德概率太低了，所以想改成区间的（比如结果在500至550直接就停止），试着改了改您的代码但是我太小白了改了就失效了

week05

在厚着脸皮的来伸一下手

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3. l1:
   
4.     If [e1] > 550 Or [e1] < 500 Then
   
5.         [i1] = ""
   
6.         GoTo l1:
   
7.     End If
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码