VBAで複数の基準をテストするwhileループ

Question

特定のテストが満たされるまで現在ループしているVBAコードを編集しようとしています。私がしたいことは、2つの条件が満たされるまでループすることです。私はそれを得るのに困っている。ここに元のコードがあります。

Loop 
    For j = 1 To 29 
    Increment = Worksheets("Price & Energy Curve").Cells(8 + Start + j, 3).Value 
    l = Int((Worksheets("Capacity").Cells(57 + j, 12).Value) * (-1)/Increment) 
    k = WorksheetFunction.Max((l + 1) * Increment, 0) 
    Worksheets("Capacity").Activate 
    ActiveSheet.Cells(56 + j, 17).Value = k 
    test = ActiveSheet.Cells(57 + j, 13).Value 
    Do While test <> True 
    k = k + Increment 
    ActiveSheet.Cells(56 + j, 17).Value = k 
    test = ActiveSheet.Cells(57 + j, 13).Value 
    Loop 
    Next j 

私は

test = ActiveSheet.Cells(57 + j, 13).Value 

と

test = ActiveSheet.Cells(57 + j, 37).Value 

に該当する場合になるように

test = ActiveSheet.Cells(57 + j, 37).Value 

の追加のテストを追加したい、ループを抜けます。

Answer 1

チェックあなたが `あなたの質問に答えを書かれている

Do While test1 <> True Or test2 <> True 
k = k + Increment 
ActiveSheet.Cells(56 + j, 17).Value = k 
test1 = ActiveSheet.Cells(57 + j, 13).Value 
test2 = ActiveSheet.Cells(57 + j, 37).Value 
Loop