VBA入门到进阶常用知识代码总结59

最新推荐文章于 2022-11-13 22:57:44 发布

tiansdk320

最新推荐文章于 2022-11-13 22:57:44 发布

阅读量1.1k

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104366515

版权

本文介绍了如何在VBA中使用ListView控件，包括注意事项、基础知识、数据导入、显示图标、视图模式、筛选数据、将控件数据输入到工作表、选取行输入、红色合计行以及批量删除和排序等操作。特别强调64位Office不支持该控件，而32位可以正常运行。

摘要由CSDN通过智能技术生成

第59集 listview控件
275、注意事项
注意：64位office无法加载该控件，32位可以运行。
276、基础知识
在这里插入图片描述
① ColumnHeaderers：列标题，添加列标题的方法：
ListView1.ColumnHeaders.Add 列数, key, 标题, 宽度，对齐方式，显示的图标
lvwColumnCenter居中对齐，lvwColumnLeft左对齐，lvwColumnRight右对齐

② SubItems是一个string类型的数组
Text：首列
SubItems(1):第2列，SubItems(2):第3列，与Text是一起配套使用。
For i = 2 To [A65536].End(xlUp).Row '使用SubItems数组添加数据
Set ITM = ListView1.ListItems.Add() '添加数据时，首先要添加一行listItems是行对象的集合
ITM.Text = Cells(i, 1)
ITM.SubItems(1) = Cells(i, 2)
ITM.SubItems(2) = Cells(i, 3)
Next i

③ ListSubItems是一个集合，使用方法：
For i = 2 To [A65536].End(xlUp).Row '使用ListSubItems集合添加数据
Set list = ListView1.ListItems.Add(Text:=Cells(i, 1))
Set li = list.ListSubItems.Add(Text:=Cells(i, 2))
Set li = list.ListSubItems.Add(Text:=Cells(i, 3))
Next i
④ 显示样式的两句代码
ListView1.View = lvwReport 'listview控件的显示外观，报表格式
ListView1.Gridlines = True '是否有表格线，True有表格线
277、使用方法
在控件工具箱中选择附加控件，在里面找到Microsoft Listview控件和Microsoft Imagelist控件，勾选确定。
278、数据导入
Private Sub UserForm_Initialize()
Dim i%
Dim ITM As ListItem
Dim list
’ ListView1.ColumnHeaders.Add 列数, key, 标题, 宽度，对齐方式，显示的图标
’ ColumnHeaders是标题行
’ lvwColumnCenter居中对齐，lvwColumnLeft左对齐，lvwColumnRight右对齐
ListView1.ColumnHeaders.Add 1, “Q”, “QQ号”, ListView1.Width / 3, lvwColumnLeft '第一列只能左对齐，可省略对齐设置
ListView1.ColumnHeaders.Add 2, “N”, “昵称”, ListView1.Width / 3, lvwColumnCenter
ListView1.ColumnHeaders.Add 3, “D”, “地区”, ListView1.Width / 3, lvwColumnCenter
ListView1.View = lvwReport 'listview控件的显示外观
ListView1.Gridlines = True '是否有表格线，True有表格线

’ For i = 2 To [A65536].End(xlUp).Row '使用SubItems数组添加数据
’ Set ITM = ListView1.ListItems.Add() '添加数据时，首先要添加一行listItems是行对象的集合
’ ITM.Text = Cells(i, 1)
’ ITM.SubItems(1) = Cells(i, 2)
’ ITM.SubItems(2) = Cells(i, 3)
’ Next i

For i = 2 To [A65536].End(xlUp).Row '使用ListSubItems集合添加数据
    Set list = ListView1.ListItems.Add(Text:=Cells(i, 1))
    Set li = list.ListSubItems.Add(Text:=Cells(i, 2))
    Set li = list.ListSubItems.Add(Text:=Cells(i, 3))
Next i

’ 注意：SubItems和ListSubItems的区别：SubItems是一个string类型的数组，ListSubItems是一个集合
’ ListView1.ColumnHeaders.Remove “D” '删除key是D的列，这里D代表地区列
End Sub
279、显示图标
显示的样式
listview控件图标要借助Icons属性࿰