求处理listview与combox的切换获取数据

王晓飞

求大神帮忙处理下第一幅图里利用下拉框选择后下边listview里显示对应内容， 各种分类的信息在第二张图内 菜谱系统软件2018-8.zip (83.13 KB, 下载次数: 4)

2018-8-14 18:00 上传

点击文件名下载附件

王晓飞

要处理的附件我再上传一下

一指禅62

全部代码在这儿，供参考：

1. Option Explicit
   
2. Dim Rng As Range, arr(), i%, j%
   
3. Dim Item As MSComctlLib.ListItem, n%
   
4. 
   
5. Private Sub ComboBox1_Change()
   
6.     n = 0: Erase arr
   
7.     ListView1.ListItems.Clear
   
8.     If ComboBox1.Text = "全部" Then
   
9.         For i = 1 To Sheet7.Range("A1").CurrentRegion.Columns.Count Step 5
   
10.             Set Rng = Sheet7.Cells(4, i)
    
11.             ListItemAdd
    
12.         Next
    
13.     Else
    
14.         Set Rng = Sheet7.Range("A1").CurrentRegion.Find(ComboBox1.Text, LookAt:=xlWhole).Offset(3, -3)
    
15.         ListItemAdd
    
16.     End If
    
17. End Sub
    
18. 
    
19. Private Sub ListItemAdd()
    
20.     If Not Rng Is Nothing Then
    
21.         Do While Rng.Value <> ""
    
22.             Set Item = ListView1.ListItems.Add
    
23.             n = n + 1: ReDim Preserve arr(1 To 5, 1 To n)
    
24.             Item.Text = n 'Rng.Value
    
25.             arr(1, n) = n
    
26.             For j = 1 To 4
    
27.                 Item.SubItems(j) = Rng.Offset(0, j).Value
    
28.                 arr(j + 1, n) = Rng.Offset(0, j).Value
    
29.             Next
    
30.             Set Rng = Rng.Offset(1, 0)
    
31.         Loop
    
32.     End If
    
33. End Sub
    
34. 
    
35. Private Sub ListView1_DblClick()
    
36.     Rem 改为双击比较好些
    
37.     ActiveCell.Value = Item.ListSubItems(1)
    
38.     ActiveCell.Offset(0, 2).Value = Item.ListSubItems(2)
    
39.     ActiveCell.Offset(0, 1).Activate
    
40.     Unload UserForm1
    
41. End Sub
    
42. 
    
43. Private Sub TextBox1_Change()
    
44.     n = 0
    
45.     ListView1.ListItems.Clear
    
46.     If TextBox1.Text = "" Then Exit Sub
    
47.     For i = 1 To UBound(arr, 2)
    
48.         If arr(2, i) Like "*" & TextBox1.Text & "*" Then
    
49.             Set Item = ListView1.ListItems.Add
    
50.             n = n + 1
    
51.             Item.Text = n
    
52.             For j = 2 To 5
    
53.                 Item.SubItems(j - 1) = arr(j, i)
    
54.             Next
    
55.         End If
    
56.     Next
    
57. End Sub
    
58. 
    
59. Private Sub UserForm_Initialize()
    
60.     With ListView1
    
61.         .ColumnHeaders.Add , , "编号", 28  '添第一列表头，宽度为60
    
62.         .ColumnHeaders.Add , , "名称", 90  '添第二列表头，宽度为55
    
63.         .ColumnHeaders.Add , , "单位", 40  '添第三列表头，宽度为55
    
64.         .ColumnHeaders.Add , , "报价", 60  '添第三列表头，宽度为55
    
65.         .ColumnHeaders.Add , , "议价", 60  '添第三列表头，宽度为55
    
66.         .View = lvwReport
    
67.         .Gridlines = True    '显示网格线
    
68.         .FullRowSelect = True
    
69.         .Font.Size = 10
    
70.     End With
    
71.     TextBox1.SetFocus  '对文字框设置焦点，类似于单击文字框
    
72.     Me.Caption = "查询蔬菜信息"
    
73.     ComboBox1.List = Array("全部", "蔬菜类", "肉食类", "蛋奶类", "粮类", "油类", "调味品类") '为复合框指定列表内容
    
74.     ComboBox1.Value = "蔬菜类"            '为复合框指定显示内容
    
75.     'ComboBox1.ListIndex = 0 '  与 ComboBox1.Value= "蔬菜类 只能保留一个
    
76. End Sub

复制代码

一指禅62

菜谱.rar (69.87 KB, 下载次数: 28)

2018-8-14 21:03 上传

点击文件名下载附件

顺便说一句：管理数据（议价表）应该用二维表，代码简洁得多，也便于数据维护。

关于ListView 可参见 http://club.excelhome.net/thread-703775-1-1.html

王晓飞

一指禅62 发表于 2018-8-14 21:06
顺便说一句：管理数据（议价表）应该用二维表，代码简洁得多，也便于数据维护。

关于ListView 可 ...

感谢你的帮助及无私，向你学习，可以方便加个Q么

一指禅62

王晓飞 发表于 2018-8-15 07:44
感谢你的帮助及无私，向你学习，可以方便加个Q么

Q不怎么用，我也不常在线。愿共同学习！

建议将议价表改为这样的样式

议价表.zip (6.68 KB, 下载次数: 14)

2018-8-15 09:39 上传

点击文件名下载附件

王晓飞

一指禅62 发表于 2018-8-15 09:26
Q不怎么用，我也不常在线。愿共同学习！

建议将议价表改为这样的样式

帮我看下这个，怎么在我这里会显示出每一列最后一个，有点不对，listview中的数据 菜谱2018-8-20(完整).zip (106.61 KB, 下载次数: 8)

2018-8-20 21:44 上传

点击文件名下载附件

一指禅62

王晓飞 发表于 2018-8-20 21:44
帮我看下这个，怎么在我这里会显示出每一列最后一个，有点不对，listview中的数据

我没发现问题，截个图传上来看看吧。

王晓飞

一指禅62 发表于 2018-8-28 09:10
我没发现问题，截个图传上来看看吧。

我处理掉了，谢谢哥哥，以后有什么问题，还要麻烦哥哥。QQ：513354964