嵌套for循环，步骤不起作用

Question

我有以下代码。正如您在下一步循环中看到的那样。两个内循环工作正常，但外循环根本没有运行。这似乎与我如何“调暗”变量有关，但老实说，我不确定为什么这不起作用。为了简化，我删除了内部循环中的一些代码，但我认为这不会影响 for next 循环。

Sub AlgorithmOptimizertest()

    Dim PBmin As Double
    Dim PBmax As Double
    Dim PBstep As Double
    Dim PRORmin As Double
    Dim PRORmax As Double
    Dim PRORstep As Double

    Dim ROEmin As Double
    Dim ROEmax As Double
    Dim ROEstep As Double

    PBmin = Sheets("ModelSummary").Range("AP6").Value
    PBmax = Sheets("ModelSummary").Range("AP7").Value
    PBstep = Sheets("ModelSummary").Range("AP8").Value
    PRORmin = Sheets("ModelSummary").Range("AO6").Value
    PRORmax = Sheets("ModelSummary").Range("AO7").Value
    PRORstep = Sheets("ModelSummary").Range("AO8").Value
    ROEmin = Sheets("ModelSummary").Range("AD6").Value
    ROEmax = Sheets("ModelSummary").Range("AD7").Value
    ROEstep = Sheets("ModelSummary").Range("AD8").Value

    For k = ROEmin To ROEmax Step ROEstep
        Range("AD5").Value = k
        For j = PRORmin To PRORmax Step PRORstep
            Range("AO5").Value = j
            For i = PBmin To PBmax Step PBstep
                Range("AP5").Value = i

                Call PorfolioBuilder

            Next i
        Next j   
    Next k

End Sub

Answer 1

这绝对不是代码问题。 这可能与您在单元格中的数据有关。

但准确地说，您应该这样做：

dim wb as workbook, ws as worksheet
'put your dim's here

set wb=thisworkbook
set ws=wb.worksheets("ModelSummary")

'read your values here
ROEmin = ws.Range("AD6").Value
'also you might want to try this
'ROEMIN = ws.Cells(ws.Range("AD6").row,ws.Range("AD6").column)

'then call your loops
For k = ROEmin To ROEmax Step ROEstep
    Range("AD5").Value = k
    For j = PRORmin To PRORmax Step PRORstep
        Range("AO5").Value = j
        For i = PBmin To PBmax Step PBstep
            Range("AP5").Value = i

            Call PorfolioBuilder

        Next i
    Next j   
Next k