Question

我希望代码读取'vResults（1，i）'的值，如果它大于21，我希望它将'vInputs（5，i）'的值增加1并继续这样做直到'vResults（1，i）'大于21。

没有给出任何错误，但Excel只是崩溃了。

Sub CreateTestResultTableV2()
    Application.ScreenUpdating = False 'helps the code run faster

    Dim vInputs, vResults()
    Dim c As Integer, i As Integer

    'create INPUTS 
    c = Range("b5").End(xlToRight).Column
    vInputs = Range("b5", Cells(9, c))
    'determine last value in the column
    c = UBound(vInputs, 2)

    'create RESULTS 
    ReDim vResults(1 To 3, 1 To c)

    For i = 1 To c
        If vInputs(1, i) > 22 Then
            'set values
            Range("j16") = vInputs(1, i)
            Range("n12") = vInputs(3, i)
            Range("r14") = vInputs(5, i)

            'copy output values into RESULTS 
            vResults(1, i) = Range("h41")
            vResults(2, i) = Range("k41")
            vResults(3, i) = Range("z14")

            Do Until vResults(1, i) > 21
                vInputs(5, i).Value = vInputs(5, i).Value + 1
            Loop
        End If
    Next i

    Range("c47").Resize(3, c) = vResults
    Application.ScreenUpdating = True
End Sub

Answer 1

do until循环重复其指令，直到测试的条件变为true。就您而言，您的情况永远不会改变：

Do Until vResults(1, i) > 21
    vInputs(5, i).Value = vInputs(5, i).Value + 1
Loop

您将进入循环，直到vResults(1, i)大于21，但是由于该值永远不会改变，因此循环永远不会结束（又称：无限循环）。 Windows最终会说excel没有响应，并会询问您是否要结束进程以退出循环，这看起来像是应用程序崩溃了。

要么更改vResults(1, i)的值，要么更改条件以检查将在循环中更改的其他内容（可能为vInputs(5, i)）。

执行“直到”循环以获取大于某个数字的单元格的值

1 个答案: