标注循环内的变量

Question

我很难在循环中确定关键变量的尺寸 - 当我使用绝对单元格引用（即 A1）时很好，但是当我确定相对​​值（即 (i,j) ）时它会失败 - 即使我可以将该值调用到一个单元格中没有问题。

任何想法都非常感谢...... 干杯 丹

例子：

这有效：

Sub Test(ARRAYX)

Dim i As Integer, j As Integer
With Workbooks("X.xlsb").Sheets("X")

    i = 50 'rows
    Do Until i = 51
        For j = 30 To 650 Step 30    'cols

            Dim NUM as integer

            NUM = activesheet.range("A1")  
            Workbooks("X.xlsb").Sheets("X").Cells(i - 48, j).value = ARRAYX(NUM, 2)
        Next j
        i = i + 1
    Loop
 End With
 End Sub

这不起作用：

Sub Test(ARRAYX)

Dim i As Integer, j As Integer
With Workbooks("X.xlsb").Sheets("X")

    i = 50 'rows
    Do Until i = 51
        For j = 30 To 650 Step 30    'cols

            Dim NUM as integer

            NUM = Workbooks("X.xlsb").Sheets("X").Cells(i, j).value  
            Workbooks("X.xlsb").Sheets("X").Cells(i - 48, j).value = ARRAYX(NUM, 2)

         Next j
        i = i + 1
    Loop
 End With
 End Sub

Answer 1

问题显然在于抛出错误时NUM 的任何值； NUM 超出了ARRAYX 的范围。

添加错误处理并根据您的发现进行相应的调试：

    On Error GoTo ErrHandler

    'your code

    Exit Sub
ErrHandler:
    MsgBox "Max legal value for 'NUM' is:" & UBound(ARRAYX,1) & vbNewLine _
         & "The value of 'NUM' is: " & NUM & vbNewLine _
         & "Taken from cell (" & i & "," & j & ")" & vbNewLine _
         & "Fix the data in the worksheet and try again."

---

它适用于A1，因为单元格A1 中的值是ARRAYX 数组的合法索引。它以(i,j) 失败，因为单元格(i,j) 中的值超出了数组的范围。

---

通读 cmets，有很多事情需要揭穿：

• Cells("A1") 不是绝对引用。 Cells("$A$1") 是。 “绝对引用”是指单元格地址的表达方式；绝对列 ($A) 和绝对行 ($1)。是否使用绝对单元格引用没有任何区别。
• VBA 中可能的最小范围是过程级别，这意味着可以在过程主体的任何位置声明变量。 Dim 语句不可执行：VBA 在该过程中运行单行之前为该过程的声明分配内存空间。由于这个原因，单步执行代码（F8）会跳过Dim 语句（您不能中断Dim 语句）。过程中的代码块不是范围：在 If 或 With 或 Do 或任何其他可能的代码块中声明的变量与在过程顶部声明的任何变量处于同一范围内。