VBA窗体学习笔记一:Listview控件

tanglf188 · 发表于 2023-8-30 15:21

本帖最后由 tanglf188 于 2023-8-30 15:25 编辑

wj821123 发表于 2023-8-30 15:15
大佬，我的怎么出现这个情况：

应该是你每修改一列行就+1了，最好是传上代码才能看明白

添加ListItems(项目列表)。
使用SubItems数组添加数据，注意：SubItems(1)为第二列，第一列为Text。添加数据时，首先要添加一ListItems是行对象的集合，然后使用循环，
把单元格数值赋值给Subitem。Set ITM = ListView1.ListItems.Add()，相当于ListView末尾添加一空行。
         例：以Sheet1表C:J列（共8列）为例
For i = 1 To UBound(brr)
      Set itm = Me.ListView1.ListItems.Add()
      itm.Text = brr(i, 1)
      For j = 2 To UBound(brr, 2)
         itm.SubItems(j - 1) = brr(i, j)
      Next
Next

wj821123 · 发表于 2023-8-30 15:31

tanglf188 发表于 2023-8-30 15:21
应该是你每修改一列行就+1了，最好是传上代码才能看明白

Dim I, K As Integer
Dim ARR
ReDim ARR(1 To 1000, 4)
Dim ITM As ListItem
I = 1
For j = 1 To Worksheets("生产预定").Range("C65535").End(3).Row
If Worksheets("生产预定").Cells(j, 6) = Cells(1, ActiveCell.Column) Then
      ARR(I, 1) = Worksheets("生产预定").Cells(j, 1)
      ARR(I, 2) = Worksheets("生产预定").Cells(j, 3)
      ARR(I, 3) = Worksheets("生产预定").Cells(j, 4)
      ARR(I, 4) = Worksheets("生产预定").Cells(j, 5)
      I = I + 1
End If
Next j
lv1.ColumnHeaders.Clear
lv1.ListItems.Clear
With lv1
.Gridlines = True '显示网格线
.FullRowSelect = True '整行选择
'.MultiSelect = True '多选
.LabelEdit = lvwManual '第一列手动修改。不然点两下鼠标就进入编辑状态
'.CheckBoxes = True '显示复选框
.View = lvwReport '报表视图
.Font.Size = 12 '设置字号为四号
.ColumnHeaders.Add , , "ST_DATE", lv1.Width / 5 '添加标题，并设置宽度为 100。
.ColumnHeaders.Add , , "生产批号", lv1.Width / 4
.ColumnHeaders.Add , , "型号", lv1.Width / 4
.ColumnHeaders.Add , , "工单号", lv1.Width / 4
End With
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j

wj821123 · 发表于 2023-8-30 15:33

Dim I, K As Integer
Dim ARR
ReDim ARR(1 To 1000, 4)
Dim ITM As ListItem
I = 1
For j = 1 To Worksheets("生产预定").Range("C65535").End(3).Row
If Worksheets("生产预定").Cells(j, 6) = Cells(1, ActiveCell.Column) Then
      ARR(I, 1) = Worksheets("生产预定").Cells(j, 1)
      ARR(I, 2) = Worksheets("生产预定").Cells(j, 3)
      ARR(I, 3) = Worksheets("生产预定").Cells(j, 4)
      ARR(I, 4) = Worksheets("生产预定").Cells(j, 5)
      I = I + 1
End If
Next j
lv1.ColumnHeaders.Clear
lv1.ListItems.Clear
With lv1
.Gridlines = True '显示网格线
.FullRowSelect = True '整行选择
'.MultiSelect = True '多选
.LabelEdit = lvwManual '第一列手动修改。不然点两下鼠标就进入编辑状态
'.CheckBoxes = True '显示复选框
.View = lvwReport '报表视图
.Font.Size = 12 '设置字号为四号
.ColumnHeaders.Add , , "ST_DATE", lv1.Width / 5 '添加标题，并设置宽度为 100。
.ColumnHeaders.Add , , "生产批号", lv1.Width / 4
.ColumnHeaders.Add , , "型号", lv1.Width / 4
.ColumnHeaders.Add , , "工单号", lv1.Width / 4
End With
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j

wj821123 · 发表于 2023-8-30 15:35

tanglf188 发表于 2023-8-30 15:21
应该是你每修改一列行就+1了，最好是传上代码才能看明白

写的代码是这样的：
Dim I, K As Integer
Dim ARR
ReDim ARR(1 To 1000, 4)
Dim ITM As ListItem
I = 1
For j = 1 To Worksheets("生产预定").Range("C65535").End(3).Row
If Worksheets("生产预定").Cells(j, 6) = Cells(1, ActiveCell.Column) Then
      ARR(I, 1) = Worksheets("生产预定").Cells(j, 1)
      ARR(I, 2) = Worksheets("生产预定").Cells(j, 3)
      ARR(I, 3) = Worksheets("生产预定").Cells(j, 4)
      ARR(I, 4) = Worksheets("生产预定").Cells(j, 5)
      I = I + 1
End If
Next j
lv1.ColumnHeaders.Clear
lv1.ListItems.Clear
With lv1
.Gridlines = True '显示网格线
.FullRowSelect = True '整行选择
'.MultiSelect = True '多选
.LabelEdit = lvwManual '第一列手动修改。不然点两下鼠标就进入编辑状态
'.CheckBoxes = True '显示复选框
.View = lvwReport '报表视图
.Font.Size = 12 '设置字号为四号
.ColumnHeaders.Add , , "ST_DATE", lv1.Width / 5 '添加标题，并设置宽度为 100。
.ColumnHeaders.Add , , "生产批号", lv1.Width / 4
.ColumnHeaders.Add , , "型号", lv1.Width / 4
.ColumnHeaders.Add , , "工单号", lv1.Width / 4
End With
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j

wj821123 · 发表于 2023-8-30 15:48

Private Sub UserForm_Activate()
Dim I, K As Integer
Dim ARR
ReDim ARR(1 To 1000, 4)
Dim ITM As ListItem
I = 1
For j = 1 To Worksheets("生产预定").Range("C65535").End(3).Row
If Worksheets("生产预定").Cells(j, 6) = Cells(1, ActiveCell.Column) Then
      ARR(I, 1) = Worksheets("生产预定").Cells(j, 1)
      ARR(I, 2) = Worksheets("生产预定").Cells(j, 3)
      ARR(I, 3) = Worksheets("生产预定").Cells(j, 4)
      ARR(I, 4) = Worksheets("生产预定").Cells(j, 5)
      I = I + 1
End If
Next j
lv1.ColumnHeaders.Clear
lv1.ListItems.Clear
With lv1
.Gridlines = True '显示网格线
.FullRowSelect = True '整行选择
'.MultiSelect = True '多选
.LabelEdit = lvwManual '第一列手动修改。不然点两下鼠标就进入编辑状态
'.CheckBoxes = True '显示复选框
.View = lvwReport '报表视图
.Font.Size = 12 '设置字号为四号
.ColumnHeaders.Add , , "ST_DATE", lv1.Width / 5 '添加标题，并设置宽度为 100。
.ColumnHeaders.Add , , "生产批号", lv1.Width / 4
.ColumnHeaders.Add , , "型号", lv1.Width / 4
.ColumnHeaders.Add , , "工单号", lv1.Width / 4
End With
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j
End Sub
以上我写的代码，请帮忙看看

fenghuaxue · 发表于 2023-10-17 14:55

工具箱附加菜单里面找不到listview。

838225419 · 发表于 2023-10-17 16:11

谢谢分享

Hontyu · 发表于 2023-12-27 21:47

fanyoulin 发表于 2023-4-12 12:14
个人觉得意义不大：
1、可以直接在工作表单中获得查询结果；
2、窗体视野小，翻页也不方面，便利性跟工作 ...

有没有一种可能，窗体可以把很多工作表的某部分你需要的信息集结在一界面，这就是优势，你没用过不代表一切

ren1982521 · 发表于 2024-1-24 11:14

For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j
这段代码自动全是用的ADD只能第一次用ADD后面的不能用了就只能lv1.listitems.subitems(1) = arr(j,2)这样就不跳了

zjdh · 发表于 2024-5-17 19:41

楼上说得对，将
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.Add.SubItems(1) = ARR(j, 2)
lv1.ListItems.Add.SubItems(2) = ARR(j, 3)
lv1.ListItems.Add.SubItems(3) = ARR(j, 4)
Next j
改为
For j = 1 To I - 1
lv1.ListItems.Add.Text = ARR(j, 1)
lv1.ListItems.SubItems(1) = ARR(j, 2)
lv1.ListItems.SubItems(2) = ARR(j, 3)
lv1.ListItems.SubItems(3) = ARR(j, 4)
Next j
即可

		自动登录	找回密码
密码			免费注册

[分享] VBA窗体学习笔记一:Listview控件