如何获得ListBox中的行数(第几行)和每行的内容?

Posted 2023-04-23

最好能一次性获得所有内容,不用一个一个点!

参考技术A 建立一个listbox
把listbox的Style属性设置成 1-checkbox

Private Sub Form_Load()
Dim a(0 To 10) As Integer
For i = 0 To 10
a(i) = i
List1.AddItem a(i), i
List1.Selected(i) = True
Next i
End Sub

还有个就是MultiSelect属性如果选true,就是可以多选了，

VBA中如何获取一个表格的行数和列数

参考技术A 有的时候在操作excel的时候，涉及到循环什么时候结束，就非常需要知道操作区域的最后一行是第几行，或者最后一列是第几列。

因此这边使用下面两个函数，可以比较快速的获取整个区域的行数和列数（不是指定的的区域）

主要就是使用了CountA来统计非空单元格的数量，然后这边传的参数是一整行或者一整列，计算这行和这列有多少个非空单元格，就知道这个表格的行数和列数了。