VBA使用ListBox添加数据（按条件+多列+标题）

cuixiaodan

求助，如附件，怎么可以根据第三列数据（大于0），再添加到ListBox中，且在ListBox上方添加标题（第一行数据），第一列显示“批次”数据，第二列显示“已出”数据，第三列显示“还余”数据，其他列的数据不添加（如有的话）

cuixiaodan

不好意思，现加上附件

cuixiaodan

之前是用ListView做的，但ListView是在我的64位电脑（WIN7，EXCEL是32位的2016）上做的，在32位电脑（XP）上这个控件不能加载，老是有问题，没有办法，才考虑用ListBox

小小鸟前滚翻

控件可以直接选择数据行，是否有标题，分栏数。
想要有条件的显示数据，只能用数组装入数据，按条件处理后装入控件

cuixiaodan

能不能请您帮我在附件里做一下，谢谢

y1983y

这样可以吧！

cuixiaodan

你好，这样是可以达到效果，但在实际应用中会变慢，因为实际应用中，数据行数会达到300行左右，不能在每次调用或更新时都这样运行一遍

cuixiaodan

使用Additem可以有条件添加数据，但是只能加一列，不能加三列

一指禅62

1. Private Sub UserForm_Initialize()
   
2.     With Me.ListBox1
   
3.     '     .Clear
   
4.          .ColumnCount = 3
   
5.     '     .ColumnWidths = "100;50;66"
   
6.     '     .ColumnHeads = True
   
7.          .TextAlign = fmTextAlignCenter
   
8.          .RowSource = Sheet1.Range("A1").CurrentRegion.Address(External:=True)
   
9.     End With
   
10. End Sub

复制代码

cuixiaodan

一指禅62 发表于 2019-6-6 17:00

这样不能屏蔽掉已经全部出线的（也就是“还余”为0）部分