除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/282.html，VBA交流群273624828。

昨天我們看了組合框的基本用法，今天我們?cè)賮?lái)看下和其非常相似的列表框的用法。

先來(lái)看列表框的兩個(gè)有用的屬性設(shè)置。一是設(shè)置項(xiàng)目前是否顯示單選框或復(fù)選框，ListStyle屬性，可以在屬性窗格中設(shè)置，為0時(shí)沒有單選框或復(fù)選框，為1時(shí)有單選框或復(fù)選框，第二個(gè)有用的屬性是設(shè)置列表框的多選或多選，MultiSelect屬性，為0時(shí)是單選，為1時(shí)是多選，為2時(shí)需要按住shift或ctrl來(lái)進(jìn)行多選。

下面我們來(lái)看怎樣往列表框中添加項(xiàng)目，和組合框中添加項(xiàng)目是完全一樣的三種方法：

Private Sub UserForm_Initialize()
'ListBox1.AddItem "A"
'ListBox1.AddItem "B"
'ListBox1.AddItem "C"
'ListBox1.RowSource = "Sheet1!A1:A3"
ListBox1.List = Array("A", "B", "C")
End Sub

不再多說了，不明白的朋友可以參見上節(jié)“VBA窗體之組合框的基本用法”。

下面來(lái)看怎樣得到列表框中選取的內(nèi)容，看代碼演示

Private Sub CommandButton1_Click()
Dim n
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
MsgBox "第" & n + 1 & "行數(shù)據(jù)" & ListBox1.List(n, 0) & "已被選取"
End If
Next
End Sub

ListCount是計(jì)算列表框一共有多少條項(xiàng)目，但是這些項(xiàng)目是從0開始編號(hào)的，所以我們從0開始對(duì)所有項(xiàng)目進(jìn)行遍歷，Selected(n)是判斷編號(hào)為n的項(xiàng)目是否被選中，選中返回True，未選中返回False，List(x,y)表示第x行第y列的數(shù)據(jù)，注意這里x和y仍然是從0開始編碼的。

不懂的結(jié)合實(shí)例自己看：http://pan.baidu.com/s/1gdHzHKn。