|
我要随机一组控制合格率的数,以前我会的,但是这次VB代码和公式写成了,点运行就只是在第一个单元格出现,他给我的感觉就是他随机不出来啊,
我要要随机15组(-25,25)的数值,合格率在85%以上,
下面是我的公式代码,
是不是我那个求合格率的公式错误了,
Private Sub CommandButton1_Click()
For i = Range("AG6") To Range("AG7")
Range("AG5") = i
Do
[L11:Z11] = 0
For Each cel In [L11:Z11]
cel.Value = Int(Rnd() * 50 - 50)
If [AD11] < 0.85 Then GoTo a
Next
a:
Loop While [AD11] < 0.85
ActiveSheet.PageSetup.PrintArea = "A1:AD20"
ActiveSheet.PrintOut
Next
End Sub
求合格率的
=COUNTIFS(L11:Z11,"-20<",L11:Z11,"<20")/15,统计L11:Z11里面-20到20之间的数有多少个。是这样写吗?
|
|