怎样满足两个条件去循环

roych

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

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

bingbaicai

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

能否再详细一点点，老师

bingbaicai

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

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

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