计算ListBox中的特定列

Question

有什么方法可以计算ListBox的特定列中有多少项？

e.g。

A     B     C     D
-------------------
a     b     c     
a           c     
a                
a                 d
a           c     d
a           c     d

A = 6

B = 1

C = 4

D = 3

我只需要计算D列中的项目数量（不是全部四项）。

Answer 1

列表框具有List属性。 List porperty返回一个基于零的数组。

• 第1列为0
• 最后一列是ListBox1.ColumnCount -1
• 第一行是0
• 最后一行ListBox1.ListCount - 1

＆＃13;

＆＃13;

Dim rowIndex As Integer
Dim columnIndex as Integer
Dim totalItems As Double
columnIndex = 0

For rowIndex  = 0 To ListBox1.ListCount - 1
  totalItems = totalItems + ListBox1.List(rowIndex , columnIndex )
Next

＆＃13;

＆＃13;

＆＃13;