listbox显示的内容不全，根据数据源第一列的有效行数而定

s418401777s

如题   现在遇到一个问题，打个比方，listbox调用数据源的B列数据，B列有4个数据    但是实际上它会参照A列的有效数据行数，比如说A列有三个数据，那么我这边listbox实际显示的只有三个数值    不知道描述的是否清楚，送上截图、代码、以及附件，求解决！！！



listbox调用的代码如下：
Private Sub UserForm_Activate()
    Dim arr()
    Dim i

    arr = Sheet1.Range("b2:b" & Sheet1.Range("a65536").End(xlUp).Row)
    For i = LBound(arr) To UBound(arr)
    Me.ListBox1.AddItem
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = arr(i, 1)
  '  Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = arr(i, 2)
'    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = arr(i, 3)
'    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = arr(i, 4)
'    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = arr(i, 5)
    Next

End Sub

s418401777s

没人吗  顶一下

s418401777s

再顶一下！！！

语虚何以言知

楼主你要做一个下拉 功能

我个人习惯：下拉条目数15个以内用数据有效性，下拉条目超过15用textbox+listbox做模糊关键字查找
题主这里就基础信息表那些数据建议做数据有效性

题主非要用listbox，那么窗体付款周期中listbox的代码

s418401777s

语虚何以言知 发表于 2019-12-8 22:28
楼主你要做一个下拉 功能

我个人习惯：下拉条目数15个以内用数据有效性，下拉条目超过15用textbox+listb ...

已经处理好了  感谢提醒