vba工具箱附加空間

⑴ 如何在VBA用戶窗體中添加TreeView控制項

在工作表界面按下組合快捷鍵Alt+F11進入VBA編輯環境，在「工程資源管理器」滑鼠右鍵→「插入」→「用戶窗體」，如下圖所示

⑵ 如何向EXCEL 的 VBA中添加時間控制項

到visual
basic
編輯器里右鍵控制項面板--附加控制項-選擇-micsoft...
listview...

⑶ vba 窗體 如何添加 combobox 控制項

在工具箱界面上點擊滑鼠右鍵，再出現的菜單中點擊AdditionalControls，然後在出現的列表中選擇MicrosoftForms2.0ComboBox，這樣在工具箱上面會多出一個combobox的按鈕點擊按鈕，就可以生成一個combobox。

⑷ vba的附加控制項中沒有listview

listview控制項在php的使⽤⽅法,VBA窗體之ListView控制項的基本

應⽤VBA實例教程

今天我們來看⼀下VBA窗體中的ListView控制項的基本⽤法。ListView控制項的最基本⽤法是在窗體中以表格形式顯⽰數據，是應⽤⾮常⼴泛的⼀個窗體控制項。控制項⼯具箱在初始狀態下是沒有ListView控制項的，需要我們在⼯具-附加控制項中勾選"Microsoft ListView

Control,Version 6.0"，這樣ListView控制項就會顯⽰在控制項⼯具箱中了。ListView分為表頭和數據兩部分，⽽數據部分的第⼀列和其他列⼜是分開的，需要⽤不同的⽅式來訪問。假設我們在Sheet1中有⼀個5⾏4列的表格，現在我們看下怎樣將這個表格中的數據導⼊到ListView控制項中。

下⾯我們先來看怎樣給ListView控制項添加表頭。有兩種⽅法，先來看第⼀種

Private Sub UserForm_Initialize()

ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列數，key，text，寬度，對齊⽅式，圖⽚

ListView1.ColumnHeaders.Add 2, "B", "性別", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 3, "C", "年齡", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter

ListView1.View = lvwReport '顯⽰⽅式

ListView1.FullRowSelect = False '是否整⾏選取

ListView1.Gridlines = True '是否顯⽰表格線

End Sub

添加表頭的第⼀種⽅法是⽤ColumnHeaders.Add的⽅法，該⽅法包括6個參數，⽐如上⾯第⼀⾏代碼中1代表第⼀列，"A"是該列的⼀個簡稱(不寫也可以)，「姓名」是要顯⽰的⽂字，下⼀個參數是寬度，這⾥我們⼀共4列，所以第⼀列寬度設為控制項寬度(ListView1.Width)的

1/4，第5個參數是對齊⽅式，其中第⼀列必須是左對齊的，其他列可以設置左右或居中對齊，第6個參數是圖標索引，我們後⾯再講，這⾥其中所有的參數都是可省略的，⼀般寫上顯⽰的⽂字和寬度即可。ListView1.View是設置ListView控制項的顯⽰⽅式，⼀共四種，這⾥lvwReport是報表形式顯⽰，其他的我們後⾯再講。FullRowSelect是指可否整⾏選取，Gridlines是否顯⽰⽹格線，這些屬性⾃⼰試下就知道了。

當然我們也可以⽤循環的⽅式來簡化代碼

Private Sub UserForm_Initialize()

Dim i

For i = 1 To 4

ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4

Next

ListView1.FullRowSelect = True

ListView1.View = lvwReport

ListView1.Gridlines = True

End Sub

對列加了個For循環⽽已，其實是完全相同的。

下⾯我們來看怎樣向ListView控制項中添加數據。兩種⽅法，下⾯來看第⼀種

Private Sub CommandButton1_Click()

Dim itm As ListItem, i, List, li

ListView1.ListItems.Clear '清除數據

For i = 2 To 5

Set itm = ListView1.ListItems.Add '添加⼀個空⾏

itm.Text = Cells(i, 1) '添加第⼀列

itm.SubItems(1) = Cells(i, 2) '添加第⼆列

itm.SubItems(2) = Cells(i, 3)

itm.SubItems(3) = Cells(i, 4)

Next

End Sub

當然添加新數據之前要把原有數據先刪除，⽤的是ListItems的Clear⽅法ListItem對象就是控制項的⾏。先⽤ListItems的Add⽅法添加⼀個空⾏，⽤變數itm來表⽰，下⾯就要向這個空⾏中添加數據，我們上⾯說過第⼀列和其他列的表⽰⽅法是不同的，第⼀列賦值要⽤Text，之後各列⽤SubItems數組來賦值，第2列序號是1，第3列序號是2，依次類推。

下⾯來看添加數據的另⼀種⽅法，ListSubItems對象

' For i = 2 To 5

' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是個數組，Listsubitems是個對象集合

' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))

' Next

前⾯都⼀樣，我只把For循環這段貼出來了，同樣是⽤ListItems.Add新建⼀個空⾏，不同的是直接給其賦了⼀個值，這個值就是賦在第⼀列的，之後⼜⽤List(剛添加的空⾏)的ListSubItems的Add⽅法，相當於在該⾏添加⼀個列，再賦值，有⼏列就添加⽤個ListSubItems。ListSubItems和SubItems的區別在於前者是⼀個對象集合，既然是對象就有可以設置格式(可以和⼯作表的Range對象類⽐)，⽽後者僅僅是⼀個數組，因此也就不存在格式之類的屬性了，所以如果需要給ListView控制項改變格式就要⽤ListSubItems對象。

￥
5.9
網路文庫VIP限時優惠現在開通,立享6億+VIP內容
立即獲取
listview控制項在php的使用方法,VBA窗體之ListView控制項的基本應用VBA實例教程
listview控制項在php的使⽤⽅法,VBA窗體之ListView控制項的基本

應⽤VBA實例教程

今天我們來看⼀下VBA窗體中的ListView控制項的基本⽤法。ListView控制項的最基本⽤法是在窗體中以表格形式顯⽰數據，是應⽤⾮常⼴泛的⼀個窗體控制項。控制項⼯具箱在初始狀態下是沒有ListView控制項的，需要我們在⼯具-附加控制項中勾選"Microsoft ListView

第 1 頁
Control,Version 6.0"，這樣ListView控制項就會顯⽰在控制項⼯具箱中了。ListView分為表頭和數據兩部分，⽽數據部分的第⼀列和其他列⼜是分開的，需要⽤不同的⽅式來訪問。假設我們在Sheet1中有⼀個5⾏4列的表格，現在我們看下怎樣將這個表格中的數據導⼊到ListView控制項中。

下⾯我們先來看怎樣給ListView控制項添加表頭。有兩種⽅法，先來看第⼀種

第 2 頁
Private Sub UserForm_Initialize()

ListView1.ColumnHeaders.Add 1, "A", "姓名", ListView1.Width / 4, lvwColumnLeft '列數，key，text，寬度，對齊⽅式，圖⽚

ListView1.ColumnHeaders.Add 2, "B", "性別", ListView1.Width / 4, lvwColumnCenter

ListView1.ColumnHeaders.Add 3, "C", "年齡", ListView1.Width / 4, lvwColumnCenter

第 3 頁
ListView1.ColumnHeaders.Add 4, "D", "住址", ListView1.Width / 4, lvwColumnCenter

ListView1.View = lvwReport '顯⽰⽅式

ListView1.FullRowSelect = False '是否整⾏選取

ListView1.Gridlines = True '是否顯⽰表格線

第 4 頁
End Sub

添加表頭的第⼀種⽅法是⽤ColumnHeaders.Add的⽅法，該⽅法包括6個參數，⽐如上⾯第⼀⾏代碼中1代表第⼀列，"A"是該列的⼀個簡稱(不寫也可以)，「姓名」是要顯⽰的⽂字，下⼀個參數是寬度，這⾥我們⼀共4列，所以第⼀列寬度設為控制項寬度(ListView1.Width)的

第 5 頁
1/4，第5個參數是對齊⽅式，其中第⼀列必須是左對齊的，其他列可以設置左右或居中對齊，第6個參數是圖標索引，我們後⾯再講，這⾥其中所有的參數都是可省略的，⼀般寫上顯⽰的⽂字和寬度即可。ListView1.View是設置ListView控制項的顯⽰⽅式，⼀共四種，這⾥lvwReport是報表形式顯⽰，其他的我們後⾯再講。FullRowSelect是指可否整⾏選取，Gridlines是否顯⽰⽹格線，這些屬性⾃⼰試下就知道了。

第 6 頁
當然我們也可以⽤循環的⽅式來簡化代碼

Private Sub UserForm_Initialize()

Dim i

For i = 1 To 4

ListView1.ColumnHeaders.Add i, , Cells(1, i), ListView1.Width / 4

Next

第 7 頁
ListView1.FullRowSelect = True

ListView1.View = lvwReport

ListView1.Gridlines = True

End Sub

對列加了個For循環⽽已，其實是完全相同的。

下⾯我們來看怎樣向ListView控制項中添加數據。兩種⽅法，下⾯來看第⼀種

第 8 頁
Private Sub CommandButton1_Click()

Dim itm As ListItem, i, List, li

ListView1.ListItems.Clear '清除數據

For i = 2 To 5

Set itm = ListView1.ListItems.Add '添加⼀個空⾏

itm.Text = Cells(i, 1) '添加第⼀列

第 9 頁
itm.SubItems(1) = Cells(i, 2) '添加第⼆列

itm.SubItems(2) = Cells(i, 3)

itm.SubItems(3) = Cells(i, 4)

Next

End Sub

當然添加新數據之前要把原有數據先刪除，⽤的是ListItems的Clear⽅法ListItem對象就是控制項的⾏。先⽤ListItems的Add⽅法添加⼀個空⾏，⽤變數itm來表⽰，下⾯就要向這個空⾏中添加數據，我們上⾯說過第⼀列和其他列的表⽰⽅法是不同的，第⼀列賦值要⽤Text，之後各列⽤SubItems數組來賦值，第2列序號是1，第3列序號是2，依次類推。

第 10 頁
下⾯來看添加數據的另⼀種⽅法，ListSubItems對象

' For i = 2 To 5

' Set List = ListView1.ListItems.Add(Text:=Cells(i, 1))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 2)) 'subitems是個數組，Listsubitems是個對象集合

第 11 頁
' Set li = List.ListSubItems.Add(Text:=Cells(i, 3))

' Set li = List.ListSubItems.Add(Text:=Cells(i, 4))

' Next

前⾯都⼀樣，我只把For循環這段貼出來了，同樣是⽤ListItems.Add新建⼀個空⾏，不同的是直接給其賦了⼀個值，這個值就是賦在第⼀列的，之後⼜⽤List(剛添加的空⾏)的ListSubItems的Add⽅法，相當於在該⾏添加⼀個列，再賦值，有⼏列就添加⽤個ListSubItems。ListSubItems和SubItems的區別在於前者是⼀個對象集合，既然是對象就有可以設置格式(可以和⼯作表的Range對象類⽐)，⽽後者僅僅是⼀個數組，因此也就不存在格式之類的屬性了，所以如果需要給ListView控制項改變格式就要⽤ListSubItems對象。

⑸ 為什麼我的Excel2007的VBA界面菜單中"附加控制項"是灰色不可用, 怎樣啟用或修復它

正確答案：你的工具箱隱藏了，調出工具箱就可以使用附加控制項了。

⑹ VBA控制項怎麼添加

步驟如下：

1.選擇文本框