怎样满足两个条件去循环

bingbaicai

我要控制AD18 AD21两个单元格的合格率，然后去随机数，
单单控制一个单元格的VB会写了，现在两个单元格都要控制的话，VB里面不会了
请教下 谢谢

bingbaicai

Private Sub CommandButton1_Click()
    Dim rg As Range
    For i = Range("AG6") To Range("AG7")
        Range("AG5") = i
            Do
                [O18:X19,O26:X27].ClearContents
                    For Each rg In Range("O18:X19,O26:X27")
                       rg.Value = Int(Rnd() * 40 - 20)
                    Next
            Loop Until (Range("AA18").Value > 0.85 And Range("AA26").Value > 0.85)
            
            
            ActiveSheet.PageSetup.PrintArea = "A1:AF33"
            ActiveSheet.PrintOut
    Next
End Sub

现在是遇到两和合格范围要求的就不行了，一直生成不出来满足要求的数据

bingbaicai

已经在格子那边有老师帮忙解决了

bingbaicai

roych 发表于 2017-4-2 12:46
那就用规划求解试试好了。

能否再详细一点点，老师

roych

bingbaicai 发表于 2017-4-2 06:58
你这个不是，这个太简单了

那就用规划求解试试好了。

bingbaicai

来人呀

bingbaicai

pureshadow 发表于 2017-4-1 21:36
你是想将那两个单元格里的函数公式用vba代码写出来吗？
最简单的办法就是
要按vba的写法就是

    Private Sub CommandButton1_Click()
    For i = Range("AG6") To Range("AG7")
    Range("AG5") = i
    Do
        [O18:Z19] = 0 And [O21:Z22] = 0
            For Each cel In [O18:Z19]
               cel.Value = Int(Rnd() * 30)
               If [AD20] < 0.87 Then GoTo a
            Next
a:
        Loop While [AD20] < 0.87
        Next
         For Each cel In [O21:Z22]
               cel.Value = Int(Rnd() * 30)
               If [AD20] < 0.87 Then GoTo a
            Next
a:
        Loop While [AD20] < 0.87
        
   
   
    ActiveSheet.PageSetup.PrintArea = "A1:AE30"
    ActiveSheet.PrintOut
    Next
   
    End Sub
这样不对啊

bingbaicai

pureshadow 发表于 2017-4-1 21:36
你是想将那两个单元格里的函数公式用vba代码写出来吗？
最简单的办法就是
要按vba的写法就是

你这个应该只是达到了随机，我要控制O18:Z19这单元格的数据合格率，好比是90%，让他去随机数

    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() * 60 - 20)
               If [AD11] < 0.87 Then GoTo a
            Next
a:
        Loop While [AD11] < 0.87
   
   
    ActiveSheet.PageSetup.PrintArea = "A1:AD20"
    ActiveSheet.PrintOut
    Next
   
    End Sub
这是只控制一个，我现在想控制两个区域的

bingbaicai

pureshadow 发表于 2017-4-1 21:36
你是想将那两个单元格里的函数公式用vba代码写出来吗？
最简单的办法就是
要按vba的写法就是

我上面有附件

bingbaicai

roych 发表于 2017-4-1 22:48
试下内置函数RANDBETWEEN
=RANDBETWEEN(-30,30)

你这个不是，这个太简单了