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.选择文本框