VBA 用户表单问题 - 无法设置列表属性。无效属性数组索引

Question

只要有多个搜索条件实例，下面的代码就可以工作。但是，如果在查找函数中只有一行列为内容，我会收到错误消息“无法设置列表属性。无效属性数组索引”

Private Sub UserForm_Initialize()

Dim iRow As Integer, iMax As Integer

iRow = Cells.Find(What:="New Jersey Audit Adjustment", _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Row

iMax = Cells.Find(What:="New Jersey Audit Adjustment", _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
    MatchCase:=False, SearchFormat:=False).Row
 
Me.ComboBox1.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
Me.ComboBox2.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
Me.ComboBox3.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
Me.ComboBox4.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
Me.ComboBox5.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
    
End Sub

如果我有一行列出“新泽西州审计调整”

，则会在此处出现错误Me.ComboBox1.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value

Answer 1

当您的区域包含一个单元格时，.value 将为您提供一个值而不是数组。由于 .list 需要一个数组，您可以用一个元素填充一个数组或使用 addItem（见下文）

If Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Cells.Count = 1 Then
    Me.ComboBox1.AddItem Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
    
Else
    Me.ComboBox1.List = Worksheets("C-Proposal-19").Range("B" & iRow & ":B" & iMax).Value
    
End If

VBA 用户表单问题 - 无法设置列表属性。无效属性数组索引

VBA UserForm Issue - Could not set the list property. Invalid property array index

excel

vba

userform

listproperty

VBA 用户表单问题 - 无法设置列表 属性。无效 属性 数组索引

VBA UserForm Issue - Could not set the list property. Invalid property array index

excel

vba

userform

listproperty

VBA 用户表单问题 - 无法设置列表属性。无效属性数组索引