excel双击列标题自动排序的VBA代码
通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。
比如，将代码放在如下的事件中：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
代码如下：
Dim YouRg As Range
If Target.Column <= Me.Cells (1,1).CurrentRegion.Columns.Count And Target.Row = 1 Then
If Target.Column <> mnColumn Then
mnColumn = Target.Column
mnDirection = xlAscending
Else
If mnDirection = xlAscending Then
mnDirection = xlDescending
Else
mnDirection = xlAscending
End If
End If
Set YouRg = Me.Cells(1, 1).CurrentRegion
YouRg .Sort key1:=YouRg .Cells(1, mnColumn), order1:=mnDirection,header:=xlYes
Set YouRg = Nothing
Cancel = True
End If
以上代码是升序排序，你可以改为降序排序。
分享：
相关推荐
- 【excel】 WPS官网下载教程 04-19
- 【excel】 excel背景图片怎么设置 04-13
- 【excel】 表格中的斜线怎么弄 03-09
- 【excel】 怎样把pdf转换成excel文档格式 03-03
- 【excel】 excel表格数字怎么变正常 10-12
- 【excel】 Excel单元格怎么添加下拉选项 09-09
- 【excel】 excel怎么自定义下拉菜单 09-09
- 【excel】 excel怎么设置数据有效性 09-08
- 【excel】 excel怎么调换行列位置 09-02
- 【excel】 excel怎么自动编号排序 08-31
本周热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22 -
2
excel求和出现#value是什么原因? 2016/08/18
-
3
Excel常用函数公式大全 2013/08/05
-
4
Excel中将15位身份证号转换为18位 2014/07/08
-
5
EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
-
6
关于打开EXCEL,出现"隐含模块中的编译错误"的问题 2016/06/27
-
7
Excel做的表格怎么转化成XML格式 2016/07/22
-
8
excel表格中隔行选取的三种方法 2016/12/03
本月热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
2
Excel表格中每行数据下面插入一行的方法 2016/12/20
-
3
Excel常用函数公式大全 2013/08/05
-
4
excel求和出现#value是什么原因? 2016/08/18
-
5
Excel打印时每页都有表头设置方法 2015/05/13
-
6
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
-
7
Excel中将15位身份证号转换为18位 2014/07/08
-
8
Excel中怎么在散点图中插入直线 2016/08/08
-
9
Excel表格中如何对比两列数字的大小? 2016/12/28
-
10
excel表格中隔行选取的三种方法 2016/12/03