vba中ListBox控件的使⽤
给ListBox添加内容
If CheckBox8 = True Then---------------------------checkbox控件被选中
For i = 0 To ListBox1.ListCount - 1--------------循环将值赋到ListBox中
If i < ListBox1.ListCount Then
'        If ListBox1.Selected(i) Then
'            ListBox1.RemoveItem (i) ---------------clear  selected row 删除选中内容
Me.ListBox1.Selected(i) = True----------Me只有在同⼀个页⾯的时候才⽤  sheet5.ListBox1.Selected(i) = True 适⽤所有情况。    '            i = i - 1
'        End If
End If
Next
Else
For i = 0 To ListBox1.ListCount - 1
If i < ListBox1.ListCount Then
Me.ListBox1.Selected(i) = False
vba listbox控件详解End If
Next
End If
通过调节ListBox属性调节ListBox多选或者单选ListSytle等改变内容的输出形式。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。