需要的對象運行時錯誤424

Question

我有一個複選框列表，在其中一些選中後，我想知道哪些選項被選中，以便我可以使用這些選中的框。不知道爲什麼這幾行不行。執行後，會彈出一條錯誤消息，提示「對象需要」運行時錯誤'424'：並突出顯示line => ReDim SelectedItemArray（ListBox1.ListCount）As String。是的，我有四個ListBox; ListBox1，ListBox2，ListBox3，ListBox4。任何幫助表示讚賞。謝謝

Sub CheckedBoxes() 

Dim SelectedItemArray() As String 

ReDim SelectedItemArray(ListBox1.ListCount) As String 

For i = 0 To ListBox1.ListCount - 1 
If ListBox1.Selected(i) = True Then 
SelectedItemArray(i) = ListBox1.List(i) 
End If 
Next 

End Sub 

Answer 1

您需要完全限定列表框。例如Sheet1.ListBox1.ListCount

Answer 2

這是我用於UserForm上的ListBoxes的函數。我修改了它（進一步在下面）以供在Worksheet列表框中使用。

對於表單控件在用戶窗體列表框，把它想：

myArray = GetSelectedItems(ListBox1) 

這裏將從用戶窗體接受任何列表框爲命名參數的函數：

Public Function GetSelectedItems(lBox As MSForms.ListBox) As Variant 
'returns an array of selected items in a ListBox 
Dim tmpArray() As Variant 
Dim i As Integer 
Dim selCount As Integer 

     selCount = -1 
     For i = 0 To lBox.ListCount - 1 
      If lBox.Selected(i) = True Then 
       selCount = selCount + 1 
       ReDim Preserve tmpArray(selCount) 
       tmpArray(selCount) = lBox.List(i) 

      End If 
     Next 
     If selCount = -1 Then 
      GetSelectedItems = Array() 
     Else: 
      GetSelectedItems = tmpArray 
     End If 
End Function 

如果您是指工作表上的列表框，請嘗試使用此代替：

將其命名爲：

myArray = GetSelectedItems(Sheet1.Shapes("List Box 1").OLEFormat.Object) 

這裏的修改工作表表單控件列表框的功能：

Public Function GetSelectedItems(lBox As Object) As Variant 
'returns an array of selected items in a ListBox 
Dim tmpArray() As Variant 
Dim i As Integer 
Dim selCount As Integer 

     selCount = -1 
     For i = 1 To lBox.ListCount - 1 
      If lBox.Selected(i) = True Then 
       selCount = selCount + 1 
       ReDim Preserve tmpArray(selCount) 
       tmpArray(selCount) = lBox.List(i) 

      End If 
     Next 
     If selCount = -1 Then 
      GetSelectedItems = Array() 
     Else: 
      GetSelectedItems = tmpArray 
     End If 
End Function