[已解决]如何判断窗体内数据的最大与最小值？

c888

判断窗体中的数据最大与最小值.rar (15.76 KB, 下载次数: 11)

2012-12-23 17:08 上传

点击文件名下载附件
如何将ListVi1内的第5列中最大值与最小值数据筛选到“数据统计”框内。谢谢老师指教！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-23 18:36

判断窗体中的数据最大与最小值.rar (20.23 KB, 下载次数: 21)

2012-12-23 18:36 上传

点击文件名下载附件
空格会做0来判断。

跳转到最佳答案楼层

qwuiop789

min函数判断最小值，MAX判断最大值。

无聊的疯子

在将筛选数据写入  listview 时,就对第5列的数据进行判断,把最大的值提取出来就可以了!!

zjdh

没有分数的算“0”分还是....？

hwc2ycy

判断窗体中的数据最大与最小值.rar (20.23 KB, 下载次数: 21)

2012-12-23 18:36 上传

点击文件名下载附件
空格会做0来判断。

hwc2ycy

1. Private Sub maxmin(Optional ByVal IColumn As Byte = 5)
   
2.     Dim i%
   
3.     Dim arr()
   
4.     With ListView1
   
5.         If .ListItems.Count >= 1 Then
   
6.             ReDim arr(1 To .ListItems.Count)
   
7.             For i = 1 To .ListItems.Count
   
8.                 If Len(.ListItems(i).SubItems(IColumn - 1)) > 0 Then
   
9.                     arr(i) = Val(.ListItems(i).SubItems(IColumn - 1))
   
10.                 End If
    
11.             Next
    
12. 
    
13.             Label1.Caption = WorksheetFunction.Max(arr)
    
14.             Label2.Caption = WorksheetFunction.Min(arr)
    
15.         Else
    
16.             Label1.Caption = ""
    
17.             Label2.Caption = ""
    
18.         End If
    
19.     End With
    
20. End Sub
    

复制代码

过滤空格，不做判断