宏運行時錯誤'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