vba工具箱附加控件

① 如何向EXCEL 的 VBA中添加时间控件

到visual
basic
编辑器里右键控件面板--附加控件-选择-micsoft...
listview...

② 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对象。

③ VBA 中的控件无法添加到工具箱中

说明你的电脑中没复有这个ActiveX控件制,你可以从别的电脑上拷贝来一个,需要注册,注册方法可以从网上查(加一句代码的事)
你还要考虑到你的软件发布给别人用,他的电脑上有没有这个控件,防止没有,建议你发布的时候把这个控件文件打包进去,并且程序中加上控件注册的代码.

④ VBA控件怎么添加

步骤如下：

1.选择文本框

⑤ 如何在VBA用户窗体中添加TreeView控件

在工作表界面按下组合快捷键Alt+F11进入VBA编辑环境，在“工程资源管理器”鼠标右键→“插入”→“用户窗体”，如下图所示

⑥ EXCEL2007 VBA里如何添加控件

我的在插入里面有这些东西,为何你的没有.有图有真相.

⑦ 如何在VBA的用户窗体中插入日历控件

在工具箱点鼠标右键——附加控件，在附加控件窗口中选择如图的控件，如没有，请上网下载安装。确认后选择控件在窗体中添加。 控件代码如下 Private Sub DTPicker1_Change()[O2] = Me.DTPicker1.ValueEnd SubPrivate Sub DTPicker2_Change()[O3] = ...

⑧ 请教VBA附加控件的使用方法

ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=269.25, Top:=86.25, Width:=54.75, Height _
:=14.25
这是附加命令按钮的语句

⑨ 为什么我的Excel2007的VBA界面菜单中"附加控件"是灰色不可用, 怎样启用或修复它

正确答案：你的工具箱隐藏了，调出工具箱就可以使用附加控件了。

⑩ 怎样在VBA用户窗体上文本框中添加日历控件

问：文本框右侧的向下三角按钮是怎样做出来的？
答：使用“复合框”控件即可。

要求：日历在文本框底部显示
实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。

功能说明：双击“复合框”显示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码：
Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub

注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1.
你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件，请发Email到[email protected]，我会回复给你。