1

我希望代码读取 '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
4

1 回答 1

3

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

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

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

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

于 2019-02-08T14:55:28.287 回答