我正在尝试将数据存储在数组中，但是当我尝试存储数据时会抛出"Compile error: Sub or Function not defined"。

我在子之前声明了CallsForecasted，以使其公开，如下所示。

    Dim CallsForecasted(1 To 22, 1 To 6) As Double

    For icount = 1 To 22
        For jcount = 1 To 6
            Select Case jcount
            Case 1
                CallsForecasted(icount, jcount) = MondayForecast * Worksheets("Erlang").Range("B" & (2 + icount))
            Case 2
               CallsForecasted(icount, jcount) = TuesdayForecast * Worksheets("Erlang").Range("C" & (2 + icount))
            Case 3
                CallsForecasted(icount, jcount) = WednesdayForecast * Worksheets("Erlang").Range("C" & (2 + icount))
            Case 4
                CallsForecasted(icount, jcount) = ThursdayForecast * Worksheets("Erlang").Range("C" & (2 + icount))
            Case 5
                CallsForecasted(icount, jcount) = FridayForecast * Worksheets("Erlang").Range("C" & (2 + icount))
            Case 6
                CallsForecasted(icount, jcount) = SaturdayForecast * Worksheets("Erlang").Range("D" & (2 + icount))
            End Select
        Next jcount
    Next icount

最佳答案

将Dim CallsForecasted(1 To 22, 1 To 6) As Double移到任何子例程或函数上方。

如果在程序中将声明放在较低的位置，则会出现“仅在End Sub，End Function或End Property之后可能出现注释”的编译错误。奇怪的是，它仍然让我运行调用CallsForecasted的过程，然后我再也没有遇到编译错误。但我确实看到了您看到的“编译错误:未定义子函数或函数”。

所以，这令人困惑!

https://stackoverflow.com/questions/15043041/