全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环,独特功能还需独自开发

阅读: 评论:0

全民一起VBA实战篇   专题2   第五回 多键排序无非多次循环,独特功能还需独自开发

全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环,独特功能还需独自开发

 

相关知识点:

多关键字排序原理:现对次要的列排序,再排序优先的倒序(从最次要开始)进行依次排序,就能实现

Worksheets.Sort 工作表排序,自学

例1 足球赛积分表排序,四个排序列

     本来的优先级是总积分、获胜次数、净胜球、进球数

        实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序,最关键的最后排

Sub demo2()

       Dim r as range

       Set r=range(“a3:e10”)

       r.sort key1:=cells(1,5),order1:=xldescending

       r.sort key1:=cells(1,4),order1:=xldescending

       r.sort key1:=cells(1,3),order1:=xldescending

       r.sort key1:=cells(1,2),order1:=xldescending

 

End Sub

简单重复,规则明确用程序优化一下:

Sub demo()

       Dim r as range, k as long

       Set r=range(“a3:e10”)

       For k=5 to 2 step -1

              r.sort key1:=cells(1,k),order1:=xlDescending

       Next k

End Sub

例2 如果关键字不是顺序排列的用数组解决

Sub demo3()

       Dim r as range, k as long, a()

       a=arry(3,5,2,6)

       Set r=range(“a3:f10”)

       For k=3 to 0 step -1

              r.sort key1:=cells(1,a(k)),order1:=xlDescending

       Next k

End Sub

 

 

例3 已经按照GDP排序了,重新按照人均GDP进行排序(有隔行)

 

 

Sub sortbyaveGDP()

       Dim i as long, j as long, k, r as range

       For i =3 To 14

              If  Not cells(i,4).Mergecells Then ‘如果第i行是合并单元格,则不处理

                     For j=i+1 To 15

                            If  Not cells(j,4).Mergecells Then ‘如果第j行是合并单元格,则不处理

                                   If cells(j,4)>cells(i,4 ) Then

                                   ‘以下代码交换i行和j行的三列数据,也可以使用循环结构对其简化

                                          k=cells(i,2):cells(j,2)=cells(j,2):cells(j,2)=k

                                          k=cells(i,3):cells(j,3)=cells(j,3):cells(j,3)=k

                                          k=cells(i,4):cells(j,4)=cells(j,4):cells(j,4)=k

                                   End If

                            End If

                     Next j

              End If

       Next i

End Sub

本文发布于:2024-01-28 03:10:03,感谢您对本站的认可!

本文链接:https://www.4u4v.net/it/17063826094352.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:还需   全民   独特   第五回   功能
留言与评论(共有 0 条评论)
   
验证码:

Copyright ©2019-2022 Comsenz Inc.Powered by ©

网站地图1 网站地图2 网站地图3 网站地图4 网站地图5 网站地图6 网站地图7 网站地图8 网站地图9 网站地图10 网站地图11 网站地图12 网站地图13 网站地图14 网站地图15 网站地图16 网站地图17 网站地图18 网站地图19 网站地图20 网站地图21 网站地图22/a> 网站地图23