不明白爲什麼我收到'下標超出範圍'

Question

我一直在處理這個代碼，其中我有一個用戶窗體，它具有列表框和組合框的混搭。到目前爲止，我已經填充了列表框，但由於某種原因，我在組合框（combobox1和combobox2）中遇到了問題。

我已經成功填充combobox1的下拉列表，並且從該列表中我想通過已經通過'名稱管理器'調出的命名範圍'過濾'。命名的範圍被稱爲Range_Books。

Range_Books參考BOOKS或VBA代碼Sheet7中的table48中的兩列和可變數量的行。下面的代碼是我最近嘗試完成我已經解釋但仍然失敗的迭代。

我最初試圖直接調出範圍而不使用Worksheets("Sheet7").，因爲命名範圍不在特定表單中，但我仍然不確定哪個是調出範圍的最佳方式，並且如果這是根我的問題。我已經直接呼叫範圍，沒有worksheets(" ")，這是我爲什麼如此困惑。

請注意，當用戶窗體初始化時，它會打開一個輔助工作簿以填充列表框。在初始化之後，可以在爲combobox1選擇一個值之前完成各種操作，從而激活我嘗試創建的功能。此輔助工作簿保持打開狀態，直到用戶窗體關閉。我提到這一點是因爲我不確定輔助工作簿是否會導致範圍對象出現問題。自從添加了向用戶窗體打開輔助工作簿功能後，我一直在從VBA收到麻煩。

Private Sub ComboBox1_Change() 

Dim count As Integer 
Dim i As Integer 

count = Worksheets("Sheet7").Range("Range_Books").Rows.count 

For i = 0 To count 

    If Worksheets("Sheet7").Range("Range_Books").Cells(i, 1) = ComboBox1.Value Then 
     ComboBox2.AddItem (Worksheets("Sheet7").Range("Range_Books").Cells(i, 2)) 
    End If 

Next i 

End Sub 

Answer 1

您需要要麼For i = 1 to count啓動，或更改範圍，以.Cells(i+1,1)...

此外，還要確保你指到正確的紙張。我認爲這是你問題的癥結所在。

如果你命名的範圍與標籤名稱的工作表「書籍」，那麼你需要改用count = Worksheets("Books").Range("Range_Books").Rows.count

如果你想使用「Sheet7」參考相反，你可以使用count = Sheet7.Range("Range_Books").Rows.count

Answer 2

For i = 0 To count 
... 
Cells(i, 1) 

在這一點上，I = 0。0行不存在。

變化i = 0到i = 1

Answer 3

使用這個

Private Sub ComboBox1_Change() 

Dim count As Integer 
Dim i As Integer 
Dim ws As WorkSheet 

Set ws = Sheets("Sheet7") 
count = ws.Range("Range_Books").Rows.count 

For i = 1 To count 

    If Worksheets("Sheet7").Range("Range_Books").Cells(i, 1) = ComboBox1.Value Then 
     ComboBox2.AddItem (Worksheets("Sheet7").Range("Range_Books").Cells(i, 2)) 
    End If 

Next i 

End Sub 

Answer 4

謝謝大家的幫助，非常感謝！我的最終工作代碼如下。我將工作表（「Sheet7」）的所有實例都更改爲Sheet7。我附上了Excel Objects文件夾樹的圖片，你可以看到我有Sheet7，我命名爲「Books」。我的困惑是工作表（「」）調出我分配的名稱，而不是表格的VBA分配名稱。我也添加ComboBox2.Clear這種方式每當ComboBox1更改它重置值，而不是堆疊它們。我希望這對未來有所幫助，並再次感謝幫助我的評論員！

enter image description here

Private Sub ComboBox1_Change() 

ComboBox2.Clear 

Dim count As Integer 
Dim i As Integer 

count = Sheet7.Range("Range_Books").Rows.count 

For i = 1 To count 

    If Sheet7.Range("Range_Books").Cells(i, 1) = ComboBox1.Value Then 
     ComboBox2.AddItem (Sheet7.Range("Range_Books").Cells(i, 2)) 
    End If 

Next i 

End Sub