[已解决]有关.排序的问题，求助！【如有负数.排序就会不正确】

HP2009

【如有负数.排序就会不正确】
listview－添加点击排序-03另.rar (17.45 KB, 下载次数: 4)

2016-9-14 20:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wanao2008

2016-9-14 22:11

祝您好运！已完美解决，请测试：

替换你原来的代码：

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.     Dim i&, c%
   
3.     With ListView1
   
4.         c = ColumnHeader.Index - 1
   
5.         If c > 2 Then
   
6.             For i = 1 To .ListItems.Count
   
7.                 If .ListItems(i).SubItems(c) <> "" Then .ListItems(i).SubItems(c) = Format(.ListItems(i).SubItems(c) + 100000, "0000000000.00")
   
8.             Next
   
9.         End If
   
10.         
    
11.         .SortKey = c
    
12.         .SortOrder = IIf(.SortOrder, 0, 1)
    
13.         .Sorted = True
    
14. 
    
15.         If c > 2 Then
    
16.             For i = 1 To .ListItems.Count
    
17.                  If .ListItems(i).SubItems(c) <> "" Then .ListItems(i).SubItems(c) = Format(Format(.ListItems(i).SubItems(c), "0.00") - 100000, "0.00")
    
18.             Next
    
19.         End If
    
20.     End With
    
21. End Sub
    

复制代码

也可直接下载应用：
listview－添加点击排序-03另-wanao.rar (18.46 KB, 下载次数: 2)

2016-9-14 22:11 上传

点击文件名下载附件

跳转到最佳答案楼层

today0427

什么商店名字我去瞅瞅？买东西还给找钱太好了！
这个我只会写直接在工作表中排好序再导入的那种，数据不多的话速度还可以。或者你也可以等大神给你写个更好的，刚好我再学习一下。

1. Option Explicit
   
2. Dim o As Byte
   
3. 
   
4. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
5.     Dim k%
   
6.         k = ColumnHeader.Index
   
7.         Call px(k, o)
   
8.         Me.ListView1.ListItems.Clear
   
9.         Call tjlist
   
10. End Sub
    
11. Function px(k, o)
    
12.     Application.ScreenUpdating = False
    
13.             With Sheet1.[a1].CurrentRegion
    
14.                 .Sort Sheet1.Cells(2, k), o, , , , , , 1
    
15.             End With
    
16.             o = IIf(o = 1, 2, 1)
    
17.     Application.ScreenUpdating = True
    
18. End Function
    
19. 
    
20. Private Sub UserForm_Initialize()
    
21.     Application.Visible = False
    
22.     '导入数据
    
23.     Dim i
    
24.     o = 1
    
25.     ListView1.BorderStyle = ccFixedSingle  '设置边框样式。
    
26.     ListView1.View = lvwReport  '设置 View 属性为报表型(表格)。
    
27. 
    
28.     For i = 1 To 5                                                  '加列标题
    
29.         ListView1.ColumnHeaders.Add , , Worksheets(1).Cells(1, i), ListView1.Width / 5
    
30.     Next i
    
31.   Call tjlist
    
32. End Sub
    
33. 
    
34. Sub tjlist()
    
35.     Dim x, y
    
36.     For x = 1 To Worksheets(1).Cells(65536, 1).End(xlUp).Row            '加行数据
    
37.         ListView1.ListItems.Add , , Worksheets(1).Cells(x + 1, 1)   '加第一列
    
38.         For y = 1 To 5 - 1 '加列数据
    
39.             ListView1.ListItems(x).SubItems(y) = IIf(y < 3, Sheet1.Cells(x + 1, y + 1), Format(Sheet1.Cells(x + 1, y + 1), "0.00"))
    
40.         Next y
    
41.     Next x
    
42. End Sub
    
43. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
44.     Application.Visible = True
    
45. End Sub
    

复制代码

wanao2008

祝您好运！已完美解决，请测试：

替换你原来的代码：

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.     Dim i&, c%
   
3.     With ListView1
   
4.         c = ColumnHeader.Index - 1
   
5.         If c > 2 Then
   
6.             For i = 1 To .ListItems.Count
   
7.                 If .ListItems(i).SubItems(c) <> "" Then .ListItems(i).SubItems(c) = Format(.ListItems(i).SubItems(c) + 100000, "0000000000.00")
   
8.             Next
   
9.         End If
   
10.         
    
11.         .SortKey = c
    
12.         .SortOrder = IIf(.SortOrder, 0, 1)
    
13.         .Sorted = True
    
14. 
    
15.         If c > 2 Then
    
16.             For i = 1 To .ListItems.Count
    
17.                  If .ListItems(i).SubItems(c) <> "" Then .ListItems(i).SubItems(c) = Format(Format(.ListItems(i).SubItems(c), "0.00") - 100000, "0.00")
    
18.             Next
    
19.         End If
    
20.     End With
    
21. End Sub
    

复制代码

也可直接下载应用：
listview－添加点击排序-03另-wanao.rar (18.46 KB, 下载次数: 2)

2016-9-14 22:11 上传

点击文件名下载附件

HP2009

today0427 发表于 2016-9-14 22:08
什么商店名字我去瞅瞅？买东西还给找钱太好了！
这个我只会写直接在工作表中排好序再导入的那种，数据不多 ...

谢谢老师帮忙！

today0427

HP2009 发表于 2016-9-14 22:38
谢谢老师帮忙！

不客气的，我就是来学本领的，越学越觉得自己脑子不够用。看帖学习拓展思维是极好的！[em31]