[已解决]根据分值范围设定筛选数据（窗体）

c888

根据数值范围筛选数据（窗体）.rar (19.07 KB, 下载次数: 67)

2012-12-26 19:14 上传

点击文件名下载附件
谢谢老师指点！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-26 22:17

1. Private Sub CommandButton1_Click()
   
2.     Dim min%, max%, cj%
   
3.     If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
   
4.         MsgBox "请输入最小值和最大值"
   
5.         Exit Sub
   
6.     End If
   
7.     If Not (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text)) Then
   
8.         MsgBox "请输入数值"
   
9.         Exit Sub
   
10.     End If
    
11.     min = Val(TextBox1.Text)
    
12.     max = Val(TextBox2.Text)
    
13.     If min > max Then MsgBox "最小值不能大于最大值": Exit Sub
    
14. 
    
15.     With ListView1
    
16.         For i = .ListItems.Count To 1 Step -1
    
17.             cj = Val(.ListItems(i).SubItems(4))
    
18.             If Not (cj >= min And cj <= max) Then
    
19.                 .ListItems.Remove (i)
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

动态数据？

hwc2ycy

筛选得点了确定才执行吗？

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim min%, max%, cj%
   
3.     If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
   
4.         MsgBox "请输入最小值和最大值"
   
5.         Exit Sub
   
6.     End If
   
7.     If Not (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text)) Then
   
8.         MsgBox "请输入数值"
   
9.         Exit Sub
   
10.     End If
    
11.     min = Val(TextBox1.Text)
    
12.     max = Val(TextBox2.Text)
    
13.     If min > max Then MsgBox "最小值不能大于最大值": Exit Sub
    
14. 
    
15.     With ListView1
    
16.         For i = .ListItems.Count To 1 Step -1
    
17.             cj = Val(.ListItems(i).SubItems(4))
    
18.             If Not (cj >= min And cj <= max) Then
    
19.                 .ListItems.Remove (i)
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub

复制代码

无聊的疯子

5-15 分的结果是空的,直接一句  ListView1.ListItems.Clear 就可以了

你前面的数据都全写入到 listview  了,后面要处理的,在对应位置添加一个判断就可以了嘛!!

1. 
   
2. Private Sub CommandButton1_Click()
   
3.   ListView1.ListItems.Clear
   
4.     With Sheet3
   
5.         X = .Range("b65536").End(xlUp).Row
   
6.         arrData = .Range("a2:e" & X)
   
7.     End With
   
8.     For i = 1 To UBound(arrData)
   
9.       If arrData(i, 5) >= Val(Me.TextBox1.Text) And arrData(i, 5) <= Val(Me.TextBox2.Text) Then   '添加的判断
   
10.         With ListView1.ListItems.Add(, , arrData(i, 1))
    
11.               For Y = 2 To UBound(arrData, 2)
    
12.                   .SubItems(Y - 1) = arrData(i, Y)
    
13.               Next Y
    
14.         End With
    
15.       End If    '判断 结束对应 end if
    
16.     Next i
    
17. End Sub
    

复制代码

hwc2ycy

1. Private Sub ComboBox1_Change()
   
2.     If ComboBox1 = "" Then
   
3.         TextBox1 = ""
   
4.         TextBox2 = ""
   
5.     End If
   
6.     Dim i As Integer, X As Integer, Y As Integer
   
7.     Dim dsD As Object
   
8.     ListView1.ListItems.Clear
   
9.     With Sheet3
   
10.         X = .Range("a65536").End(xlUp).Row
    
11.         arrData = .Range("a2:e" & X)
    
12.     End With
    
13.     For i = 1 To UBound(arrData)
    
14.         If arrData(i, 1) Like "*" & ComboBox1.Value Then
    
15.             With ListView1.ListItems.Add(, , arrData(i, 1))
    
16.                 For Y = 2 To UBound(arrData, 2)
    
17.                     .SubItems(Y - 1) = arrData(i, Y)
    
18.                 Next Y
    
19.             End With
    
20.         End If
    
21.     Next i
    
22.     Dim min%, max%, cj%
    
23.     If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then Exit Sub
    
24.     If Not (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text)) Then Exit Sub
    
25.     min = Val(TextBox1.Text)
    
26.     max = Val(TextBox2.Text)
    
27.     If min > max Then Exit Sub
    
28.     Call ListFilter(min, max)
    
29. End Sub
    
30. 
    
31. Private Sub ListFilter(ByVal min As Integer, ByVal max As Integer)
    
32.     Dim cj%, i&
    
33.     With ListView1
    
34.         For i = .ListItems.Count To 1 Step -1
    
35.             cj = Val(.ListItems(i).SubItems(4))
    
36.             If Not (cj >= min And cj <= max) Then
    
37.                 .ListItems.Remove (i)
    
38.             End If
    
39.         Next
    
40.     End With
    
41. End Sub
    
42. Private Sub CommandButton1_Click()
    
43.     Dim min%, max%, cj%
    
44.     If Len(TextBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
    
45.         MsgBox "请输入最小值和最大值"
    
46.         Exit Sub
    
47.     End If
    
48.     If Not (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text)) Then
    
49.         MsgBox "请输入数值"
    
50.         Exit Sub
    
51.     End If
    
52.     min = Val(TextBox1.Text)
    
53.     max = Val(TextBox2.Text)
    
54.     If min > max Then MsgBox "最小值不能大于最大值": Exit Sub
    
55.     Call ListFilter(min, max)
    
56. End Sub

复制代码

增加自动筛选功能。
其实在添加进LISTVIEW的时候就可以做判断。

c888

hwc2ycy 发表于 2012-12-26 22:17

谢谢hwc2ycy师。是否可以增加一个判断，当设定的起止号不在ListView1窗体中时，给予提示。

hwc2ycy

c888 发表于 2012-12-26 23:21
谢谢hwc2ycy师。是否可以增加一个判断，当设定的起止号不在ListView1窗体中时，给予提示。

你自己试着改下，有问题我再帮你。

c888

hwc2ycy 发表于 2012-12-26 23:27
你自己试着改下，有问题我再帮你。

刚才试写了下，都不是很满意。只好再麻烦您好老了，谢谢指点！