宏运行时错误'9'：下标超出范围与宏

Question

我正在用VBA写一个宏。如果你在excel中按下按钮，它将会优先执行代码。以下是代码的第一部分。如果我超出程序，那么我得到运行时错误9，下标超出范围。我怎样才能解决这个错误？错误指向ReDim rij(1 To z) As Integer

ThisWorkbook.Sheets("InvoerIO").Range("O1") = z 

ReDim rij(1 To z) As Integer 

For r = 1 To ThisWorkbook.Sheets("InvoerIO").Range("O1")   
    If r > 7 Then 
     z = ThisWorkbook.Sheets("InvoerIO").Range("O1") 
     rij(r) = rij(r - 1)  
     If Sheets("InvoerIO").Cells(r, 3).value = "part1" Then   
      rij(r) = 90 

等

Answer 1

变化

ThisWorkbook.Sheets("InvoerIO").Range("O1") = z 

到

z = ThisWorkbook.Sheets("InvoerIO").Range("O1").Value