作者：绿色风
分类：
时间：2022-08-17
浏览：79
楼主
amulee |
Q：如何实现连续双击某一标题即进行升序降序交替排序？？
A：如下例，双击A:D的标题行，即对数据进行排序，连续双击某一标题即进行升序、降序交替排序。参考以下代码：- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- If Target.Row = 1 And Target.Column < 5 Then
- Cancel = True
- Dim Rng As Range, SortD, SrtFld As SortField
- Set Rng = Range("A1:D" & Range("A1048576").End(xlUp).Row)
- With Sheet1.Sort
- '找到当前关键字的排序。若找到则改变
- For Each SrtFld In .SortFields
- If SrtFld.Key.Address = Target.Address Then
- SortD = SrtFld.Order
- SrtFld.Order = IIf(SortD = 1, 2, 1)
- Exit For
- End If
- Next
- '若没有找到当前关键字，则重新设定
- If Len(SortD) = 0 Then
- .SortFields.Clear
- .SortFields.Add Key:=Target, SortOn:=xlSortOnValues, _
- Order:=xlAscending, DataOption:=xlSortNormal
- End If
- '排序
- .SetRange Rng
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- End If
- End Sub
 排序.rar
|
2楼
YESS95 |
好东西，来分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一