[已解决]ListView数据利用按钮选项筛选

870734707

Option Explicit

Private Sub ComboBox1_Change()
  Dim ITM As ListItem, j&, k&
ListView1.ListItems.Clear
For i = 2 To [A65536].End(xlUp).Row
    If Cells(i, 1) = ComboBox1.Text Then
     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)
    End If
  Next i
End Sub
在上述代码中增加And或or判断 如果按钮选项为A1 or D1，ListView中的显示数据，进一步精确。

最佳答案

月排行榜 / 总排行榜

zjdh

2015-9-19 16:24

listView1.rar (15.53 KB, 下载次数: 54)

2015-9-19 16:24 上传

点击文件名下载附件

跳转到最佳答案楼层

wayy

1. Private Sub UserForm_Initialize()
   
2.   OptionButton1.Value = True
   
3. End Sub

复制代码

增加一行代码，然后直接默认只显示A1的或D1的就行了

zjdh

listView1.rar (15.53 KB, 下载次数: 54)

2015-9-19 16:24 上传

点击文件名下载附件

870734707

zjdh 发表于 2015-9-19 16:24

这个虽然可以进行判断，但是一旦先选择了按钮如“D1”，则A1的按钮再行选择的时候就失效了。

870734707

wayy 发表于 2015-9-19 14:50
增加一行代码，然后直接默认只显示A1的或D1的就行了

不是很明白。

zjdh

870734707 发表于 2015-9-19 19:45
这个虽然可以进行判断，但是一旦先选择了按钮如“D1”，则A1的按钮再行选择的时候就失效了。

你把你的要求再描述一下

870734707

如上表，有没有办法，不用IIF函数作判断。简洁的筛选。