0

我正在使用 vba 来获取设备编号及其相应的信息并将它们放入列表框中。用户将输入他们想要的设备编号，excel 将获取信息。但是，当我第一次单击“获取数据”按钮时，它可以正常工作。当我第二次为另一个设备编号执行此操作时，我收到消息“无法设置列表属性。无效的属性数组索引。” 这是我的代码：

Dim value As Long

Public i As Integer

    Private Sub GetDataButton_Click()

    Dim num As Variant

value = EquipmentNumber.value

    For Each num In Sheets("S1 Cvtg Eqt List").Range(Range("B1"), Range("B1").End(xlDown))

        If num = value Then


            MWOList.AddItem (num)
            MWOList.List(i, 1) = (num.Offset(0, 1))
            MWOList.List(i, 2) = (num.Offset(0, 2))
            MWOList.List(i, 3) = (num.Offset(0, 3))
            MWOList.List(i, 4) = (num.Offset(0, 4))
            MWOList.List(i, 5) = (num.Offset(0, 5))

    i = i + 1

End If

 Next num

 i = i + 1

 End Sub
4

1 回答 1

1

试试下面，请注意我不仅将“i”声明和值更改为public，而且List列的位置从0开始，所以如果这是6元素表，则将其切换回来。

出现错误的原因实际上是循环之后的另一个“i”迭代“i=i+1”，列表行也从 0 开始，因此您添加了第二个索引，并尝试将其插入到第三个位置。

Public value As Long
Public i As Integer
Private Sub GetDataButton_Click()

Dim num As Variant

value = EquipmentNumber.value

For Each num In Sheets("S1 Cvtg Eqt List").Range(Range("B1"), Range("B1").End(xlDown))

If num = value Then
    i = MWOList.ListCount 'set i to available space
    MWOList.AddItem
    MWOList.List(i, 0) = (num.Offset(0, 1))
    MWOList.List(i, 1) = (num.Offset(0, 2))
    MWOList.List(i, 2) = (num.Offset(0, 3))
    MWOList.List(i, 3) = (num.Offset(0, 4))
    MWOList.List(i, 4) = (num.Offset(0, 5))

End If

Next num

EquipmentNumber = ""

End Sub
于 2020-06-19T16:03:03.137 回答